XL 2010 ToggleButton

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.

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
 

ChTi160

XLDnaute Barbatruc
Bonjour Eric4709
Bonjour le Fil ,le Forum
Il faut donc faire un truc du genre.
Code:
.OnAction = "'Statut_14 "" & TuggleButton.Value &""'"
Non testé voir faire recherche sur le forum
Sur le passage de variable depuis bouton de barre de menu.,ect etc
Bonne journée
Jean marie
 
Dernière édition:

Statistiques des forums

Discussions
311 711
Messages
2 081 792
Membres
101 817
dernier inscrit
carvajal