[E-07] checkBox -> cocher et decocher
Bonjour,
j'ai un userform qui ne contiens qu'une checkbox.
Je voudrais pouvoir cochoer/décocher celle-ci à volonté.
Mais je dois passer à travers quelque chose:
voici mon code:
Code:
1 2 3 4 5 6 7 8 9 10
|
Private Sub CheckTempsReel_Click()
If (ancienneValeur = False) Then
CheckTempsReel.Value = 1
ancienneValeur = True
ElseIf (ancienneValeur = True) Then
CheckTempsReel.Value = 2
ancienneValeur = False
End If
End Sub |
Anciennevaleur est initialisé lors du initialize du userform à faux vu que la checkbox est décochée.
Le comportement obtenus:
Je clique ca ce coche je reclique ca reste coché...
Je ne comprend pas ...
Merci de vos réponses...
HqSeO