Attribuer une valeur à un bouton

Question

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 !



Configuration: Windows / Mozilla 11.0

Gyrus · Answer

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

Attribuer une valeur à un bouton

1 réponse

Discussions similaires

Newsletters