Boucle

Résolu
RV -  
 RV -
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   Statut Modérateur Dernière intervention   2 762
 
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
RV
 
Merci
0