Que des Valeurs numériques dans plusieur TextBox

[chaelie2015]

Bonjour Forum
ci dessous un code pour afficher lors de la saisie dans TextBox une valeur numérique seulement , mob souci comment généraliser ce code pour plusieurs TextBox ?

Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1) Then
    Cancel = True
    MsgBox "Seules les valeurs numériques sont acceptables.", _
    vbInformation + vbOKOnly, "Attention"
    Me.TextBox1.SelStart = 0
    Me.TextBox1.SelLength = Len(TextBox1)
End If
End Sub

Salutations

 

[Pierrot93]

Re : Que des Valeurs numériques dans plusieur TextBox

Bonjour,

regarde du coté des modules de classe, tu trouveras de nombreux exemples sur ce forum...

bonne journée
@+

 

[CHALET53]

Re : Que des Valeurs numériques dans plusieur TextBox

Bonjour Charlie, Pierrot

Pour compléter la proposition de Pierrot, un exemple

a+

 

[Bebere]

Re : Que des Valeurs numériques dans plusieur TextBox

bonjour Charlie,Pierrot
un exemple de module de classe

 

[chaelie2015]

Re : Que des Valeurs numériques dans plusieur TextBox

Bonjour Pierrot, CHALET,Bbere
Merci pour vos propositions les deux sont formidables et comme la proposition de bebere est plus proche a mon appli,
je souhaite en premier lieu ajouter un LABEL pour afficher la somme des ces TextBox et affecter ces textBox a des cellules dans la feuille
Salutations

 

[chaelie2015]

Re : Que des Valeurs numériques dans plusieur TextBox

Bonjour
pour le point suivant c'est réglé

Bonjour Pierrot, CHALET,Bbere
......... et affecter ces textBox a des cellules dans la feuille
Salutations

j'ai ce code affecter au bouton de validation de USF

Private Sub CommandButton1_Click() 'valider
Range("Y1") = TextBox1.Value 'Ecrit enY1 la valeur de Textbox1
Range("Y2") = TextBox2.Value 'Ecrit enY2 la valeur de Textbox2
Range("Y3") = TextBox3.Value 'Ecrit enY3 la valeur de Textbox3
Range("Y4") = TextBox4.Value 'Ecrit enY4 la valeur de Textbox4
Unload Me 'Vide et ferme le UserForm
End Sub

Il me reste ce point

Bonjour Pierrot, CHALET,Bbere
.... je souhaite en premier lieu ajouter un LABEL pour afficher la somme des ces TextBox .........
Salutations

Salutations

 

[Bebere]

Re : Que des Valeurs numériques dans plusieur TextBox

bonjour Chalet
Charlie mettre dans le code du bouton Me.Label1 = "Label1"
c'est la propriété caption qui est utilisée
tu peux écrire Me.Label1.caption = "Label1"
à ajouter dans module de classe(pris celui qui est en commentaire)

Private Sub Objtxt_Change()

If UserForm1.Label1 = "Label1" Then
UserForm1.Label1 = Objtxt.Value
Else
UserForm1.Label1 = CDbl(UserForm1.Label1) + CDbl(Objtxt.Value)
End If

End Sub

 

[chaelie2015]

Re : Que des Valeurs numériques dans plusieur TextBox

bonjour Chalet
Charlie mettre dans le code du bouton Me.Label1 = "Label1"
c'est la propriété caption qui est utilisée
tu peux écrire Me.Label1.caption = "Label1"
à ajouter dans module de classe(pris celui qui est en commentaire)

Private Sub Objtxt_Change()

If UserForm1.Label1 = "Label1" Then
UserForm1.Label1 = Objtxt.Value
Else
UserForm1.Label1 = CDbl(UserForm1.Label1) + CDbl(Objtxt.Value)
End If

End Sub

Re
merci pour la réponse, mais sincèrement j'ai mal saisie

.....code du bouton Me.Label1 = "Label1"

de quel bouton ?

 

[Bebere]

Re : Que des Valeurs numériques dans plusieur TextBox

Charlie celui du #6 plus haut

 

[chaelie2015]

Re : Que des Valeurs numériques dans plusieur TextBox

Re
merci pour les eclaircissement
Salutations