Récupérer le contenu d'un autofilter.

Signaler
Messages postés
6
Date d'inscription
vendredi 5 août 2005
Statut
Membre
Dernière intervention
2 février 2006
-
Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
-
Bonjour,

Malgré mes nombreuses recherches, je n'arrive pas à récupérer (pour mettre la série dans un tableau) la liste des critères de filtrage d'un autofilter.

Exemple : j'applique un autofilter sur la colonne :


<col width=\"80\">
----

ggg,

----

ggg,

----

ccc,

----

adm,

----

ccc,

----

ggg,

----

adm,

----

adm

---> je voudrais alors récupérer la liste ggg ; ccc ; adm.

Peut être ya-t-il un autre moyen qu'un autofilter pour extraire des valeurs d'une colonne en éliminant les doublons, mais j'ai d'abord penser à cet autofilter.

Merci de vos réponses.

1 réponse

Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
Salut guileouf,


Tu peux t'inspirer de ce source qui copie les données filtrées de Sheet1 vers Sheet2





Sub CopyFilter()

Dim rng As Range
Dim rng2 As Range

With ActiveSheet.AutoFilter.Range
On Error Resume Next
Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
End With



If rng2 Is Nothing Then
MsgBox "Pas de données à copier"
Else
Worksheets("Sheet2").Cells.Clear
Set rng = ActiveSheet.AutoFilter.Range
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _
Destination:=Worksheets("Sheet2").Range("A1")
End If
ActiveSheet.ShowAllData

End Sub





++

Zlub