sortir boucle for next

[ConsultantJP]

Bonjour à tous, je cherche à faire sortir d'une boucle lorsque j'ai trouver un résultat mais je ne retrouve pas la syntaxe.

Merci par avance.

 

[gfortin9]

Re : sortir boucle for next

Allô!

S'il rentre dans la boucle, c'est que la condition est vrai.

Si la condition tombe fausse, il sort automatiquement, n'est-ce pas ? 😕


GFortin

 

[ROGER2327]

Re : sortir boucle for next

Bonsoir ConsultantJP

Structure :

[COLOR="SeaGreen"]'traitement[/COLOR]
For i = [I]début[/I] To [I]fin[/I]
    [COLOR="SeaGreen"]'traitement[/COLOR]
    If [I]condition de sortie[/I] Then Exit For
    [COLOR="SeaGreen"]'traitement[/COLOR]
Next i
[COLOR="SeaGreen"]'traitement[/COLOR]

Bonne soirée.
ROGER2327

 

[kjin]

Re : sortir boucle for next

Bonsoir,

Sub ChercheTotoColonne1()
For i = 1 To Range("A65000").End(xlUp).Row
If Cells(i, 1) = "Toto" Then
Flag = True
[COLOR="RoyalBlue"][B]Exit For[/B][/COLOR]
End If
Next
If Flag = True Then MsgBox "Toto est présent"
End Sub

A+
kjin