Chiffre numérique dans texbox

[adinnn]

Bonjour à tous,

J'ai fait une petite application et j'aimerais que lorsque j'appuie sur un chiffre de 0-9 celui-ci s'inscrive dans textbox1. J'ai utilisé le textbox.value mais le probleme est que le dernier chiffre entré n'est jamais conservé.

*cliquer sur B1-B5 pour voir la fenetre apparaitre.

Des idées de code?

Voir pièce jointe

 

[Pierrot93]

Re : Chiffre numérique dans texbox

Bonjour,

regarde peut être ceci :

TextBox1.Value = TextBox1.Value & CommandButton2.Caption

A voir si tu n'aurais pas interet à utiliser un module de classe... une petite recherche sur le forum te fournira des exsemples...

bonne journée
@+

Edition : bonjour Dull

 

[Dull]

Re : Chiffre numérique dans texbox

Salut adinnn, le Forum

Pas trop compris ce que tu veut mais essaye de créer un module de Classe. Ce Module te permet d'associer un seul code pour tout tes Boutons
copie le code ci-dessous

Option Explicit
Public WithEvents CButtonGroup As MSForms.CommandButton

Private Sub CButtonGroup_Click()
    UserForm2.TextBox1 = UserForm2.TextBox1 & CButtonGroup.Caption
End Sub

et dans l'initialize de l'USF 2

colle celui-ci

Option Explicit
Dim BtnGroup() As New Classe1, BtnCompte As Byte, Ctrl As Control

Private Sub UserForm_Initialize()
For Each Ctrl In UserForm2.Controls
    If TypeName(Ctrl) = "CommandButton" And Ctrl.Name <> "CommandButton11" And Ctrl.Name <> "CommandButton12" And Ctrl.Name <> "CommandButton13" Then
        BtnCompte = BtnCompte + 1
        ReDim Preserve BtnGroup(1 To BtnCompte)
        Set BtnGroup(BtnCompte).CButtonGroup = Ctrl
    End If
Next Ctrl
End Sub

EDITION: Salut Pierrot

Bonne Journée

 

[Si...]

Re : Chiffre numérique dans texbox

salut

...
Pas trop compris ce que tu veut mais essaye de créer un module de Classe. Ce Module te permet d'associer un seul code pour tout tes Boutons ...

mais il en a de partout, Dull !

On peut créer aussi un Module de Classe pour l'Usf 1. J'ai mis plutôt une liste déroulante.