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

annieginette

XLDnaute Nouveau
Supporter XLD
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 !!!
 

Phil69970

XLDnaute Barbatruc
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 :rolleyes:

*Merci de ton retour

@Phil69970
 

Pièces jointes

  • Filtre or not filtre V1.xlsm
    26.3 KB · Affichages: 5

annieginette

XLDnaute Nouveau
Supporter XLD
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

  • annieginette.xlsm
    586.4 KB · Affichages: 3

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
299 832
Messages
1 979 414
Membres
206 721
dernier inscrit
Sud catering