Macro pour calculer la TVA, Excel VBA

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.

 

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x