recuperer liste filtre automatique

[cyrus55160]

Bonjour,

J'ai un tableau sur lequel j'applique un filtre automatique. Je voudrais recuperer la liste qui apparait quand je selectionne une colonne filtrée, et la copier dans une plage de cellule.

Comment dois je proceder ?

Merci

 

[RENAUDER]

Re : recuperer liste filtre automatique

Bonjour,
A essayer ..
Soit le contenu à récupérer de la colonne D suite au filtre et à copier sur la feuille 2 en colonne A

Sub UneColonne()
    With Range("D:D").SpecialCells(xlCellTypeVisible).Areas
        If .Item(1).Rows.Count > 1 Then Range("D2").Select _
           Else .Item(2)(1).Select
    End With
    x = ActiveCell.Row
    y = Cells.SpecialCells(xlCellTypeLastCell).Row
    Range("D" & x & ":D" & y).Copy _
            Destination:=Sheets("Feuil2").Range("A" & Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0).Row)
End Sub