Drag and drop

[patbart]

Bonjour,

J'ai récupéré sur le site une démo de Thierry concernant le drag n'drop sur une listbox en multi colonnes.
Mon USF à 2 listbox à 2 colonnes, lorsque je transfert les données de la listbox 1 vers la deux, les données de la colonne 1 s'insérent les unes sous les autres mais les données de la colonne 2 se remplacent.

Voici le code que j'ai utilisé :

With Listbox2
.ColumnCount = 2
.columnWidths = "15,30"
End With

With Listbox2
.Additem Listbox1.Column (0, (Listbox1.ListIndex))
.Column(1,0) = Listbox1.Column (1, Listbox1.ListIndex))
End With

J'ai essayé en remplaçant
.column...par
.Additem Listbox1.Column (1, Listbox1.ListIndex))
mais ça ne fonctionne pas non plus.

Merci pour vos réponses.

Bon W.E
@+ Patbart

 

[patbart]

Re : Drag and drop

Bonjour,

J'ai résolu mon problème.
J'ai remplacé
.Column(1,0) = Listbox1.Column (1, Listbox1.ListIndex))
par
.List(Listbox2.ListCount -1, 1) = Listbox1.Column (1, Listbox1.ListIndex))

Voilà si ça peu aider quelqu'un.

Bon Dimanche.
@+Patbart