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é

[Aspic]

Merci mon problème est réglé

Alors qu'attends tu pour mettre ?

[tomlev]

Code :

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

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

[bidou]

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

[tomlev]

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

[bidou]

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

Code :

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

Public Enum MsgBoxResult As Integer

[tomlev]

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