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

[annieginette]

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]

Bonjour @annieginette

Si j'ai tout compris , je te propose ceci :

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

*Merci de ton retour

@Phil69970

 

[annieginette]

Bonjour @annieginette

Si j'ai tout compris , je te propose ceci :

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

*Merci de ton retour

@Phil69970

Merci beaucoup, ça fonctionne si les filtres ne sont pas là, mais si les filtres sont là ça les enlève... grrrr as-tu une autre idée?

 

[Phil69970]

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

 

[st007]

bonjour,
à essayer

Sub FiltreAutomatique()
  Sheets("CBC").Activate
  If Not ActiveSheet.AutoFilterMode = True _
  Then Range("A1").AutoFilter
End Sub

 

[st007]

re,
Le fichier de Phil69970 fonctionne correctement chez moi avec msgbox

 

[Phil69970]

@annieginette

*Merci de ton retour

Pas de retour ?

@Phil69970

 

[annieginette]

@annieginette


Pas de retour ?

@Phil69970

Allo Phil69970 j'ai vu ton fichier et j'ai refait le code et tjs la même chose. Je suis sur la route mais ce soir à mon retour je vais mettre mon fichier. Merci

 

[Phil69970]

Re

As tu essayé mon fichier chez st007 et moi il fonctionne, et chez toi ?

@Phil69970

 

[annieginette]

Phil69970

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 ?

 

[st007]

Il semble que dans un vrai tableau, le fonctionnement soit différent

 

[Phil69970]

Bonjour à tous

Qu'est-ce que je fais de ne pas correct dites moi ?

Tu as des tableaux structurés et le test ne se fait pas pareil

Je te propose ceci

*Merci de ton retour

@Phil69970

 

[annieginette]

Bonjour à tous


Tu as des tableaux structurés et le test ne se fait pas pareil

Je te propose ceci

*Merci de ton retour

@Phil69970

ça marcheeeeeeeeeeeeeeeeeeeeeeee Merci de ton aide, c'est vraiment génial... tu es génial ! Merci merci merci !