Tester l'utilisation de filtres...sans mégoter !

[BenHarber]

Bonjour le Forum,
Dans un traitement VBA, je souhaite que ma macro vérifie l'existence de filtres automatique définis de A10 à K10 (si les filtres automatiques sont définis : ne rien faire - S'ils ne sont pas définis : les mettre).
Prudent, j'ai commencé par tester le code suivant :

Range("A10:K10").Select
If Selection.AutoFilter = True Then
MsgBox "filtres mis"
End If

Le Hic, c'est qu'à chaque exécution de cette macro, la condition est toujours remplie (j'ai toujours mon message "Filtres mis") mais une fois, la macro affiche les filtres, la fois suivante, elle les remet...etc

Quelqu'un aurait-il une idée pour ce test ?
Merci d'avance.
Cordialement,

BenHarber

 

[BenHarber]

Re : Tester l'utilisation de filtres...sans mégoter !

...heu vous aurez corrigez par vous même :
"une fois, la macro affiche les filtres, la fois suivante, elle les enlève...etc

Cordialement,
BenHarber

 

[Staple1600]

Re : Tester l'utilisation de filtres...sans mégoter !

Bonjour

Sub auto_filter()
If Not ActiveSheet.AutoFilterMode Then ActiveSheet.Range("A10:K10").AutoFilter
End Sub

 

[BOISGONTIER]

Re : Tester l'utilisation de filtres...sans mégoter !

Bonjour,

Filtre activé:

Msgbox Sheets(1).AutoFilterMode

Lignes filtrées:

MsgBox Sheets(1).FilterMode

JB
Formation Excel VBA JB

 

[RENAUDER]

Re : Tester l'utilisation de filtres...sans mégoter !

Bonjour,

Sub TestFiltreAuto()
    With Worksheets(1)
        If .AutoFilterMode Then
            Selection.AutoFilter
        Else
            Selection.AutoFilter
        End If
    End With
End Sub

 

[Staple1600]

Re : Tester l'utilisation de filtres...sans mégoter !

Bonjour à tous



Triple collision 😛

 

[BenHarber]

Re : Tester l'utilisation de filtres...sans mégoter !

Triple collision ! Y aurait-il eu...collusion ?

En tout cas, vos réponses me vont bien : merci.

Cordialement,
BenHarber