Code VB pour masquer les filtres sur Excel

Résolu
Joss062 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention   -  
Joss062 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

7 réponses

Réponse 1 / 7
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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
1
Réponse 2 / 7
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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

1
Réponse 3 / 7
Joss062 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention   3
 
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...
1
Joss062 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention   3
 
En fait je veux les enlever partout, peut importe le nombre de colonnes...
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
et bien met 
For i = 1 To [A1].End(xlToRight).Column

eric
0
Joss062 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention   3
 
Salut eric,
Les filtres ne disparaissent toujours pas..
Je dois merder quelque part...
Ce code est-il correct ?
[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
0
Réponse 4 / 7
Joss062 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention   3
 
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
Maurice
 
Bonjour

Mocro test pour enlever les filtres 

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


A+
Maurice
0
Réponse 6 / 7
Joss062 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention   3
 
Maurice, merci de ton retour, la macro test ne fonctionne pas, ça fait rien...
0
Réponse 7 / 7
Joss062 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention   3
 
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
0
Joss062 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention   3
 
Désolé, ça fonctionne, me suis rendu compte de mon erreur
Merci à toi, t'es un bon !!!!
Joss
0
Joss062 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention   3
 
En mettant ça dans le bon ordre, c'est Mieux !!!!!!
loll
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Ok, la prochaine fois n'hésite pas à mettre un fichier de travail si tu veux des réponses adaptées dès le début.
N'oublie pas de mettre en résolu.
eric
0
Joss062 Messages postés 36 Date d'inscription   Statut Membre Dernière intervention   3
 
Ok, Merci encore ;)
0