Sujet Précédent Sujet Suivant

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

Réponse 1 / 1
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 770
 
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

Discussions similaires

Mon pc s'allume et s'éteint en boucle
Jack -
Daniel -

16 réponses
Mon ordinateur s'allume et s'eteint en boucle
mhmd_elmrni -
BiGaMeRz10 -

10 réponses
problème tv décodeur orange
N.Look -
Mylord -

4 réponses
Mon PC s'allume puis s'éteint tout seul. Que faire ?
La gouille -
Kcb -

28 réponses
Redmi redémarre en boucle - Fastboost impossible
Jaaane -
crooner76 -

1 réponse