Drag and drop

patbart

XLDnaute Nouveau
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

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
4
Affichages
203
Réponses
8
Affichages
387

Statistiques des forums

Discussions
312 147
Messages
2 085 768
Membres
102 969
dernier inscrit
pizza