Daher Ali
XLDnaute Junior
Bonsoir le FORUM,
Je sollicite votre aide, j'ai 3 textbox dans le userform, et je souhaite effectuer une multiplication entre 2 textbox pour donner le résultat dans la 3ieme.
joint les code des differents textbox :
l'erreur vient sur : TextBox1 = CDec(Cont2) * CDec(Cont4) du Private Sub Cont4_AfterUpdate() car Cont2 = Format(Cont2, "# ##0.00") est considerer comme numerique et Cont4 = Format(Cont4, "# ##0.00 €") non cause du signe EURO et Espace
Je n'arrive pas à trouver la solution.
Merci de m'aider.
Je sollicite votre aide, j'ai 3 textbox dans le userform, et je souhaite effectuer une multiplication entre 2 textbox pour donner le résultat dans la 3ieme.
joint les code des differents textbox :
VB:
Private Sub Cont2_AfterUpdate()
Cont2 = Format(Cont2, "# ##0.00")
If Me.Cont2.Value = "" Or Me.Cont4.Value = "" Then Exit Sub
TextBox1 = CDec(Cont2) * CDec(Cont4)
End Sub
Private Sub Cont4_AfterUpdate()
Cont4 = Format(Cont4, "# ##0.00 €")
If Me.Cont2.Value = "" Or Me.Cont4.Value = "" Then Exit Sub
TextBox1 = CDec(Cont2) * CDec(Cont4)
End Sub
Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1.Value, "# ##0.00 €")
End Subl'erreur vient sur : TextBox1 = CDec(Cont2) * CDec(Cont4) du Private Sub Cont4_AfterUpdate() car Cont2 = Format(Cont2, "# ##0.00") est considerer comme numerique et Cont4 = Format(Cont4, "# ##0.00 €") non cause du signe EURO et Espace
Je n'arrive pas à trouver la solution.
Merci de m'aider.