Macro : Boucle "jusqu'a"

[aerocrash]

Bonjour à tous.

Je viens vers vous aujourd'hui pour un nouveau problème.

actuellement j'ai une macro qui effectue une boucle tel que :

valeur = "test"
for i = 1 to 200
if cells(i,"A") = valeur then
bla bla bla bla bla bla bla
end if
next

suite macro...

Ce que je souhaite c'est que si , la condition du IF est validée (soit : cells(i,"A") = valeur), alors la boucle FOR termine son exécution et la macro continu son déroulement mais n'effectue pas la suite des test de la boucle.

je pense qu'il faut utilisé une fonction type "whyle"... ou "Until" mais je n'est pas trouvé comment cela fonctionner.

merci d'avance

 

[Pierrot93]

Re : Macro : Boucle "jusqu'a"

Bonjour aerocrash

essaye comme suit :

For i = 1 To 200
    If Cells(i, "A") = valeur Then
        'bla bla bla bla bla bla bla
        Exit For
    End If
Next

bon après midi
@+

 

[Pierrot93]

Re : Macro : Boucle "jusqu'a"

Re,

une autre façon de procéder :

Sub test()
Dim i As Byte, mavaleur As String
mavaleur = "ok"
Do
    i = i + 1
Loop While Cells(i, "A").Value <> mavaleur
MsgBox "trouvé en ligne : " & i
End Sub

@+