bonjour ; tout le mon j'ai besoin de votre aide svp pouvez vous me corriger ce code de calcule PRIX HT TVA TTC sur Userform il me renvois l'erreur suivant N13 'Incompatibilité type : voila le code et je vous joint mon classeur
Private test As Boolean 'déclare la variable test
Private Sub ComboBox1_Change() 'au changement dans la ComboBox1
Dim ht As Double 'déclare la variable ht (Hort Taxe)
Dim tva As Double 'déclare la variable tva (T.V.A)
Dim ttc As Double 'déclare la variable ttc (T.T.C)
Dim pru As Double 'déclare la variable pru(PRIXU)T4
Dim qua As Double 'déclare la variable qua(QUANTITE) T5
If test = True Then Exit Sub
If Me.TextBox5.Value = "" Then Exit Sub
test = True
pru = Me.TextBox4.Value
qua = Me.TextBox5.Value
ht = CDbl(pru * qua)
tva = Round(ht * CDbl(Me.ComboBox1.Value), 2)
Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "0%")
ttc = Round(ht + tva, 2)
Me.TextBox4.Value = pru
Me.TextBox1.Value = ht
Me.TextBox2.Value = tva
Me.TextBox3.Value = ttc
test = False
End Sub
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.List = Array("0.19%", "0.17%")
End Sub
et merci.