Autres code VBA pour le calculede la tva

[samia89]

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 Sub TextBox20_Change()


TextBox20 = Replace(TextBox20, ".", ",")

    If TextBox20 <> "" And TextBox21 <> "" Then
                     '20 QUATITE          '21 PRIXU
        TextBox22 = CDbl(TextBox20) * CDbl(TextBox21)
        
        'MONTENT tva      'MONTENT HT
        TextBox23 = Round(TextBox22 * CDbl(Me.ComboBox1.Value), 2)
        tva = Round(ht * CDbl(Me.ComboBox1.Value), 2)
        Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "0%")
        TextBox25 = CDbl(TextBox23) + CDbl(TextBox22) '25 TTC


    End If
End Sub
et merci

Private Sub TextBox21_Change()
TextBox21 = Replace(TextBox21, ".", ",")
If TextBox20 <> "" And TextBox21 <> "" Then
        TextBox22 = CDbl(TextBox20) * CDbl(TextBox21)
        TextBox23 = Round(TextBox22 * CDbl(Me.ComboBox1.Value), 2)
        Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "0%")
        TextBox25 = CDbl(TextBox23) + CDbl(TextBox22)

    End If
End Sub
Private Sub UserForm_Initialize()
 
 
 Me.ComboBox1.List = Array("0,19", "0,17")

 End Sub

et merci

 

[sylvanu]

Bonjour Samia,
Les Textbox renvoie du texte. J'ai passé
TextBox23 = Round(TextBox22 * CDbl(Me.ComboBox1.Value), 2)
par
TextBox23 = Round(Val(Me.ComboBox1.Value) * Val(TextBox22), 2)
L'erreur a disparue, mais il faut revoir l'ensemble car il y a surement d'autres problèmes.