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

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.

■