Discussion :

[soubichat]

Bonjour,
J'ai placé un bouton à bascule dans une feuille et je voudrais m'en servir soit manuellement en cliquant dessus, soit automatiquement depuis une macro.

Pour la partie en manuel, c'est ok avec une macro du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then 'bouton enfoncé
        Range("Z1").Value = "non"
        ToggleButton1.Caption = "bloquée"
        ToggleButton1.BackColor = &HFF       'rouge
        ToggleButton1.ForeColor = &HFFFF&          'jaune
      Else 'bouton normal
        Range("Z1").Value = "oui"
        ToggleButton1.Caption = "débloquée"
        ToggleButton1.BackColor = &HFFFFFF    'blanc
        ToggleButton1.ForeColor = &HFF0000       'bleu
    End If
End Sub

Par contre, je ne sais pas comment agir sur ce bouton depuis une autre macro pour que le bouton soit en position enfoncée ou normale sans clic de ma part. Si je mets un code du type :

if condition then ToggleButton1.Value = True

j'ai le message "la variable togglebutton1 n'a pas été définie".

Merci pour votre aide.

[Minick]

Salut,

Ajoute simplement le nom de la feuille ou se situe l'objet, ca devrait aller.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If condition Then Sheets("NomDeLaFeuilleAvecLObjet").ToggleButton1.Value = True

[laetitia]

bonjour soubichat Minick le forum un autre exemple si dans ta macro tu as seulement 2 conditions tu peus utiliser l'instruction IIf a la place de if

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub es()
  Sheets(2).ToggleButton1 = IIf([H1] = 1, True, False)
End Sub

[soubichat]

Merci Minick, ta solution fonctionne bien.

Merci aussi à laetitia car je ne connaissais pas cette commande. Elle me servira probablement un jour ou l'autre...