Eric4709
XLDnaute Nouveau
Bonjour à tous,
Je me tourne une nouvelle fois vers la communauté car je bloque sur un problème avec un ToggleButton.
J'ai créé un ruban personnalisé dans lequel je souhaite ajouter un toggleButton. Ce dernier aurait pour fonction de faire un filtre automatique lorsqu'il est pressé et défiltré lorsque je reclique dessus.
Or je bloque sur le code pour obtenir cette solution.
Merci d'avance pour votre aide.
Je me tourne une nouvelle fois vers la communauté car je bloque sur un problème avec un ToggleButton.
J'ai créé un ruban personnalisé dans lequel je souhaite ajouter un toggleButton. Ce dernier aurait pour fonction de faire un filtre automatique lorsqu'il est pressé et défiltré lorsque je reclique dessus.
Or je bloque sur le code pour obtenir cette solution.
Merci d'avance pour votre aide.
VB:
Sub Statut_14()
Dim NoCol As Integer
NoCol = Application.Match("Statut vente", Range("1:1"), 0) ' recherche de la bonne colonne
If pressed = True Then
ActiveSheet.ListObjects("Suivi_M53").Range.AutoFilter Field:=NoCol, Criteria1:="14" = False
End If
If pressed = False Then
ActiveSheet.ListObjects("Suivi_M53").Range.AutoFilter Field:=NoCol, Criteria1:="14" = True
End If
End Sub