Multicolonne et additem

[Guigui]

Bonjour à tous.

Voici mon souci,

j'utilise ce code pour remplir la listbox dans un USF

Sub init_listbox()
LCF.Clear
For i = 3 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
LCF.AddItem Sheets("Feuil1").Range("A" & i)
Next i
End Sub

Tous fonctionne à la perfection mais je souhaiterais faire une listbox en multi colonnes.

Comment je peux modifier ce code pour lui faire ajouter des "items" dans d'autres colonnes ?
(par ex, 4 colonnes au total, en A, B, C, D)

merci par avance pour votre aide.

Slts
Guillaume

 

[BOISGONTIER]

Re : Multicolonne et additem

Bonjour,

Formulaire liste multi-colonnes

JB

 

[Guigui]

Re : Multicolonne et additem

Re,

Merci BOISGONTIER, j'ai trouvé ce que je voulais.

Un autre souci.
sais tu pourquoi dans mon code (en PJ), mon initlistbox fonctionne une 1ere fois, mais me supprime ma listbox par la suite ?

Le principe :
un double clic sur une case jaune, fais ouvrir le USF
un clic sur un item, recherche la colonne 1 est place en colonne 3 la lettre qui correspond à la case jaune double clicqué.
je souhaite que la listbox aprés le clic soit "mise à jour" et voir apparaitre "la position"

Merci par avance