entree chiffre ds usf

[Dennnisss]

bonjour a vous tous

j'ai creer une userform J,entre des donnees dans 36 textbox different
et je fait un test du if entre chaque et donne une reponse de 1 pour le plus eleve cela va bien sauf

ex si j'entre 10 dans textbox1 c,est correct
si j'entre 20 dans textbox2 il tient compte du 2 au lieu du 20
alors il n'envoi pas la bonne reponse

a t'il une facon d'entree le textbox au complet et peser enter et apres il fait sont test

j'ai impression que ma ligne fautive et le private sub

Private Sub TextBox36_Change()
If Not IsNumeric(TextBox36) Then
Label66.Caption = ""
Exit Sub
End If
f6 = Val(TextBox36.Value)
ff1 = Val(Label70.Caption)
Label56 = d6 + e6 + f6
Label73 = f1 + f2 + f3 + f4 + f5 + f6 + ff1
If IsNumeric(Label29.Caption) Then x3 = CDbl(Label29.Caption)
If IsNumeric(Label73.Caption) Then y3 = CDbl(Label73.Caption)
If x3 > y3 Then
Label93 = 1
Else
Label97 = 1
End If
Label85 = d1 + e1 + f1 + d2 + e2 + f2 + d3 + e3 + f3 + d4 + e4 + f4 + d5 + e5 + f5 + d6 + e6 + f6 + ff1 + ff1 + ff1
If IsNumeric(Label41.Caption) Then x4 = CDbl(Label41.Caption)
If IsNumeric(Label85.Caption) Then y4 = CDbl(Label85.Caption)
If x4 > y4 Then
Label94 = 1
Else
Label98 = 1
End If
Label88 = f1 + f2 + f3 + f4 + f5 + f6
End Sub


alors j'attend votre reponse
et bonne soiree a tous

merci dennnisss🙄 🙄

 

[Mytå]

Re : entree chiffre ds usf

Salut le Forum

Et nous on attends un fichier exemple

Mytå