Attribuer une valeur à un bouton

Philippe -
Gyrus Messages postés 3360 Statut Membre - 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 !

Afficher la suite

A voir également:

Attribuer une valeur à un bouton
Attribuer une lettre à un disque dur - Guide
A quoi servent les boutons de couleur sur une telecommande - Guide
Comment attribuer une sonnerie à un contact sur iphone - Guide
Comment faire une capture d'écran sur un samsung sans bouton ? - Guide
Bouton shift pc - Forum Jeux vidéo

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3360 Statut Membre 526

Bonjour,

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

A+

Discussions similaires

Bouton ON/OFF : O ou I, quel côté est allumé

Où est la touche SHIFT sur mon clavier d'ordi ?

Arrêt/démarrage via Bouton ON/OFF de l'alim

Quel est la touche shift sur le clavier

Comment écrire le symbole On/Off

Discussions similaires

Newsletters