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 !

A voir également:

Attribuer une valeur à un bouton
Attribuer une sonnerie à un contact - Guide
Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? - Forum VB / VBA
Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
Comment débloquer un bouton enfoncé - Forum Samsung
Réinitialiser chromecast sans bouton - Guide

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
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+

Discussions similaires

Comment affecter une valeur à une cellule contenant du texte

Problème de restrictions

Quel est la touche shift sur le clavier

[EXCEL] - Attribuer une valeur numérique à un mot

ou est la touche shift sur un clavier