[XL-2007] Copies entre listbox

[Pierre67]

Bonjour au forum

j'ai 2 listbox de plusieurs colonnes et j'essaye vainement de faire passer des éléments de l'une vers l'autre cela fonctionne mais je n'obtiens que la première colonne

Y a t-il une solution pour copier les autres colonnes ?
cordialement

[gFZT82]

Bonjour,

Un document qui devrait t'aider
http://silkyroad.developpez.com/VBA/...serForm/#LII-G
En particulier :
Extraire la valeur de la 3eme colonne d'une Listbox, dans la ligne sélectionnée.

Code :

MsgBox ListBox1.List(ListBox1.ListIndex, 2)

Cordialement.

[Pierre67]

bonjour et merci pour la réponse.
Je connais ce tuto

ce que je souhaite : copier toutes les colonnes d'un élément dans une autre listbox

mes 2 listbox ont la même structure
exemple: si dans listebox1 j'ai 3 colonnes (Nom, prenom, age) que ces renseignements aillent dans les même colonnes de la listbox2

[gFZT82]

As-tu essayé

Code :

ListBox2.List = ListBox1.List

Cordialement.

[Pierre67]

oui il me copie tout le contenu de la liste

[gFZT82]

Voici le détail d'un code qui effectue pour chaque ligne la copie du premier élément a gauche de la liste puis des 2 éléments de droite.
Il te reste à l'adapter à ton besoin.

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub Copier_Click()
    'Ajoute les données dans la colonne de gauche
    For i = 0 To ListBox1.ListCount - 1
        ListBox2.AddItem ListBox1.List(i, 0)
        'Ajoute des données dans les colonnes de droite
        For j = 1 To 2
            ListBox2.List(i, j) = ListBox1.List(i, j)
        Next j
    Next i
End Sub

Cordialement.

[Pierre67]

Bonjour

en fait ça ne donne pas le résultat escompté

ça m'écrase dans box2 le contenu de la colonne 1 de la Box 1
et la colonne 1 de la box 1 n'est pas copié

je vais passer par une copie de la ligne excel d'un tableau à l'autre pour que le listbox 2 se mette à jour
cordialement