Discussion :

[thibaut2]

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=8, Criteria1:="="

et donc j'aimerais affichier dans le listbox les choix possibles du Field 1

Je pense déjà qu'il faut que j'utilise une fonction pour remplir la listbox : rowsource ou add item puis lancer la macro "Remplir une ListBox sans doublons" ici : http://silkyroad.developpez.com/VBA/...serForm/#LII-G

vous avez une petite idée ?

[SfJ5Rpw8]

tu peu utiliser le code à skilly, "sans doublons".. en modifiant la ligne permettant de "remplir" la collection :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
   If Not Cell.EntireRow.Hidden Then Unique.Add Cell, CStr(Cell)

[thibaut2]

Merci ça fonctionne .

Sauf qu'en cliquant plusieurs foi sur le bouton la nouvelle liste s'ajoute (normal)

Mon userform possède un bouton "quitter" (croix rouge desactivée)
il faudrait que la liste du listbox se vide lorsque je hide le userform.

En fait je pense qu'il ne faut pas que je le hide mais que je UserForm_QueryClose où UserForm_Terminate mais je neconnais pas le code pour "fermer" le userform et pour "vider" la listbox (ici, je pense à annuler la veleur de la variable cell...)

encore merci

[SfJ5Rpw8]

vide la list box avant de commencer à la remplir..!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
listBox1.clear

[thibaut2]

et pour les userform j'ai tout là : http://silkyroad.developpez.com/VBA/UserForm/#LIV