Macro Excel suppression lignes Résolu/Fermé

Question

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.

lami20j · Answer

Salut,

EssaieSub 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

lami20j · Answer

Re,

Pour gagner un peu en vitesseSub 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