XL 2016 Code pour filtrer et supprimer les lignes avec 1 cellule vide

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

luke3300

XLDnaute Impliqué
Bonjour le forum,

J'utilise le code suivant pour filtrer les lignes dans lesquelles la cellule de la colonne A est vide et ainsi les supprimer.
Seulement voilà, il supprime uniquement certaines lignes bien déterminées par la macro puisque je ne sais pas comment adapter le code pour qu'il sélectionne les lignes avec cellule de la colonne A vide et qu'il supprime uniquement les lignes sélectionnées.

Code:
Sub Macro5()
'
' Macro5 Macro
'

'
    Range("A1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$D$2649").AutoFilter Field:=1, Criteria1:="="
    Range( _
        "609:609,865:865,1269:1269,1275:1275,1878:1878,2273:2273,2391:2391,2397:2397"). _
        Select
    Range("A2397").Activate
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$A$1:$D$2641").AutoFilter Field:=1
    Selection.AutoFilter
    Range("E2").Select
End Sub

Quelqu'un a une idée? 😉

Merci d'avance à tous et bon mardi.
 
Salut
essai


Sub Auto_Filter()

Dim Last&
Application.ScreenUpdating = False
With ActiveSheet
Last = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("$A$1:$D$" & Last).AutoFilter Field:=1, Criteria1:="="
.AutoFilter.Range.Offset(1).SpecialCells(12).Delete Shift:=xlUp
.Range("$A$1:$D$" & Last).AutoFilter
End With
Application.ScreenUpdating = True

End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
15
Affichages
2 K
Compte Supprimé 979
C
G
Réponses
6
Affichages
11 K
G
Retour