Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
253
Réponses
8
Affichages
482
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…