Supression les données visibles d'un filtre

Bonjour à tous,

Je souhaite supprimer les données visibles d'un filtre. Je filtre la colonne F, critère ="0" et colonne D = "0"

puis supprimer le résultat du filtre dans la feuille d'origine.

La taille de la base données peut varier.

Merci de votre aide

Bonjour,

Pas vu de macro dans ton classeur :

Tu filtres, tu supprimes les lignes visibles de la zone de filtrage [utilisant SpecialCells(xlCellTypeVisible)], tu réaffiches.

Cordialement.

Ah pardon, je n'ai pas mis le bon fichier.

Par contre, ma macro me figele Range à D176. Est ce que je peux mettre Range("$A$1:D).

Du coup, j'ai juste à ajouter SpecialCells(xlCellTypeVisible).Delete ?

"Range("A1:D1").Select

Selection.AutoFilter

Range("C1").Select

ActiveSheet.Range("$A$1:$D$176").AutoFilter Field:=3, Criteria1:="0"

ActiveSheet.Range("$A$1:$D$176").AutoFilter Field:=4, Criteria1:="0"

SpecialCells(xlCellTypeVisible).Delete

End Sub"

SpecialCells est une méthode de l'objet Range... !

Sub Test
    With ActiveSheet.Range("A1:D176")
        .AutoFilter 3, 0
        .AutoFilter 4, 0
        .SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With
    ActiveSheet.ShowAllData
End Sub

La manie des Select est dure à faire passer !

Merci sa fonctionne parfaitement.

On n'a pas besoin d'utiliser Select ?

Select : jamais !

Cela n'a pour effet que ralentir !

(A la fin seulement, lorsqu'il s'agit de mettre un résultat sous les yeux de l'utilisateur...)

Cordialement.