Boucle à l'envers

[Fab117]

Salut,
Je fais une boucle dans laquelle les lignes sont effacées si la condition est rencontrée.

Avec une boucle classique, il rate des lignes

For i = 3 To NombreDeLigne
If Not IsNumeric(Range("G" & i)) Then Rows(i).Delete
Next i

Dans un autre post, Pascal76 me suggérait de faire une boucle inversée.
J'ai essayé avec

For i = NombreDeLigne to 3

Mais ça ne fonctionne pas.

Quelqu'un aurait-il la solution ?

Merci d'avance.

Fab

 

[jeanpierre]

Re : Boucle à l'envers

Bonjour Fab, le forum,

avec For i = NombreDeLigne to 3 step -1

Bonne journée.

Jean-Pierre

 

[PascalXLD]

Re : Boucle à l'envers

Bonjour

comme le dit jeanpierre il faut le step -1


En fait il faut comprendre que lorsqu'on fait

for x = y to z

sans rien mettre au bout cela revient à

for x = y to z step 1

 

[Fab117]

Re : Boucle à l'envers

Merci,
ça fonctionne parfaitement.

Bon appétit.

Fab