Petite macro VBA de Word 2019 : ne fonctionne pas

Lyne -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

3 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour,
comment se comporte cette macro?
0
Lyne
 
Bonjour, merci de votre suivi c'est très apprécié.

VBA indique en jaune la ligne MsgBox (dans les deux cas).
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
cela ne produit pas un message d'erreur?
0
Lyne
 
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.
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
parfait, peux-tu alors marquer la discussion comme résolue?
0