Somme Inputbox

Question

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

yg_be · Answer

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

Somme Inputbox

1 réponse

Discussions similaires

Newsletters