Macro Excel suppression lignes

Résolu
souf31 -  
 souf31 -
Bonjour,

Je souhaiterai supprimer à l'aide d'une macro toutes les lignes dont la cellule D contient un 0 ou ne contient rien.

Je suis positionné sur ma feuille 2, je ne sais pas si cela est important.

Novice en macro je me permet donc de soliciter vos brillantes compétences !

En vous remerciant,

Souf31.
A voir également:

2 réponses

lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Salut,

Essaie
Sub suppr_lignes_condition_cellule()
    Dim lg as Long, r as Long
    With ActiveSheet.UsedRange
        lg = .Row + .Rows.Count - 1
    End With

    For r = lg To 1 Step -1
        If Cells(r, 4) = 0 Then ' cellule de la colone D
            Rows(r).Delete
        End If
    Next r
End Sub
0
souf31
 
ça mouline.. ça mouline.. et c'est bon ça marche!

Merci beaucoup :)
0
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Re,

Pour gagner un peu en vitesse
Sub suppr_lignes_condition_cellule()
    Dim lg as Long, r as Long
    Application.ScreenUpdating = False
    With ActiveSheet.UsedRange
        lg = .Row + .Rows.Count - 1
    End With

    For r = lg To 1 Step -1
        If Cells(r, 4) = 0 Then ' cellule de la colone D
            Rows(r).Delete
        End If
    Next r
    Application.ScreenUpdating = True
End Sub
0
souf31
 
Effectivement.. vraiment top!

Merci beaucoup!
0