Somme Inputbox

Signaler
-
 Cichancichan17 -
Bonjour,

Je voudrais savoir comment faire la somme de deux valeurs de InputbBox.

J'ai fait ça pour le moment:

Sub Réponse()
A=InputBox("Premier valeur?")
B=InputBox("Deuxième valeur?")

Continuer = True
i=1
Do While Continuer = True
C= InputbBox ("Quel est la somme de ces deux valeurs"?)
If c= Application.Sum(a,b) Then
Continuer = False

End if
Loop
End Sub

8 réponses

Messages postés
9112
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 décembre 2019
468
bonjour, ton code fonctionne-t'il bien? as-tu une question?
merci d'utiliser les balises de code quand tu partages du code (utilise "basic" pour du VBA)
et veille à avoir une ligne
option explicit
en début de module.
suggestion:
option explicit
Sub Réponse()
dim A, B, C
A=InputBox("Premier valeur?")
B=InputBox("Deuxième valeur?")
Do 
     C= InputbBox ("Quel est la somme de ces deux valeurs"?)
Loop until C = A+B
End Sub
yg_be
Messages postés
9112
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 décembre 2019
468 > Cichancichan17
"il ne marce pas": message d'erreur?

Il ne marche pas*

Il continue à s'afficer l'inputBox("Quel est la somme de ces deux valeurs?")
yg_be
Messages postés
9112
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 décembre 2019
468 > Cichancichan17
Loop until C = cint(A)+cint(B)

Merci, je vais essayer :)