Saisie de chiffre par boutons

[pizzaman]

Bonsoir,
J'ai besoin de saisir une somme dans une même cellule via des boutons

Par exemple je veux le nombre "12" dans la cellule B3
J'appuie donc sur un bouton pour afficher un "1" en B3
puis j'appuie sur un autre bouton pour afficher un "2" en B3 juste à coté du "1"

En fait je n'arrive pas à ne pas effacer les chiffres déjà présent dans cette cellule

Si quelqu'un a une formule pour ca?

Merci

 

[soenda]

Re : Saisie de chiffre par boutons

Bonjour le fil, pizzaman

Si on suppose que tes boutons s'appelle "btn1" et "btn2", on peut avoir par exemple :

Private Sub btn1_Click()
   [B3] = 1
End Sub
 
Private Sub btn2_Click()
   [B3] = [A1] & 2  [B][COLOR=green] ' Concaténation[/COLOR][/B]
End Sub

Si tu cliques sur :
- btn1 => [B3] = 1
- btn1 puis btn2 => [B3] = 12
- btn2 (si [B3] = "") => 2

A plus

 

[pizzaman]

Re : Saisie de chiffre par boutons

je n'y arrive pas
Je dois bien l'écrire comme ca?

Sub Macro10()
'
' Macro10 Macro
'

'
    Private Sub btn2_Click()
   [B3] = [A1] & 2   ' Concaténation
End Sub

 

[pizzaman]

Re : Saisie de chiffre par boutons

Je ne sais pas si je me suis bien expliqué

En fait, il faut que si je tape sur le bouton "1" cinq fois de suite, il s'affiche "11111" dans la même cellule

 

[Hulk]

Re : Saisie de chiffre par boutons

Hello,

Essaie ces codes dans tes boutons.

Private Sub CommandButton1_Click()

    Dim x As Range

    Set x = [B3]

    x = x & 1

End Sub

Private Sub CommandButton2_Click()

    Dim x As Range

    Set x = [B3]

    x = x & 2

End Sub

Cdt, Hulk.

EDIT : Ou plus simplement sans variables.

Private Sub CommandButton1_Click()

    [B3] = [B3] & 1

End Sub

Private Sub CommandButton2_Click()

    [B3] = [B3] & 2

End Sub

Bye.

 

[pizzaman]

Re : Saisie de chiffre par boutons

Super, ca marche impec! 🙂
Merci