Petite macro VBA de Word 2019 : ne fonctionne pas
Lyne
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 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
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
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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). -
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.
