criscris11
XLDnaute Accro
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 :
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.
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 :
Code:
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.
Pièces jointes
Dernière édition: