Macro Word. Addition

hooli Messages postés 97 Statut Membre -  
Fourtis Messages postés 254 Statut Membre -
Bonjour,

Ma question peut paraitre bête mais je me lance tout de même.

Alors j'ai un projet où je dois additionner des prix.

Un message Box viens et dit "Tapez le prix de l'article et cliquez sur Ok:"

Alors on entre un chiffre, et ceci est dans une boucle qui tourne jusqu'a quel le prix depasse 100.

Mais voilà, j'ai beau chercher je ne trouve pas comment mettre le chiffre dans une variable et ensuite les additionner entre eux.

Voici une partie:

Addition = 0
Do While Addition < 100

MsgBox "Tapez le prix de l'article et cliquez sur OK:"
' Ajouter le prix dans chiffre

Addition = Addition + chiffre
Loop

End Sub

Je dois aussi intégré une MsgBox qui dit "Alerte, Vous avez acheter pour "Addition" , vous dépasser votre budget"

J'ai une base en c++.

Merci pour votre aide car je ne trouve rien sur le VBA word!

A voir également:

1 réponse

Réponse 1 / 1
Fourtis Messages postés 254 Statut Membre 14
 
Hello,
Il faudrait définir chiffre comme variable.
QQchose dans le genre:

Addition = 0
Do While Addition < 100
iChiffre=0
sChiffre=""
sChiffre=MsgBox "Tapez le prix de l'article et cliquez sur OK:"
' Ajouter le prix dans chiffre
iChiffre=integer de sChiffre (ici trouver la formule de tranformation d'un string en integer)
Addition = Addition + iChiffre
Loop

End Sub


Ce n'est qu'une orientation, mais j'essaierais dans ce sens.

Bon courage.
0