Problème de détection si filtre auto est présent

[criscris11]

Bonsoir à tous,

J'essaye de capter dans le caption d'un ToggleButton à l'ouverture d'un USF la présence ou non d'un filtre auto donc j'ai codé comme ceci :

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
Range("A1") = "Vrai"
ToggleButton1.Caption = "Vrai"
Else
Range("A1") = "Faux"
ToggleButton1.Caption = "Faux"
End If
End Sub

Private Sub UserForm_Initialize()
If AutoFilterMode = True Then
ToggleButton1.Caption = "Filtre auto activé"
Else
ToggleButton1.Caption = "Filtre auto désactivé"
End If
End Sub

sauf qu'à l'ouverture de l'USF, le caption du ToggleButton m'indique toujours la valeur Filtre Auto désactivé.
Aurais-je oublié quelque chose ?
Merci pour vos pistes et bonne soirée.

 

[chris]

Re : Problème de détection si filtre auto est présent

Bonjour

Filtrer activé où ? Si c'est dans un onglet il faut préciser lequel.

 

[criscris11]

Re : Problème de détection si filtre auto est présent

Bonsoir chris,
Merci pour ta réponse, je vais essayer en rajoutant dans le test le nom de l'onglet concerné.
A suivre...

Bonne soirée.

 

[criscris11]

Re : Problème de détection si filtre auto est présent

Re,
Je viens d'essayer en mettant

With Sheets("Feuil1")

en début de macro avant le test et résultat est toujours le même ???????

Merci encore.