Somme Inputbox

Fermé

Cichancichan17 - 27 nov. 2019 à 13:27
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

A voir également:

Somme Inputbox
Formule somme excel colonne - Guide
Somme si couleur - Guide
Somme en anglais excel - Guide
Somme si date inférieur à aujourd'hui ✓ - Forum Excel
Somme de x dans excel ✓ - Forum Excel

1 réponse

Réponse 1 / 1

yg_be Messages postés 23337 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 Ambassadeur 1 551
Modifié le 27 nov. 2019 à 13:43

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

Cichancichan17
27 nov. 2019 à 14:35

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...

yg_be Messages postés 23337 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 1 551 > Cichancichan17
27 nov. 2019 à 15:06

"il ne marce pas": message d'erreur?

Cichancichan17
27 nov. 2019 à 15:20

Il ne marche pas*

Cichancichan17
27 nov. 2019 à 15:22

Il continue à s'afficer l'inputBox("Quel est la somme de ces deux valeurs?")

yg_be Messages postés 23337 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 1 551 > Cichancichan17
27 nov. 2019 à 15:28

Loop until C = cint(A)+cint(B)

Discussions similaires

RECHERCHEV additionne les plusieurs lignes du meme nom

somme dans excel toujours =0

Excel, Formule =SOMME ne fonctionne pas

somme.si.ens critere entre deux dates

Addition avec plusieurs critères au sein d'une même colonne