Discussion :

[franck1001]

Bonjour,

J'ai un algo à faire en VB.

Le début ce passe bien mais à la fin de l'algo j'ai

TotalHT <-- (TotalHT )
TotalTTC <-- (TotalHT * TxTVA)

Voici ce que j'ai fait depuis le début :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim reference As Integer
Dim designation As String
Dim PU_HT, TotalTTC, TotalHT As Currency
Dim TxTVA As Currency
Dim quantiteAchetee As Integer

reference = InputBox("Saisir la référence")
designation = InputBox("Saisir la désignation")
PU_HT = InputBox("Saisir le prix unitaire Hors Taxe")
quantiteAchetee = InputBox("Saisir la quantité achetée")



TotalHT = MsgBox("Total hors taxe :" & PU_HT * quantiteAchetee)

TxTVA = InputBox("Saisir le taux de la TVA")

TotalTTC = MsgBox("Total TTC :" & TotalHT * TxTVA / 100)

Et j'ai un problème à la fin (ce qui est en gras) car je voudrais que la msgbox ("Total hors taxe :" & PU_HT * quantiteAchetee) s'appelle TotalHT comme ça pour le calcule en TTC, j'aurais plus qu'à faire TotalHT * TxTVA/100

Mais ça ne fonctionne pas, le total TTC me donne toujours 0,196 (quand je met en taux de TVA 19,6). Il ne prend donc en compte seulement la valeur de la TVA et non pas celle du prix total HT.

Si vous pouvez m'aider un peu, ça serait sympa.

Merci d'avance

[bidou]

sachant que la valeur de retour de msgbox est fixé par la valeur du bouton cliqué, c'est un peu normal que ça renvoie le taux de TVA

[franck1001]

Hum merci de la réponse déjà, mais que dois-je modifier ? J'suis débutant en VB désolé

[bidou]

en séparant la logique d'affichage du calcul :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
TotalHT = PU_HT * quantiteAchetee
MsgBox("Total hors taxe :" & TotalHT)
TxTVA = InputBox("Saisir le taux de la TVA")
TotalTTC = TotalHT * TxTVA / 100
MsgBox("Total TTC :" & TotalTTC)

[Poulain]

en séparant la logique d'affichage du calcul :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
TotalHT = PU_HT * quantiteAchetee
MsgBox("Total hors taxe :" & TotalHT)
TxTVA = InputBox("Saisir le taux de la TVA")
TotalTTC = TotalHT * TxTVA / 100
MsgBox("Total TTC :" & TotalTTC)

Si je ne me trompe pas tu as fait une belle faute pour l'avant dernière ligne !!!!
je pense que ça devrait plutot etre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TotalTTC = (TotalHT * TxTVA / 100) + TotalHT

Je ne sais pas si je peux mettre les parenthèses.

[franck1001]

Merci mon problème est réglé