Sortir d'une boucle

[ericTA]

Bonjour à tous
j'ai une boucle qui scrute tous les onglets, comment faire pour en sortir sans sortir de la SUB (exit sub)

Sub recherche()

for i = 1 to 10
For Each ws In Worksheets
If Sheets(ws.Name).Range("A2").Value = "Valeur" Then
sortir de la boucle si valeur trouvé sans scruter la suite des onglets
end if
next ws
next i
end sub

Si j'ai 50 onglets et que la valeur à trouver est dans la 3ème je ne veux pas continuer la recherche dans les autres onglets
merci d'avance
Eric

 

[Pierrot93]

Re : Sortir d'une boucle

Bonjour,

peut être ceci :

Sub recherche()
For i = 1 To 10
    For Each ws In Worksheets
        If Sheets(ws.Name).Range("A2").Value = "Valeur" Then
            Exit For 'pour sortir de la boucle for each
                     'mais restera dans la boucle For i = 1 To 10
        End If
    Next ws
Next i
End Sub

bon après midi
@+

 

[Pierrot93]

Re : Sortir d'une boucle

Re,

pour sortir des 2 boucles :

Sub recherche()
For i = 1 To 10
    For Each ws In Worksheets
        If Sheets(ws.Name).Range("A2").Value = "Valeur" Then
            GoTo fin
        End If
    Next ws
Next i
fin:
End Sub

 

[ericTA]

Re : Sortir d'une boucle

Merci ça marche super bien
Eric