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
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".
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
Merci d'avance pour votre aide !
Partager