[Excel+VBA] autofilter avec "format as table"
autofilter avec "format as table" [Excel+VBA] - VB/VBA/VBS - Programmation
Sujets relatifs:
- Boucle à faire dans macro VBA (Excel)
- probleme avec le DATE_FORMAT
- Intégration adresse email Excel ==> Outlook
- créer une macro recherche sur excel
- Meilleur vendeur sous Excel !
- Problème incompatibilité type Excel VBA (Help, Stagiaire en détresse!)
- DirectShow, format et custom source filter
Marsh Posté le 07-06-2011 à 13:52:57
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