Boucle

Résolu/Fermé
RV - 15 nov. 2011 à 14:10
 RV - 16 nov. 2011 à 09:01
Bonjour,

Voici ma boucle :

For l = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
    If Cells(l, "F").Value = 0 _
    Then Cells(l, 1).EntireRow.Delete
Next l


J'aimerai savoir où changer pour pas que ça parte de la dernière ligne mais par exemple de la ligne 5000 car ça prend du temps d'éxécuter la macro !

Merci !

1 réponse

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 2 712
16 nov. 2011 à 08:15
Bonjour,
Tout est dit dans la ligne :
For l = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1

En "Français" : Pour l = blabla à 1
Si tu veux une boucle à partir de 5000, en Français : Pour l = 5000 à 1
For l = 5000 To 1 Step - 1
1
Merci
0