Bouton a clicquer renvoi la valeur 1 dans une cellule apres avoir cliquer

[vini0905]

Bonjour à tous,

J'essaye de créer un document Excel avec des boutons à cliquer et à chaque clique je souhaite que le click renvoi la valeur 1 dans une cellule (voir document ci-joint) et si possible en clickant 2 fois sur le même bouton que la valeur renvoyée soit 2.

D'avance merci pour votre aide.

C'est pour gérer un stand à la quermesse de mon fils pour les encaissements des boissons. 😉

 

[stefan373]

Bonjour vini0905 et le forum.

Voilà si cela vous conviens.

Private Sub CommandButton1_Click()
Range("A6").Select
    ActiveCell.FormulaR1C1 = ActiveCell.Value + 1
    Range("B6").Select
End Sub

A +

 

[Etienne2323]

Re : Bouton a clicquer renvoi la valeur 1 dans une cellule apres avoir cliquer

Salut vini,
pourquoi ne pas utiliser le bouton toupie ? (spinbutton en anglais). De cette manière, si ton fils fait une erreur et ajoute un 1 de trop, alors il pourra l'enlever directement.

Tu n'as qu'à l'ajouter en passant par les contrôles activeX (chez moi : Microsoft 2.0 Forms - Spinbutton) et ensuite mettre le code suivant dans le module de la feuille sur laquelle se trouve le spinbutton.

Voir l'exemple en pièce jointe.

Option Explicit
Private Sub SpinButton1_SpinUp()
ActiveSheet.Range("A1").Value = ActiveSheet.Range("A1").Value + 1
End Sub

Private Sub SpinButton1_SpinDown()
ActiveSheet.Range("A1").Value = ActiveSheet.Range("A1").Value - 1
End Sub

Cordialement,

Étienne