Macro : Boucle "jusqu'a"

aerocrash · 22 Décembre 2008

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 · 22 Décembre 2008

Re : Macro : Boucle "jusqu'a"

Bonjour aerocrash

essaye comme suit :

Code:

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 · 22 Décembre 2008

Re : Macro : Boucle "jusqu'a"

Re,

une autre façon de procéder :

Code:

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

@+

Macro : Boucle "jusqu'a"

aerocrash

Guest

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Macro : Boucle "jusqu'a"

aerocrash

Guest

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency