ligne zero as upprimer

[etudiant72]

bonsoir a tous je vous demande de l'aide car je n'arrives pas a eliminer les qui se trouve avec des zero merci de votre aide [file name=ligne_20060519230722.zip size=1928]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ligne_20060519230722.zip[/file]

 

[Temjeh]

Bonsoir

Sub Macro1()
Dim rng As Range, i As Integer

'Définit la plage à évaluer.
Set rng = Range('B4:B16')

'Effectue une boucle arrière sur les lignes
'de la plage à évaluer.
For i = rng.Rows.Count To 1 Step -1

'Si la cellule i de la plage contient un ' 0 ', supprime la ligne entière.
If rng.Cells(i).Value = 0 Then rng.Cells(i).EntireRow.Delete
Next
End Sub

A+

Temjeh


Message édité par: temjeh, à: 20/05/2006 01:48

 

[Dull]

Salut Etudiant72, Temjeh, le Forum,

je te conseil Lien supprimé trés instructif

 

[etudiant72]

merci de ta rapidite a+