corvelc
XLDnaute Occasionnel
Bonjour à tous,
Pouvez-vous m’aider sur la procédure suivante :
J’ai besoin pour procéder au nettoyage d’un fichier Excel, d’activer par macro un filtre spécifique, puis ensuite de supprimer toutes les lignes filtrées (lignes affichées).
Pour l’activation du filtre OK
Mais pour la suppression des lignes , je supprime bien les lignes filtrées mais AUSSI la première ligne des titres de colonne et c’est là que j’ai besoin d’aide.
Car j’ai besoin de garder la ligne des titres des colonnes lors de la suppression des lignes, car d’autres actions sont à faire pour continuer le nettoyage du fichier.
Merci d’avance pour l’aide.
CC
Mon code :
Sub Supprimer_lignes_filtrées()
Dim Plage As Range
Sheets("Extract Globale Artémis-CCR01").Activate
Range("A2:AJ9999").Select
Selection.CurrentRegion.Select
Selection.AutoFilter
Selection.AutoFilter field:=3, Criteria1:=""""
Set Plage = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
Application.DisplayAlerts = False
Plage.Delete
Application.DisplayAlerts = True
End Sub
Pouvez-vous m’aider sur la procédure suivante :
J’ai besoin pour procéder au nettoyage d’un fichier Excel, d’activer par macro un filtre spécifique, puis ensuite de supprimer toutes les lignes filtrées (lignes affichées).
Pour l’activation du filtre OK
Mais pour la suppression des lignes , je supprime bien les lignes filtrées mais AUSSI la première ligne des titres de colonne et c’est là que j’ai besoin d’aide.
Car j’ai besoin de garder la ligne des titres des colonnes lors de la suppression des lignes, car d’autres actions sont à faire pour continuer le nettoyage du fichier.
Merci d’avance pour l’aide.
CC
Mon code :
Sub Supprimer_lignes_filtrées()
Dim Plage As Range
Sheets("Extract Globale Artémis-CCR01").Activate
Range("A2:AJ9999").Select
Selection.CurrentRegion.Select
Selection.AutoFilter
Selection.AutoFilter field:=3, Criteria1:=""""
Set Plage = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
Application.DisplayAlerts = False
Plage.Delete
Application.DisplayAlerts = True
End Sub