XL 2010 ToggleButton

[Eric4709]

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.

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

 

[fanch55]

Bonjour,
Le ruban personnalisé a été créé via CUSTOMUI ?
Pourriez-vous fournir un exemplaire de Test ?
(sinon on risque de ne pas parler de la même chose )

 

[ChTi160]

Bonsoir Eric4709
Bonsoir fanch55
En passant la valeur du togglebutton dans le OnAction de ce bouton.
Jean marie

 

[Eric4709]

BonjourChTi160,

La macro que j'ai présenté est effectivement celle appelée par le OnAction du bouton par la fonction Call.

Merci d'avoir pris le temps de répondre.

 

[ChTi160]

Bonjour Eric4709
Bonjour le Fil ,le Forum
Il faut donc faire un truc du genre.

.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