Filtre

salut

comment faire par simple click sur le bouton dans cet exemple les opérations suiv:

filtre le tab selon le critère de cellule range("E1") dans la plage N° et puis copier le tab filtré et coller le dans la feuil 2

Bonsoir,

Sub FiltrerCopier()
    Dim crf
    With ActiveSheet
        crf = .Range("E1")
        With .ListObjects("Tableau1").Range
            .AutoFilter 1, crf
            .SpecialCells(xlCellTypeVisible).Copy Worksheets("Feuil2").Range("A1")
            .AutoFilter
        End With
    End With
End Sub

Cordialement.

Bonjour,

Moyennant une meilleure disposition de la zone de critères, tu pourrais utiliser un filtre avancé.

Bonjour à tous

Un autre essai à tester.

Bye !

merci à tous vous êtes fort et de vrais programmateurs