Attribuer une valeur à un bouton

Fermé
Philippe - 1 juin 2016 à 22:54
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 1 juin 2016 à 23:01
Bonjour,

J'aimerais créer un bouton qui une fois coché offre une valeur (par exemple 5) et si il est décoché la valeur redevient 0. J'ai essayé avec ce paramétrage, mais je ne sais pas comment faire pour avoir la valeur 0 si le bouton est décoché.

Sub Caseàcocher1_Cliquer()
Range("A1").Select
ActiveCell = ActiveCell + 5


End Sub

Merci déjà pour votre réponse !



1 réponse

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
1 juin 2016 à 23:01
Bonjour,

Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
Range("A1") = 5
Else
Range("A1") = 0
End If
End Sub


A+
0