[RESOLU] Listbox vers dictionnaire

[macadamx]

Bonjour à tous !

J'aimerai générer un dictionnaire à partir d'une listbox, mais je n'arrive pas à trouver dans ce sens là.
J'ai réussit à générer mes listbox à partir d'une feuille Excel, mais pas à ensuite créer un dictionnaire à partir des éléments dans la listbox.

Concrètement, j'ai deux listbox. Une où il y a toutes les données et l'autre où il y a les données que l'on choisi. C'est à partir de la deuxième que je veux créer un dictionnaire "public" pour pouvoir après analyser l'ensemble de mes fichiers.

Qui aurait un bout de code à ce sujet s'il vous plaît ? Le tout s'activant à un commandbutton.

Encore merci d'avance.

Johan

 

[macadamx]

Re : Listbox vers dictionnaire

Anybody help ?

 

[Paf]

Re : Listbox vers dictionnaire

Bonjour,

s'il s'agit d'un dictionnaire au sens Dictionary ( ?):

à adapter

 Dim MonDico
 Set MonDico = CreateObject("Scripting.Dictionary")
 For i = 0 To ListBox2.ListCount - 1
    MonDico(ListBox1.List(i)) = ""
 Next

A+

 

[macadamx]

Re : Listbox vers dictionnaire

Roh merci beaucoup ! C'est exactement ce que je voulais. Je vais pouvoir réutiliser cela pour faire mes analyses !