Microsoft 365 Récupérer la liste d'un field d'une feuille dans combobox

[xhudi69]

Bonjour à tous,
lorsque l'on filtre une feuille et que l'on clique sur l'entête, une liste filtrée et classée par ordre alphabétique s'affiche.
comment récupérer cette liste dans un combobox?

merci pour votre aide

 

[sylvanu]

Bonjour Xhudi,
Pas bien sur d'avoir compris. 😉
En PJ un essai. On récupère dans la Combobox le TCD dans l'ordre d'affichage, trié ou non. Avec :

Sub Ouvrir()
UserForm1.ComboBox1.List = [Tableau1].Columns(1).Value
UserForm1.Show
End Sub

Sinon, livrez un petit fichier test.

 

[danielco]

Bonjour,

Tu peux récupérer les valeurs dans un tableau :

liste = Application.Transpose(Evaluate("SORT(UNIQUE(A1:A6))"))

et ensuite alimenter ta combobox.

Daniel

 

[xhudi69]

Merci Sylvanu & danielco pour vos réponses.
bien sûr vos solutions fonctionnent mais peuvent prendre beaucoup de temps lorsqu'il ya une vingtaine de ComboBox.
je pensais qu'il serait possible de charger directement les listes des filtres comme sur l'image ci-dessous.

merci à vous

 

[danielco]

Bonjour,
Etonnant, ma macro suivante met 4/1000 seconde à s'exécuter :

Private Sub ComboBox1_Change()
  deb = Timer
  Me.ComboBox1.List = Application.Transpose(Evaluate("SORT(UNIQUE(A2:A11))"))
  Debug.Print Timer - deb
End Sub

Daniel

 

[xhudi69]

Bonjour danielco

effectivement, pas eu le temps de tester sur tous les ComboBox, je fais ça demain et reviens vers toi.
merci pour ton aide, c'est sympa.

Merci à vous.