Erreur calcul entre textbox

Bonjour à toutes et tous,

dans le fichier ci-joint je n’arrive pas à faire les calculs entre les textbox.

J’ai placé des codes du mieux que j’ai pu, mais cela ne colle pas et je sèche !

Explications:

Lorsque j’ouvre le UserForm et que je clique sur une ligne dans la listbox, je dois renseigner le textbox Qté et le calcul devrait se faire pour les autres textbox.

Alors je ne suis pas sûr mais je pense que le problème est lié au calcul de pourcentage ( TVA) qui doit être de 5,5%.

Je vous remercie d’avance pour votre aide.

Rubis
Rubis17.xlsm (23,1 Ko)

Sub CalculSomme100()
     On Error Resume Next
     Me.TextBox15.Value = Me.TextBox13.Value * 0.055
     Me.TextBox18.Value = Val(Replace(Me.TextBox13, ",", ".")) + Val(Replace(Me.TextBox15, ",", "."))
     Me.TextBox18.Value = Format(CDbl(Me.TextBox18.Value), "#0.000 €")
End Sub

Textbox15 = montant du TVA = Textbox13 *.055, si vous ajoutez aussi Textbox13, c’est le montant TVA inclu
Il faut éviter ce « on error resume next », cela cache les erreurs mais ne les résoud pas

1 « J'aime »

Bonjour,

donc je remplace juste le code CalculSomme100 ?

oui, juste la première ligne

1 « J'aime »

Bonjour,

super, Merci pour les bonnes infos.
Bon dimanche et à une prochaine.

Rubis

1 « J'aime »