Comment sortir d'une boucle (Do loop, for next ...)

Bonjour
Comment faire pour sortir d'une boucle (sans quitter la procédure ou la fonction en cours) avant la fin du traitement

tant que toto <> 0
.../...
.../...
si struc = 1 alors
sortir
fin

fin

' oncontinue
../...

JM

Exit For pour une boucle For ... Next
Exit Do pour une boucle Do ... Loop

Daniel

ok merci pour tout
JM

Bonjour,

Je voudrait sortir d'une boucle que je lance avec command1 en utilisant command2. J'ai essayé ça mais ça ne marche pas :

Dim fin As Boolean

Private Sub Command1_Click()
Do
Text1.Text = Str(Time)

Loop Until fin = True

End Sub

Private Sub Command2_Click()
fin = True

End Sub

Merci de m'aider.

J'ai trouvé la solution :

Il suffisait d'ajouter DoEvents :

Dim Fin As Boolean

Private Sub Form_Load()
Text1.Text = Str(Time)
End Sub

Private Sub Command1_Click()
Fin = False
Do While (Not Fin)
Text1.Text = Str(Time - T1)
DoEvents
Loop
End Sub

Private Sub Command2_Click()
Fin = True
End Sub