Boucle à base de MsgBox vbYesNo
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:
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 !
