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%.
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