Microsoft 365 Sélection d'une ligne après filtre automatique VBA

[simsinaty]

Bonjour à tous cher Excel Master !

Je cherche un bout de code qui me permettra :

1) de filtrer la colonne A sur les 0
2) de sélectionner cette première ligne du filtre (qui est amenée à être mouvante donc) jusqu'à la dernière = 0
3) de supprimer cette sélection


MErci à vous tous pour votre aide précieuse.

 

[yal]

Bonjour
S'il s'agit de supprimer les lignes qui valent 0 dans la colonne A il y plus simple

 

[Jacky67]

Bonjour à tous cher Excel Master !

Je cherche un bout de code qui me permettra :

1) de filtrer la colonne A sur les 0
2) de sélectionner cette première ligne du filtre (qui est amenée à être mouvante donc) jusqu'à la dernière = 0
3) de supprimer cette sélection


MErci à vous tous pour votre aide précieuse.

Bonjour,
Cela pourrait ressembler à ceci
En adaptant le CodeName de la feuille

Sub supprime()
    With Feuil1.Range("$A$1:$A$" & Feuil1.Cells(Feuil1.Rows.Count, "A").End(xlUp).Row)
        .AutoFilter Field:=1, Criteria1:="0"
        .Offset(1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
        .AutoFilter
    End With
End Sub

 

[simsinaty]

Bonjour,
Cela pourrait ressembler à ceci
En adaptant le CodeName de la feuille

Sub supprime()
    With Feuil1.Range("$A$1:$A$" & Feuil1.Cells(Feuil1.Rows.Count, "A").End(xlUp).Row)
        .AutoFilter Field:=1, Criteria1:="0"
        .Offset(1).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
        .AutoFilter
    End With
End Sub

Simple et efficace ! Un grand merci !