Sujet Précédent Sujet Suivant

Macro Word. Addition

Fermé
hooli Messages postés 85 Date d'inscription jeudi 10 septembre 2009 Statut Membre Dernière intervention 1 décembre 2011 - 29 avril 2010 à 09:02
Fourtis Messages postés 248 Date d'inscription mardi 26 février 2008 Statut Membre Dernière intervention 18 mars 2013 - 4 mai 2010 à 14:09
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 248 Date d'inscription mardi 26 février 2008 Statut Membre Dernière intervention 18 mars 2013 14
Modifié par Fourtis le 4/05/2010 à 14:09
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