XL 2016 Soustraction avec format monétaire dans textbox

[dindin]

Bonjour,
j'ai 3 textbox, soit:

TextBox3.Value = Val(TextBox1.Value) - Val(TextBox2.Value)

en utilisant le . la soustraction fonctionne bien.
le souci c'est quand je remplace le point par une virgule voir photo)

- Comment peut-on remédier à ce problème de format?
j'utilise ce code pour essayer de forcer le format monétaire dans une textbox mais ce code ne fonctionne pas :

'Private Sub TextBox1_Change()
'Me.TextBox1.Value = Format(Me.TextBox1.Value, "# ##0.00 €")
'End Sub
'
'Private Sub TextBox2_Change()
'Me.TextBox2.Value = Format(Me.TextBox2.Value, "# ##0.00 €")
'End Sub
'
'Private Sub TextBox3_Change()
'Me.TextBox3.Value = Format(Me.TextBox3.Value, "# ##0.00 €")
'End Sub

Merci pour votre aide
je joins le fichier

 

[Dranreb]

Bonjour.
Essayez :

Private Sub Calculer_Click()
   TextBox3.Text = Format(CCur(TextBox1.Text) - CCur(TextBox2.Text), "#,##0.00 €")
   End Sub

 

[job75]

Bonjour dindin,

Avec ce code dans l'UserForm il n'y a pas besoin du bouton :

Private Sub TextBox1_Change()
TextBox3 = Format(Val(Replace(TextBox1, ",", ".")) - Val(Replace(TextBox2, ",", ".")), "# ##0.00 €")
End Sub

Private Sub TextBox2_Change()
TextBox1_Change
End Sub

Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(Val(Replace(TextBox1, ",", ".")), "# ##0.00 €")
End Sub

Private Sub TextBox2_AfterUpdate()
TextBox2 = Format(Val(Replace(TextBox2, ",", ".")), "# ##0.00 €")
End Sub

A+

 

[dindin]

Merci à vous deux, pour ces 2 belles propositions.

 

[richi2casa]

Bonjour dindin,

Avec ce code dans l'UserForm il n'y a pas besoin du bouton :

Private Sub TextBox1_Change()
TextBox3 = Format(Val(Replace(TextBox1, ",", ".")) - Val(Replace(TextBox2, ",", ".")), "# ##0.00 €")
End Sub

Private Sub TextBox2_Change()
TextBox1_Change
End Sub

Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(Val(Replace(TextBox1, ",", ".")), "# ##0.00 €")
End Sub

Private Sub TextBox2_AfterUpdate()
TextBox2 = Format(Val(Replace(TextBox2, ",", ".")), "# ##0.00 €")
End Sub

A+

Private Sub Calculer_Click()
TextBox3 = Format(Val(Replace(TextBox1, ",", ".")) - Val(Replace(TextBox2, ",", ".")), "# ##0.00 €")
End Sub


Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(Val(Replace(TextBox1, ",", ".")), "# ##0.00 €")
End Sub

Private Sub TextBox2_AfterUpdate()
TextBox2 = Format(Val(Replace(TextBox2, ",", ".")), "# ##0.00 €")
End Sub