ligne zero as upprimer

  • Initiateur de la discussion etudiant72
  • Date de début
E

etudiant72

Guest
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]
 

Pièces jointes

  • ligne_20060519230722.zip
    1.9 KB · Affichages: 9

Temjeh

XLDnaute Accro
Supporter XLD
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
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson