[VB] - Problème avec msgbox

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:

---

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 :)

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 :koi:

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

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

Code:

---

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)

---

Citation:

---

Envoyé par bidou

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

Code:

---

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:

---

TotalTTC = (TotalHT * TxTVA / 100) + TotalHT

---

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

Merci mon problème est réglé :D

Citation:

---

Envoyé par franck1001

Merci mon problème est réglé :D

---

Alors qu'attends tu pour mettre :resolu: ? :mouarf:

Code:

---

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

---

Voilà la principale raison pour laquelle je n'aime pas Visual Basic... sur une instruction comme ça, le compilateur aurait dû te jeter ! Parce que ça n'a aucun sens d'attribuer une valeur de type MsgBoxResult à une variable de type Currency...
Oui, je sais, c'est hors-sujet :aie:

Msgbox renvoie un entier, je ne vois pas trop pourquoi le compilateur devrait interdire le cast d'un entier dans un currency.

Ce n'est pas ce que dit la doc...
C'était peut-être le cas en VB6, mais pas en VB.NET

c'est exactement ce que dit la doc, MsgBoxResult n'est pas un type mais une énumération définit telle que

Code:

---

Public Enum MsgBoxResult As Integer

---

Ah ok... je n'étais pas allé voir la définition de MsgBoxResult
Reste quand même que fonctionnellement ça n'avait aucun sens !