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

annieginette · 23 Avril 2022

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 · 24 Avril 2022

Bonjour à tous

annieginette à dit:
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

Phil69970 · 23 Avril 2022

Bonjour @annieginette

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

VB:

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

*Merci de ton retour

@Phil69970

annieginette · 23 Avril 2022

Phil69970 à dit:
Bonjour @annieginette

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

VB:

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 · 23 Avril 2022

Re

annieginette à dit:
, ç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 · 23 Avril 2022

bonjour,
à essayer

VB:

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

st007 · 23 Avril 2022

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

Phil69970 · 23 Avril 2022

@annieginette

Phil69970 à dit:
*Merci de ton retour

Pas de retour ?

@Phil69970

annieginette · 23 Avril 2022

Phil69970 à dit:
@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 · 23 Avril 2022

Re

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

@Phil69970

annieginette · 24 Avril 2022

Phil69970 à dit:
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 · 24 Avril 2022

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

Phil69970 · 24 Avril 2022

Bonjour à tous

annieginette à dit:
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 · 24 Avril 2022

Phil69970 à dit:
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 !

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

annieginette

XLDnaute Nouveau

Phil69970

Phil69970

XLDnaute Barbatruc

annieginette

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Pièces jointes

st007

XLDnaute Barbatruc

st007

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

annieginette

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

annieginette

XLDnaute Nouveau

Pièces jointes

st007

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

annieginette

XLDnaute Nouveau

Discussions similaires