grisan29
XLDnaute Accro
bonjour a vous tous
dans cette partie de code
qui fonctionne bien mais me renvoie le calcul du ht de chaque taux
j'ai essayer ceci pour extraire la valeur de la tva
mais les somme sont aléatoire
ce que je voudrais en fait c'est que chaque calcul se fasse correctement
merci de vos suggestions
Pascal
je viensde trouvé réponse a ma question et voila comment j'ai procédé pour une partie
comme vous pouvez le voir il suffisait de rajouter 0.07 où 0.196 a la fin de la 2 eme ligne de code
désolé pour le dérangement
Pascal
dans cette partie de code
Code:
If TextBox17.Value = "" Then
TextBox17.Value = (TextBox8.Value * Txt_qté_vente.Value)
Else
TextBox17.Value = CDbl(TextBox17.Value) + TextBox8.Value * Txt_qté_vente.Value
End If
Else
If TextBox18.Value = "" Then
TextBox18.Value = TextBox8.Value * Txt_qté_vente.Value
Else
TextBox18.Value = CDbl(TextBox18.Value) + TextBox8.Value * Txt_qté_vente.Value
End If
End If
j'ai essayer ceci pour extraire la valeur de la tva
Code:
If TextBox17.Value = "" Then
TextBox17.Value = (TextBox8 * Txt_qté_vente.Value) * 0.07
Else
TextBox17.Value = CDbl(TextBox17.Value + TextBox8.Value * Txt_qté_vente.Value)
End If
Else
If TextBox18.Value = "" Then
TextBox18.Value = (TextBox8 * Txt_qté_vente.Value) * 0.196
Else
TextBox18.Value = CDbl(TextBox18.Value + TextBox8.Value * Txt_qté_vente.Value)
End If
End If
ce que je voudrais en fait c'est que chaque calcul se fasse correctement
merci de vos suggestions
Pascal
je viensde trouvé réponse a ma question et voila comment j'ai procédé pour une partie
Code:
If TextBox17.Value = "" Then
TextBox17.Value = TextBox8.Value * Txt_qté_vente.Value * 0.07
Else
TextBox17.Value = CDbl(TextBox17.Value) + TextBox8.Value * Txt_qté_vente.Value * 0.07
End If
désolé pour le dérangement
Pascal
Dernière édition: