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

Question

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

Gobillot · Answer

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

jmdelhalle · Answer

ok merci pour tout
 :)  JM

zizouhiba · Answer

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.

zizouhiba · Answer

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

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

4 réponses

Discussions similaires