While

bonjour,

il n'existe pas de exit pour ce type de boucle,
seulement ceux ci :

Exit Do
Exit For
Exit Function
Exit Property
Exit Sub

par ailleurs, l'instruction Do...Loop permet d'exécuter une itération de manière plus structurée et plus souple.

isabelle

C'est quoi la commande pour arrêter while ?

Genre:
Sub test()
Dim Z AsInteger
While Cells(2, Z) <> 5
Z = Z + 1
If Z > 4 Then ???
Wend
End Sub

Bonjour Magic Man,
À l'intérieur de la boucle While... Wend il doit y avoir des instructions qui
agissent sur ce qui est testé par l'instruction While. Dans ton exemple, le
contenu de Cells(2,Z) doit passer à '5' pour sortir. Il se peut que cela
n'arrive jamais.
Sans précision sur le but de la boucle, on peut faire comme ceci :
Z = 1
While Cells(2, Z) <> 5 And Z <= 4
' instructions
' ...
Z = Z + 1
Wend

Alternative avec Do... Until

Ce qui revient à faire une boucle
For Z = 1 To 4
If Cells(2, Z) = 5 Then Exit For
...
Next

Cordialement,
Trirème

C'est quoi la commande pour arrêter while ?

Genre:
Sub test()
Dim Z AsInteger
While Cells(2, Z) <> 5
Z = Z + 1
If Z > 4 Then ???
Wend
End Sub