suppression des lignes ayant la valeur 0 dans une colonne

Le
magic-dd
bonjour

j'ai fais une petite macro pour decaler vers le haut une selection de
cellule dont l'une d'entre elle est egla à O

or si j'ai 2 lignes qui se suivent avec le resultat O, seule une seule
se supprime

je vous joins mon code

Sub Macro2()

For Each cell In Range("l2:l50")
If cell.Value = "0" Then
Range((cell.Offset(0, -3)), cell).Select

Selection.Delete Shift:=xlUp

End If
Next
End Sub


et voici le fichier

http://cjoint.com/?dCv0vj8k6M

merci de votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #18990121
Bonsoir,

Essaye avec ceci :

Sub supvalzero()
For i = 150 To 2 Step -1
If Cells(i, 12) = "0" Then
Cells(i, 12).EntireRow.Delete
End If
Next i
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"magic-dd" news:
bonjour

j'ai fais une petite macro pour decaler vers le haut une selection de
cellule dont l'une d'entre elle est egla à O

or si j'ai 2 lignes qui se suivent avec le resultat O, seule une seule
se supprime

je vous joins mon code

Sub Macro2()

For Each cell In Range("l2:l50")
If cell.Value = "0" Then
Range((cell.Offset(0, -3)), cell).Select

Selection.Delete Shift:=xlUp

End If
Next
End Sub


et voici le fichier

http://cjoint.com/?dCv0vj8k6M

merci de votre aide
magic-dd
Le #18997031
merci

j'ai adapté mon code en fonction de la reponse

merci encore
Publicité
Poster une réponse
Anonyme