et l'aide vba !!!
voilà un exemple le plus simple possible sur "while".
les autres sont plus compliqués et proviennent de l'aide
pour prévoir une sortie précoce d'une telle boucle utilise les instructions comme "do loop"
bye
steph
Sub test()
While i < 5
i = i + 1: MsgBox i
If i = 3 Then break
Wend
End Sub
Sub ExitExample()
counter = 0
myNum = 9
Do Until myNum = 10
myNum = myNum - 1
counter = counter + 1
If myNum < 10 Then Exit Do
Loop
MsgBox "La boucle a effectué " & counter & _
" itérations."
End Sub
Sub ChkFirstWhile()
counter = 0
myNum = 20
Do While myNum > 10
myNum = myNum - 1
counter = counter + 1
Loop
MsgBox "La boucle a effectué " & counter & _
" itérations."
End Sub
Sub ChkLastUntil()
counter = 0
myNum = 1
Do
myNum = myNum + 1
counter = counter + 1
Loop Until myNum = 10
MsgBox "La boucle a effectué " & counter & _
" itérations."
End Sub
Sub ChkLastWhile()
counter = 0
myNum = 9
Do
myNum = myNum - 1
counter = counter + 1
Loop While myNum > 10
MsgBox "La boucle a effectué " & counter & _
" itérations"
end sub