Discussion :

[dlight]

Bonjour à tous.
J'ai un userform avec 2 textbox et un label.

Dans le label, je veux avoir le résultat de textbox3-textbox4 avec le fomat 123.45 par exemple.
Cette section fonctionne bien

J'aimerais que les deux textbox prennent la même forme monétaire.

J'ai donc le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub TextBox3_AfterUpdate()
Dim Val As String
 
Val = Replace(Me.TextBox3, ".", ",")
Val = Format(Val, "0.00")
Val = Replace(Val, ",", ".")
Me.TextBox3 = Val
End Sub
 
Private Sub TextBox3_Change()
'si il n'y a rien dans les textbox on ne calcule pas
If Me.TextBox3.Value = "" Or Me.TextBox4.Value = "" Then
 
Exit Sub
End If
Label11.Caption = Round(Val(TextBox3.Value) - Val(TextBox4), 2)
 
LB11 = Label11
LB11 = Format(LB11, "# ##0.00")
Me.Label11 = LB11
 
End Sub
 
 
Private Sub TextBox4_AfterUpdate()
Dim Val As String
 
Val = Replace(Me.TextBox4, ".", ",")
Val = Format(Val, "0.00")
Val = Replace(Val, ",", ".")
Me.TextBox4 = Val
End Sub
 
Private Sub TextBox4_Change()
'si il n'y a rien dans les textbox on ne calcule pas
If Me.TextBox3.Value = "" Or Me.TextBox4.Value = "" Then
 
Exit Sub
End If
Label11.Caption = Round(Val(TextBox3.Value) - Val(TextBox4), 2)
 
LB11 = Label11
LB11 = Format(LB11, "# ##0.00")
Me.Label11 = LB11
 
 
End Sub

Si je tape 1 dans les textbox, j'ai le résultat 1.00 = Parfait !
si je tape 2.36 dans le textbox, j'ai 13181.00

Je n'ai aucun autre code utilisant les textbox en question.

Quelqu'un peut-il m'expliquer ce que je ne fait pas de la bonne façon ?

Merci

Dlight

[tedo01]

Bonjour,
Si tu exécute le code pas à pas, tu verras que c'est la manipulation avec les , et les . qui pose problème.
Pourquoi, dans l’évènement _AfterUpdate ne pas faire simplement cette ligne ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox3.Value = Format(TextBox3.Value, "0.00")

[dlight]

Merci à vous tedo01

Le novices en VBA aiment bien se compliquer la vie. Merci aux experts de nous ramener à l'ordre !!!

Merci

Dlight

[tedo01]

Mon objectif n'est vraiment pas de ramener les novices en VBA à l'ordre , mais de les aider à devenir des experts

[dlight]

Alors, merci de prendre le temps de rendre les novices en de futurs experts !

Dlight