fin du boucle forRésolu

Question

Bonjour,
dans une boucle for, je parcours une liste de valeurs et j'aimerais m'arreter une fois qu'il n'y a plus de valeur:

For i = 2 To 12

   a = Worksheets("Re_move").Cells(i, 1).Value
   b = Worksheets("Re_move").Cells(i, 2).Value
Next i

J'ai mis un truc du genre mais apparement cela ne s'arrete pas à la dernière valeur 
If Worksheets("Re_move").Cells(i, 1).Value <> "" Then
End If

Peut on avoir un truc du genre For i = 2 To End(x1Down)

Merci @+
Je viens de découvrir le bonheur de programmer et le VB me le rend bien

taj88 · Accepted Answer

Non, je me suis mal expliqué, j'avais mis :
For i = 2 To 12
If Worksheets("Re_move").Cells(i, 1).Value <> "" Then
   a = Worksheets("Re_move").Cells(i, 1).Value
   b = Worksheets("Re_move").Cells(i, 2).Value
End If
Next i

Mais j'ai cru que ca s'arretais pas après car, j'avais mis mon End if au mauvais endroit (un peu trop haut dans ma procedure) 

Désolé, plus de PB mais merci pour ton aide
@+

Je viens de découvrir le bonheur de programmer et le VB me le rend bien

cs_casy · Answer

Peut-etre : If Worksheets("Re_move").Cells(i, 1).Value <> "" Then Exit For ---- Sevyc64 (alias Casy) ----

# LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php

jrivet · Answer

Salut,
Si on par du principe que AX et BX s'arrete de contenir des valeurs en meme temps utilise :

Dim Li As Long
   
   For Li = 1 To Range("A1").End(xlDown).Row
       a = Range("A" & Li).Value
       b = Range("B" & Li).Value
   Next , ----
[code.aspx?ID=41455 By Renfield]
Sinon utilise IsEmpty pour tester si une cellule est vide

@+: Ju£i?n
Pensez: Réponse acceptée

Fin du boucle for

3 réponses

Votre réponse

Discussions similaires