Attribuer une valeur à un bouton

Philippe -  
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour, 

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


A+
0

Discussions similaires

Comment affecter une valeur à une cellule contenant du texte
kessya2002 -
Utilisateur anonyme -

6 réponses
Où est la touche SHIFT sur mon clavier d'ordi ?
joe! -
fernando-_ytb -

18 réponses
Problème de restrictions
SuperAmbi -
Pat -

5 réponses
[EXCEL] - Attribuer une valeur numérique à un mot
Stev28fr -
Stev28fr -

5 réponses
Quel est la touche shift sur le clavier
paoade -
PRIPRI -

8 réponses