Tablo pour listbox 2 colonnes

[mfb]

Bonjour le Forum.
Sur les bases d'une macro permettant d'afficher les valeurs d'une seule colonne (feuil1) dans une listbox à une colonne j'ai bidouillé pour réaliser l'affichage de 2 colonnes (feuil1 col AM et AN en l'occurrence) dans listbox à 2 colonnes. Résultat : Néant
Ci dessous la macro en question.

Dim mondico
Dim a, fin, i As Integer
Set mondico = CreateObject("Scripting.Dictionary")
With Sheets("Feuil1")
fin = .Range("AM" & .Rows.Count).End(xlUp).Row
a = .Range("AM7:AN" & fin)

For i = LBound(a) To UBound(a)
If a(i, 1) <> "" Then mondico(a(i, 1)) = ""
Next i

With ListBox2
.ColumnCount = 2
.ColumnWidths = "40,40"
.List = mondico.keys
End With

Quel aménagement y a t-il lieu d'y apporter ?
Par MERCI
A+Daniel

 

[pierrejean]

Bonjour mfb

Il faudrait au moins:

If a(i, 1) <> "" Then mondico(a(i, 1)) = a(i,2)

ce qui permettrait d'alimenter List par mondico.items

Si tu ne t'en sors pas poste un petit fichier exemple sans données confidentielles

 

[gosselien]

Bonjour,
hello pierrejean 🙂

A première vue déjà il manque un "end with"
Mais le fichier serait bienvenu :
P.

 

[mfb]

Re,
Merci à Vous.
En Pj un petit petit fichier quelque peu beaucoup expurgé.
A+Daniel

 

[pierrejean]

Re

vois si cela te convient

 

[mfb]

Re,
C super.
Alors Merci pierrejean et gosselien biensur.
A+
Daniel

 

[BOISGONTIER]

Bonsoir,

Exemples ComboBoxs 2 colonnes

S'il n'y a pas de doublons
http://boisgontierjacques.free.fr/fichiers/Formulaire/FormComboBoxMultiCol.xls

S'il y a des doublons
http://boisgontierjacques.free.fr/fichiers/Formulaire/FormCascadeSansDoublons2colonnesDict.xls

JB