Après avoir entré un montant net, l’utilisateur devrait automatiquement voir la TVA.
Sub calculTVA()
Dim Montant As Double
Dim Total As Double
Const TVA = "1,1925"
Montant = Application.InputBox("Calcul TVA", "Veuillez saisir le Montant")
If Montant = 0 Then Exit Sub
Total = Montant * TVA
MsgBox "La taxe de vente est:" & Total - Montant & "Dollars"
End Sub
Sub calculTVA()
Dim Montant As Double
Dim Total As Double
Const TVA = "1,1925"
Montant = Application.InputBox("Calcul TVA", "Veuillez saisir le Montant")
If Montant = 0 Then Exit Sub
Total = Montant * TVA
MsgBox "La taxe de vente est:" & Total - Montant & "Dollars"
End Sub
Sub calculTVA()
Dim Montant As Double
Dim Total As Double
Const TVA = "1,1925"
Montant = Application.InputBox("Calcul TVA", "Veuillez saisir le Montant")
If Montant = 0 Then Exit Sub
Total = Montant * TVA
MsgBox "La taxe de vente est:" & Total - Montant & "Dollars"
End Sub
Figure: Entrez le montant via la boîte de dialogue et faites calculer la TVA
Commentaires
■ Définissez d’abord le taux de TVA actuel dans une constante.
■ Appelez ensuite la méthode Inputbox et demandez à l’utilisateur de saisir un montant.
■ Si l’utilisateur clique sur le bouton ANNULER, le programme se retrouve immédiatement avec l’instruction Exit Sub. Sinon, le montant total est d’abord calculé à partir du montant net et du pourcentage de TVA.
■ Sinon, le montant total est d’abord calculé à partir du montant net et du pourcentage de TVA. Le montant de la TVA est ensuite déterminé et affiché dans une fenêtre de message.
■