(résolu) comment affecter un dictionnaire à une listbox

G

Guest

Guest

• 30 Janvier 2014

• #2

Re : comment affecter un dictionnaire à une listbox

Bonjour,

Code:

Dim dic As Object
Dim c As Range
Set dic = CreateObject("scripting.dictionary")
For Each c In ActiveSheet.Range("A1:A10000")
   dic(c.Value) = c.Value
Next
MaListBox.List = dic.keys()

A+

 

Vote positif 0 Vote négatif

corvelc

XLDnaute Occasionnel

• 30 Janvier 2014

• #3

Re : comment affecter un dictionnaire à une listbox

encore merci,

et pour affecter à ma listebox dans la cellule B2 ?
car actuellement j'avais créer un liste dans un onglet qui s'appelait 'ListeManagers'
CC

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 30 Janvier 2014

• #4

Re : comment affecter un dictionnaire à une listbox

re,

Il faut être plus précis. Qu'appelle-tu affecter à ma listeBox dans la cellule B2?
Listbox ActiveX?, ListBox Contrôle de formulaire? Liste de validation?
Faut-il garder la liste dans 'ListeManagers'?

Hier 'ListeManagers' était une plage cellules nommée par macro, non un onglet!?

B2 avait une liste de validation non une ListBox!?

Joindre un fichier exemple, avec explications détaillées, on évitera le travail inutile.

A+

 

Dernière modification par un modérateur: 30 Janvier 2014

Vote positif 0 Vote négatif

corvelc

XLDnaute Occasionnel

• 31 Janvier 2014

• #5

Re : comment affecter un dictionnaire à une listbox

Bonjour,

Désolé, mais je travaille sur 2 sujets à la fois.
Aujourd'hui , j'ai repris sur mon code et en réalité j'ai réussi à partir de ton code à faire ce que je voulais
Encore grand merci HASCO pour ton aide

A l'avenir je refléchi avant de demander

CC

 

Vote positif 0 Vote négatif