bonjour
 
Est-il possible, dans un userform, de récupérer et d'afficher dans une listbox (ou autre) le résultat (sans doublon) d'un filtre automatique ?
 
J'ai un bouton das le userform qui execute les filtres :
 

 
et donc j'aimerais affichier dans le listbox les choix possibles du Field 1
 
 
vous avez une petite idée ?
Merci beaucoup !!

ça fonctionne avec ce code :
 
    Dim Cell As Range
    Dim Unique As New Collection
    Dim Valeur As Range
    Dim i As Integer
     
    'Récupère la derniere ligne non vide dans la colonne A
    i = Range("A65536" ).End(xlUp).Row
     
    On Error Resume Next
    'boucle sur les cellules de la colonne A
    For Each Cell In Range("A8:A" & i)
    If Not Cell.EntireRow.Hidden Then Unique.Add Cell, CStr(Cell)
        'Stocke les données dans une collection
        '(La collection n'accepte que des données uniques et permet donc
        ' de filtrer facilement les doublons).
        'Unique.Add Cell, CStr(Cell)
    Next Cell
    On Error GoTo 0
     
    'Boucle sur le contenu de la collection pour alimenter la ListBox
    For Each Valeur In Unique
        Me.ListBox1.AddItem Valeur
    Next Valeur