Discussion :

[cecilebh]

Bonjour,

J'ai mis en place une commande du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub efface_vide()
Dim l As Integer
For l = 2 To 78
    Sheets("Janvier").Select
    If Cells(l, "N").Value = 0 Then Cells(l, "N").EntireRow.Delete Shift:=xlUp
    Next l
 
End Sub

il s'agit de supprimer une ligne si la cellule col N de cette est=0, j'arrive à le faire fonctionner mais lorsque la ligne est supprimée je reviens à mon même n° de ligne sans incrémentation, et là, il ne me supprime par les lignes suivantes, il s'arrête...
je pensais qu'il fallait utiliser step -1 ou quelque chose comme cela, mais je ne connais pas assez, et j'aurais besoin d'une petite aide sur la syntaxe ? :-)

merci beaucoup
CB

[mercatog]

Commence par la fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for l=78 to 2 step-1

[cecilebh]

oui, naturellement... c'est si évident ! je n'ai pas encore de réflexes de ce genre
Merci bcp.
Bonne soirée