Le code
Les commentaires

Calculer un TTC

Les commentaires

Reprenons notre code :

Sub tva() sdl
ht = InputBox("Veuillez saisir le montant ht sous la forme 1000,00" & Chr(10) & "Ecrivez sans espace et en utilisant le point comme séparateur") sdl
ht = Format(ht, "#,##0.00") sdl
tva1 = InputBox("Taux de TVA", "Taux de TVA à appliquer" & Chr(10) & "N'ajoutez pas de % et utilisez le point comme séparateur", "19,6") sdl
tva1 = Format(tva1, "#,##0.00") sdl
ttc = Format(((ht * (tva1 / 100)) + ht), "#,##0.00") sdl
Selection.InsertAfter ttc sdl
End Sub sdl

1. L'instruction ht = InputBox("Veuillez saisir le montant ht sous la forme 1000,00" & Chr(10) & "Ecrivez sans espace et en utilisant le point comme séparateur") demande à l'ulisateur de saisir un montant à qui on affecte le nom ht

2. ht est ensuite convertit à l'aide de l'instruction Format. A noter qu'en VBA on inverse le point (.) et la virgule (,).

3. On demande ensuite à l'utilisateur de saisir un montant de TVA. Par défaut on lui suggère le taux le plus répandu, 19,6%. Ce taux s'appelle tva1

4. On formate ensuite tva1 selon le même principe que ht, toujours à l'aide de l'instruction Format.

5. ttc = Format(((ht * (tva1 / 100)) + ht), "#,##0.00") contient la formule de calcul (le ht x tva/100 donne le montant de tva. Ce montant est ensuite ajouté au ht pour donner le TTC). Ce résultat est ensuite formaté à l'aide de l'instruction Format.

6. Enfin, l'instruction Selection.InsertAfter ttc insère le résultat (appelé ttc) à l'emplacement où se trouve le curseur.

Niveau

Pré-requis :

• InputBox

• Format