Petite macro VBA de Word 2019 : ne fonctionne pas

Signaler
-
Messages postés
15976
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
10 juin 2021
-
Bonjour, Je ne parviens pas à trouver l'erreur dans ce petit programme de VBA pour Word et j'ai aussi essayé avec le format Monnaie pour la ligne de MsgBox

MsgBox "Le prix de l'article avec taxes est de " & Format(CouTotal, "# ##0.00 $"),, Titre

Sub Prix()
Const conTPS = 1.05
Const conTVQ = 1.09975
Dim CouTotal As Currency, Titre As String, PrixArticle As Currency
PrixArticle = InputBox("Entrez le prix de l'article", "Prix")
CouTotal = (PrixArticle * conTPS * conTVQ)
Titre = "Prix de l'article"
MsgBox "Le prix de l'article avec taxes est de " & CouTotal, , Titre
End Sub



Configuration: Windows / Edge 91.0.864.37

3 réponses

Messages postés
15976
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
10 juin 2021
866
bonjour,
comment se comporte cette macro?
Bonjour, merci de votre suivi c'est très apprécié.

VBA indique en jaune la ligne MsgBox (dans les deux cas).
Messages postés
15976
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
10 juin 2021
866
cela ne produit pas un message d'erreur?
Bonjour, finalement, ce matin, j'ai fait exécuter ce programme avec les deux lignes de code inscrites pour MsgBox et le programme se déroule très bien sans le format Monnaie et aussi avec la ligne de code format Monnaie. J'ai l'impression qu'il aurait fallu que je rédémarre mon pc avant d'écrire dans ce forum.

Merci de vos réponses mais là le programme se déroule très bien et donne le bon montant avec les taxes.
Messages postés
15976
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
10 juin 2021
866
parfait, peux-tu alors marquer la discussion comme résolue?