Somme Inputbox

Cichancichan17 -
Cichancichan17 - 27 nov. 2019 à 15:48

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

Afficher la suite

1 réponse

Réponse 1 / 1
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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
```
0
1. Cichancichan17
  
  Mon code ne fonctionne pas.
  Je voudrais que le macro s'arrête quand c=a+b et que sur A1 il me donne le nombre d'éssaies.
  J'ai essaye ton code mais il ne marce pas...
  
  0
2. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > Cichancichan17
  
  "il ne marce pas": message d'erreur?
  
  0
3. Cichancichan17
  
  Il ne marche pas*
  
  0
4. Cichancichan17
  
  Il continue à s'afficer l'inputBox("Quel est la somme de ces deux valeurs?")
  
  0
5. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > Cichancichan17
  
  Loop until C = cint(A)+cint(B)
  
  0

Somme Inputbox

1 réponse

Discussions similaires

Newsletters