Domaines
RH
Juridique
Compta
Administratif/Moyens Généraux
Communication
Bureautique
Conseils aux débutants
Word
Excel
PowerPoint
Outlook
Access
Publisher

PagePlus (PAO)

Windows/système
PhotoImpact
Conception web : les bases
Applications pas à pas
Tests logiciels
Macros VBA
Leçons
Macros Word
Astuces
Orthographe
Rédaction
Organisation
Produits/services malins
Outils
Ouvrages
Modèles
Macros
Liens
Anglais
Grammaire avec AnglaisFacile
Leçon gratuite avec AnglaisFacile
Carrière
Gestion de carrière
Fiches métier
Témoignages / vécu
Offres d'emploi

Evénements métier
Echos de presse, comptes-rendus

Echanger

Forums
Chater en direct

© Nadège Guilbert
Le contenu de ce site
est régulièrement déposé auprès de la SGDL
Reproduction interdite
sans le consentement
écrit de l'auteur



Imprimer la page

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.

 

 

Niveau

Pré-requis :

  • Avoir suivi les leçons
    3 et 4