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