Tva

[apdf]

Bonjour,

J'ai un formulaire et j'aimerais calculer du TTC vers le H.T a l'aide de deux Option Bouton pour le choix du taux de TVA.

Ci joint mon fichier qui seras plus parlant.

Cordialement

Max

 

[Dull]

Re : Tva

Salut apdf, le Forum

Peut-être comme cela si j'ai bien compris

Private Sub OptionButton1_Click()
TextBox2 = Round(Val(TextBox1) / (1 + "0.07"), 2)
TextBox3 = Round(Val(TextBox1) - Val(TextBox2), 2)
End Sub

Private Sub OptionButton2_Click()
TextBox2 = Round(Val(TextBox1) / (1 + "0.196"), 2)
TextBox3 = Round(Val(TextBox1) - Val(TextBox2), 2)
End Sub

Bonne Journée

 

[apdf]

Re : Tva

Bonjour Dull,

Je te remercie mais j'ai un message d'erreur sur la ligne

TextBox2 = Round(Val(TextBox1) / (1 + "0.07"), 2)

Incompatibilité de type ?

@+

Max

 

[mapomme]

Re : Tva

Bonjour,

Un essai dans le fichier joint:

Private Sub OptionButton1_Click()
    TextBox1_Change
End Sub

Private Sub OptionButton2_Click()
    TextBox1_Change
End Sub

Private Sub TextBox1_Change()
If Not OptionButton1 And Not OptionButton2 Then OptionButton1 = True
If TextBox1 = "" Then
    TextBox2 = ""
    TextBox3 = ""
Else
    TextBox2 = CDbl(TextBox1) / IIf(OptionButton1, 1.07, 1.196)
    TextBox2 = Format(TextBox2, "0.00")
    TextBox3 = CDbl(TextBox1) - CDbl(TextBox2)
    TextBox3 = Format(TextBox3, "0.00")
End If
End Sub

 

[apdf]

Re : Tva

Bonjour Mapomme,

Nickel je te remercie et te souhaite une bonne journée

@+
Max