Comment calculer entre TextBox ?

Bonjour le forum

Dans mon userform je fais un calcul entre textbox.

Comment éviter le bug

TextBox14= 10.5€

TextBox15= 20%

Donc TextBox16 = 10.5*20% = soit 12.60

Private Sub TextBox16_Change()

    TextBox16 = TextBox14 + (TextBox14 * TextBox15)
    If IsNumeric(TextBox16) Then TextBox16 = CDbl(TextBox16)
    TextBox14 = Format(TextBox14, "# ##0.00€")
    TextBox15 = Format(TextBox15, "# ##0%")
    TextBox16 = Format(TextBox16, "# ##0.00€")
End Sub

cordialement

Laurent

Ps si besoin du fichier laisser moi un peu de temps pour l' anonymisé

Re-bonjour le forum

Voilà mon fichier anonymisé.

Merci

Cordialement

Laurent

Bonjour

Es-tu bien sûr ?

Le_Troll_Du_27 a écrit :

TextBox16 = 10.5*20% = soit 12.60

Pour moi, ça fait 2,1

TextBox16 = Val(TextBox14) * Val(TextBox15) / 100

Bye !

Bonjour le forum, Bonjour le fil

bonjour gmb

gmb a écrit :

Es-tu bien sûr ?

Le_Troll_Du_27 a écrit:

TextBox16 = 10.5*20% = soit 12.60

Un P'tit oublie

Textbox16 = Textbox14 + (Textbox14 * TextBox15)

soit 12.60 = 10.5 + (10.5 * 20%)

Dsl

Cordialement

Laurent

Alors :

Private Sub TextBox14_Change()

    TextBox16 = Val(TextBox14) * (1 + Val(TextBox15) / 100)

End Sub

Bye !