Top Assistante - Macros Exemples : calculer un TTC

Macros / VBA > Index

04-Mai-2005

Le code
Les commentaires

Calculer un TTC

Le code

Voici une macro développée pour répondre à la question posée dans le forum par Martine :

"Existe-t'il une solution sous Word pour calculer un TTC sans passer par la calculette Windows".

Copier la macro...

Ouvrez l'éditeur de code (Alt F11)
Dans l'explorateur de projet (à gauche), repérez Normal puis double-cliquez sur ThisDocument.
Recopiez le code ci-dessous (éventuellement, faites un copier-coller en veillant bien à respecter les sauts de ligne signalées par l'indication sdl) :

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

Eventuellement, faites un clic droit sur votre barre d'outils et sélectionnez l'option Personnaliser. Dans la partie "Catégories", sélectionnez "Macros" et, à droite, sélectionnez la macro Normal.ThisDocument.tva et déplacez-la vers votre barre d'outils pour y accéder plus aisément (pour plus d'info sur le sujet, cf. la leçon Personnaliser ses icônes)

Avant de lancer la macro, positionnez votre curseur à l'emplacement où devra être inséré le résultat de l'opération.

Haut

Niveau

Pré-requis :

Avoir suivi les leçons
3 et 4