Discussion :

[Automnep]

Bonjour, je souhaite écrire un programme tout simple où une personne doit rentrer un chiffre au début, suite à quoi le programme lui demande s'il s'agit du chiffre qu'il vient de rentrer. Si la personne répond "oui", dans ce cas le programme s'arrête, sinon le programme continue de tourner avec le chiffre n-1.

Voici le petit bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub test()
 
Dim a As Integer
 
a = InputBox("Choisir un chiffre")
 
Do
Select Case MsgBox("Le chiffre est" & a, vbYesNo)
Case vbYes
MsgBox ("c'est le bon chiffre")
Case vbNo
MsgBox ("le chiffre est" & a - 1), vbYesNo
End Select
Loop Until a = vbYes
End Sub

Malheureusement le programme est infini et ne tourne pas comme je le souhaite, il ne prend pas les valeurs n-1 et continue de tourner même si l'on choisit "oui".

Merci d'avance pour votre aide !

[SfJ5Rpw8]

Mais pourquoi comparer a à vbYes ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Loop Until a = vbYes

[Automnep]

Bonjour et merci pour votre réponse rapide !

Je suis un peu hésitant en VBA encore (j'ai repris récemment), mais la démarche logique est la suivante : continuer à faire la boucle jusqu'à ce que "until" la réponse à la msgbox vbyesno ait pour résultat "yes". Si on choisit "yes", le programme s'arrête.

[SfJ5Rpw8]

et que vient faire cette variable a ? comment peu-elle être égale à vbYes .. (sauf si tu saisi 6 dans l'input box ) ?