Sujet Précédent Sujet Suivant

Code VB pour masquer les filtres sur Excel

Résolu/Fermé
Joss062 Messages postés 36 Date d'inscription vendredi 7 novembre 2014 Statut Membre Dernière intervention 12 mai 2016 - 15 avril 2015 à 16:21
Joss062 Messages postés 36 Date d'inscription vendredi 7 novembre 2014 Statut Membre Dernière intervention 12 mai 2016 - 17 avril 2015 à 10:09
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 14401 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 17 avril 2024 2 701
15 avril 2015 à 16:37
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 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
15 avril 2015 à 16:54
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 vendredi 7 novembre 2014 Statut Membre Dernière intervention 12 mai 2016 3
15 avril 2015 à 17:04
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 vendredi 7 novembre 2014 Statut Membre Dernière intervention 12 mai 2016 3
15 avril 2015 à 17:29
En fait je veux les enlever partout, peut importe le nombre de colonnes...
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
15 avril 2015 à 17:49
et bien met 
For i = 1 To [A1].End(xlToRight).Column

eric
0
Joss062 Messages postés 36 Date d'inscription vendredi 7 novembre 2014 Statut Membre Dernière intervention 12 mai 2016 3
Modifié par Joss062 le 16/04/2015 à 09:14
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 vendredi 7 novembre 2014 Statut Membre Dernière intervention 12 mai 2016 3
15 avril 2015 à 16:49
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
15 avril 2015 à 17:49
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 vendredi 7 novembre 2014 Statut Membre Dernière intervention 12 mai 2016 3
16 avril 2015 à 08:42
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 vendredi 7 novembre 2014 Statut Membre Dernière intervention 12 mai 2016 3
Modifié par Joss062 le 16/04/2015 à 09:27
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 vendredi 7 novembre 2014 Statut Membre Dernière intervention 12 mai 2016 3
Modifié par Joss062 le 16/04/2015 à 09:41
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 vendredi 7 novembre 2014 Statut Membre Dernière intervention 12 mai 2016 3
16 avril 2015 à 09:42
En mettant ça dans le bon ordre, c'est Mieux !!!!!!
loll
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
16 avril 2015 à 10:16
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 vendredi 7 novembre 2014 Statut Membre Dernière intervention 12 mai 2016 3
17 avril 2015 à 10:09
Ok, Merci encore ;)
0