XL 2019 VBA transfert des données scripting dictionary dans un combobox multicolonnes

[Spitnolan08]

Bonsoir le forum,

Je tourne en rond, so I need help !

J'essaie d'extraire une liste sans doublons à l'aide de scipting dictionary sans succès.

Je suis parti d'un code de Jacques Boisgontier. Merci à lui
(Par ailleurs, s'il passe par là, il y a des bouts de code qui ne fonctionnent pas dans ses propositions (??!??))

Avec le code utilisé, on peut extraire un bout de base de données dans une feuille. C'est génial, mais ce n'est pas ma finalité...
CE que je cherche c'est transférer ce bout de BD dans un combobox multi-colonnes.
Mais je ne parviens qu'à transférer les clés où les éléments cibles.

Voir le fichier joint avec un bout de base de données et un bouton pour lancer la macro.

 

[job75]

Bonjour Spitnolan08,

Ce que je cherche :
Afficher dans le Combo, la liste entière figurant sur la feuille qui est le résultat de l'extraction Scripting dictionnary

ComboBox1.List = Sheets("résultat").[A1].CurrentRegion.Resize(, 21).Value

A+

 

[Spitnolan08]

Bonsoir job75,
Oui bien sûr, mais j'ai dû être imprécis dans ma demande : je ne veux pas passer par la case Feuille.
Il faut que tout se passe dans le code.
C'est à dire un transfert direct de scrpiting à combobox
Dans mon exemple, le but était d'indiquer ce qui devait figurer dans le combo et accessoirement de montrer ce que contient Scripting dictionnary.

 

[Spitnolan08]

Bonjour à tous,

j'ai trouvé la solution
Hyper simple....
Liste1 = c

 

[cathodique]

Bonjour à tous,

j'ai trouvé la solution
Hyper simple....
Liste1 = c

Et pourquoi Donc tu ne partages pas ta solution?
C'est un forum d'entraide et de partage,non!

 

[Spitnolan08]

D'abord
BONJOUR CATHODIQUE
Par ailleurs,
si tu avais correctement lu ma réponse tout est indiqué dedans...

 

[cathodique]

D'abord
BONJOUR CATHODIQUE
Par ailleurs,
si tu avais correctement lu ma réponse tout est indiqué dedans...

B O N J O U R
EST-CE SUFFISANT?
DESOLE, JE SUIS UN PEU BIGLEUX.