Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 VBA - Activer filtre si non actif, le laisser là si actif

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

annieginette

XLDnaute Nouveau
Bonjour chers experts en VBA, j'ai cherché et je ne trouve pas, alors je me réfère à vous.
Dans mon VBA, je veux qu'il regarde si les filtres sont activés, si oui, passe au prochain code, sinon active les.
J'ai tenté ceci, cela fonctionne s'il n'y a pas de filtre, or s'il y en a, ça les enlève.
avez-vous une idée quelle est mon erreur?

Sub FILTRES()
With Sheets("CBC")
.Select
If .AutoFilterMode = True Then .AutoFilterMode = False
.Range("A1:J1").AutoFilter
End With
End Sub

J'ai essayé de le mettre à false, mais ça fait la même chose.

merci d'avance !!!
 
Re

, ça fonctionne si les filtres ne sont pas là, mais si les filtres sont là ça les enlève..

Tu es sur ? 😉

Car chez moi cela fonctionne comme tu veux c'est à dire :
Vérifie si il y a des filtres si oui c'est bon si pas de filtre mets le filtre.

*Si c'est pas cela un fichier serait une bonne idée 🙄

*Merci de ton retour

@Phil69970
 

Pièces jointes

Bonjour @Phil69970 et @st007 J'ai mis vos 2 VBA dans mon fichier, et même résultat, voir le fichier joint.
je ne comprends pas pourquoi que ça marche sur ton fichier Phil69970 car chez moi aussi ça marche sur le tiens, mais je ne suis pas capable de te transposer dans mon fichier... pourtant copier-coller ce n'est pas sorcier. Qu'est-ce que je fais de ne pas correct dites moi ?
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
298
Réponses
2
Affichages
809
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…