Code VB pour masquer les filtres sur Excel Résolu/Fermé

Question

Bonjour, 
J'ai créé un tableau sur Excel.
Je voudrai effectuer certains tris sur bonton de commande, jusque là pas de souci. par contre, je veux faire disparaître les flècles des filtres... pour affiner ma présentation.
Mon crètère de recherche se fait à la 11ème colonne sur "TOTO" par exemple....
donc voici mon code :

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=11, Criteria1:="mon critère de filtre"
VisibleDropDown = False

donc le filtre fonctionne, mais les flèches du filtre ne disparait pas....

Quelqu'un a-til une idée
MERCI
Joss

Configuration: Windows 7 / Internet Explorer 9.0

via55 · Answer

Bonjour

Rajoute la ligne :
Selection.AutoFilter
en fin de macro

et si elle n'existe pas en début de macro tu la met aussi
c'est une commande "bascule" elle actionne le filtre s'il n'est pas activé ou le désactionne dans le cas contraire

Cdlmnt
Via

Joss062 · Answer

Merci pour ta réponse

Voilà mon code avec la ligne rajoutée :

Selection.AutoFilter
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=11, Criteria1:="ATTENTE - Gestion de Cas"
VisibleDropDown = False
Selection.AutoFilter

... ça marche pas
j'ai un débogage

eriiic · Answer

Bonjour,

il faut le faire sur chaque titre où tu veux l'enlever :
Dim i As Long
For i = 1 To 15
Range("A1").AutoFilter field:=i, VisibleDropDown:=False
Next

Joss062 · Answer

Obligé de le faire sur chaque colonne ?
C'est un filtre automatique appliqué sur un tableau avec mise en forme automatique, il y a à peut près 40 colonnes... 

si je fais comme tu me dit, le jour ou je rajoute des colonnes ça va merdé alors...
qu'est-ce que tu en penses...

Maurice · Answer

Bonjour

Mocro test pour enlever les filtres

Sub Test()
   If ActiveSheet.AutoFilterMode Then
      ActiveSheet.AutoFilterMode = False
   End If
End Sub


A+
Maurice

Joss062 · Answer

Maurice, merci de ton retour, la macro test ne fonctionne pas, ça fait rien...

Joss062 · Answer

Salut eric,
Les filtres ne disparaissent toujours pas..
Je dois merder quelque part...
Ce code est-il correct ? (sachant que mon tableau commence en A3)
[ActiveSheet.ListObjects("Tableau1").Range.AutoFilter field:=11, Criteria1:="ATTENTE - Gestion de Cas"
Dim i As Long
For i = 1 To [A3].End(xlToRight).Column
Range("A3").AutoFilter field:=i, VisibleDropDown:=False
Next
End Sub]
Merci à toi