supprimer des lignes

[darib52]

bonjour à tous,
voilà longtemps que je vous avais sollicité.
donc pour commencer, meilleurs voeux à tous.
soyez aussi bon en 2008 que vous l'avez été en 2007.

je cherche à supprimer les lignes dont la colonne C est égale à 0, sur la seule feuille 1, et sans connaitre le nombre de lignes contenues dans le tableau.

merci de vos idées.

 

[porcinet82]

Re : supprimer des lignes

Salut,

Tu aurais pu faire une petite recherche sur le forum, cette question a ete maintes fois posée !!!!
M'enfin, en ce début d'année, c'est cadeaux :

Sub test()
Dim i&
For i = Range("C65536").End(xlUp).Row To 6 Step -1
    If Cells(i, 3).Value = 0 Then Rows(i).Delete
Next i
End Sub

@+

 

[darib52]

Re : supprimer des lignes

c'est vrai.
mille excuses et merci.