Macro pour suppression de ligne

Bonjour,

J'ai besoin de votre aide pour créer une macro de suppression de ligne lorsqu'une cellule donnée est vide. Dans le fichier joint, je souhaite retirer les lignes pour lesquelles la colonne L est vide. Quelqu'un peut-il m'aider?

Merci d'avance.

Jamantaz

Bonjour,

Tu peux essayer comme cela

Sub SuppLigneVide()
Dim Derlig As Long, Ligne As Long
    Application.ScreenUpdating = False
    With Worksheets("Feuil1")
        Derlig = .Range("A" & Rows.Count).End(xlUp).Row
            For Ligne = Derlig To 2 Step -1
                If .Range("L" & Ligne) = "" Then Rows(Ligne).Delete
            Next Ligne
    End With
End Sub

A+

Bonjour,

Merci frangy, ça fonctionne impec sur le fichier test, je suis en train de tenter de l'utiliser dans mon fichier définitif, sais tu comment faire pour que la macro soit appliquée uniquement sur un ensemble de ligne sélectionné (j'ai 500000 lignes dans mon tableau de base) car je voudrai faire un traitement par lots pour faciliter les choses (sinon mon ordi se plante).

Merci d'avance.

Jamantaz

Bonjour,

Avant d'aller plus loin dans les macros, as-tu essayé de placer un filtre automatique sur ta colonne débours, filtrer les cellules vides, sélectionner puis supprimer ces lignes.

A+

Ah oui, effectivement, c'est une solution beaucoup plus facile, désolé de ne pas y avoir pensé, parfois on cherche les complications inutilement.

Encore merci.

Jamantaz