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

simsinaty · 28 Avril 2022

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.

Jacky67 · 28 Avril 2022

simsinaty à dit:
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

VB:

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

yal · 28 Avril 2022

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

Jacky67 · 28 Avril 2022

simsinaty à dit:
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

VB:

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 · 29 Avril 2022

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

VB:

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 !

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

simsinaty

XLDnaute Nouveau

Jacky67

yal

XLDnaute Occasionnel

Jacky67

XLDnaute Barbatruc

simsinaty

XLDnaute Nouveau

Discussions similaires