Hello tout le monde,
Je me trouve face à un problème dont je ne trouve la solution ni sur google, ni sur les forum.
Cela concerne l'utilisation des filtres automatiques (autofilter) sur un tableau formaté avec "Format as table".
En gros, mon but est de créer un simple bouton avec du code VBA derrière qui va supprimer tous les filtres du tableau (équivalent a "clear filter" sur l'ensemble des colonnes).
Un fichier d'exemple / test se trouve sur http://www.cijoint.fr/cjlink.php?f [...] tPfiF.xlsm
Feuilel#1, un simple tableau formaté avec "Format as table". En dessous un bouton avec du code VBA (très simple) pour afficher les propriétés AutoFilterMode et FilterMode. Si le tableau possède au moins un filtre sur une colonne, alors ça doit l'enlever.
--> Ça ne marche pas.
Feuille#2, J'ai exactement le même tableau, le même bouton avec le même code, mais le filtrage auto a été ajouté manuellement.
--> Ça marche
Les propriétés "AutoFilterMode" et "FilterMode" ne sont-elle pas changée quand on utilise "Format as table"?
Est-ce un bug?
Pour ceux qui ne veulent pas ouvrir le fichier excel, voici le code VBA:
Private Sub CommandButton1_Click()
With ActiveSheet
MsgBox ("AutoFilterMode=" & .AutoFilterMode)
MsgBox ("FilterMode=" & .FilterMode)
If .AutoFilterMode = True And .FilterMode = True Then
MsgBox ("Clearing all filters..." )
.ShowAllData
End If
End With
End Sub |
Merci d'avance pour vos idées!
--
Fabien
