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

  1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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
    1. RV
       
      Merci
      0