XL 2016 Soustraction avec format monétaire dans textbox

dindin · 18 Août 2021

Bonjour,
j'ai 3 textbox, soit:

VB:

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 :

Code:

'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 · 18 Août 2021

Bonjour.
Essayez :

VB:

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

job75 · 18 Août 2021

Bonjour dindin,

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

VB:

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 · 19 Août 2021

Merci à vous deux, pour ces 2 belles propositions.

richi2casa · 14 Janvier 2023

job75 à dit:

Bonjour dindin,

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

VB:

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

XL 2016 Soustraction avec format monétaire dans textbox

dindin

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

dindin

XLDnaute Occasionnel

richi2casa

XLDnaute Nouveau

Discussions similaires