Bonjour,
J'ai un bouton à bascule avec un petite bout de code mais j'ai un soucis.
Je veux, lorsque l'on clique sur le bouton, que le texte devienne OUI. Pour ça cela fonctionne parfaitement.
Mais! Lorsque l'on reclique sur le bouton, je veux que le texte devienne NON, or rien ne se passe...
J'aimerai aussi avoir le NON qui s'affiche avant de cliquer, avoir NON de base.
Pouvez-vous trouver l'erreur dans mon code?
Bouton de départ sans cliquer (j'aimerai que NON apparaisse de base):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private Sub Bascule613_Click() If Bascule = True Then Bascule613.Caption = "NON" Bascule613.ForeColor = vbRed Else Bascule613.Caption = "OUI" Bascule613.ForeColor = vbBlack End If End Sub
Bouton après clique souris:
Bouton après un second clique souris (j'aimerai que NON apparaisse):
J'ai mis mon code sur "Événement sur clic".
Merci.
Partager