Remplir une listView avec une autre ListView

Bonjour,

j'ai créer une première UserForm1 avec une listView1. Puis j'ai créer une deuxième UserForm2 avec une listView2 aussi. Je voudrais savoir comment importer le contenu de la listView1 dans la listView2 sans pouvoir réécrir tout le code gérant la listView1.

Merci pour votre aide;)

bonjour tout depend comment
tu rempli la premiere en fait

ya til une condition pour remplir la deuxieme si non

sur la ligne

Code:

---

1 2 3 4

userform1.listview1 add item 'ou quelque chose come ca tu repete l operation   userform2.listview1.add item 'blablabla de la meme maniere que la premiere

---

si il y a une condition j ai bien peur que tu soit obligé de reecrire le code
ou peut etre utilise un module classe dans le quel tu metra la macro qui rempli les listviews

voila c'est juste une idéemais sans ton fichier ca risque d'etre dur de t aider

au plaisir

Ben, au fait, ma première list view se rempli en fonction des comboBox qui appartiennent au UserForm1. Je ne sais pas si tu vois!

Donc je ne peux pas intégrer le code le listView1 dans listView2 étant donné que UserForm2 ne possède pas de comboBox.

J'ai écrisce code mais ça ne m'affiche pas les donnés de la listView1 dans la listView2

Code:

---

1 2 3 4 5

For i = 1 To UserForm17.ListView1.ListItems.Count For j = 1 To ListView2.ListItems.Count UserForm17.ListView1.ListItems.Item(i) = ListView2.ListItems.Item(j) Next j Next i

---

Bonjour

Pour remplir la listview il faut utiliser add

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

with UserForm17.ListView1   For i = 1 To UserForm17.ListView1.ListItems.Count   ListView2.ListItems.Add , , .ListItems(i).Text ' pour la première colonne   For j = 1 To 5 ' pour les colonnes ' a modifier ou supprimer en fonction du nombre de colonnes   ListView2.ListItems(ListView2.ListItems.Count).ListSubItems.Add = .ListItems(j).ListSubItems(i).Text Next j next i End With

---

A tester

JP014

J'ai essayé le code mais ça ne marche pas. Plus précisemment, dans ma listView2 apparait juste des numéros de 1 à 10 mais pas le contenu text de la listView1.

au fait, j'ai pu retester ton code en ajoutant des modifications et ça a l'aire de marcher. Cependant il faut que je revois la boucle car à la fin de la liste j'ai d'autres lignes qui sont affichés et qui sont inutiles.

Donc vais revoir le code!!


Merci

Comme ça, le code marche mieux!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

With UserForm17.ListView1   For i = 1 To UserForm17.ListView1.ListItems.Count   'ListView2.ListItems.Add , , .ListItems(i).Text ' pour la première ligne   For j = 1 To 10 ' pour les colonnes ' a modifier ou supprimer en fonction du nombre de colonnes   ListView2.ListItems(ListView2.ListItems.Count).ListSubItems.Add = .ListItems(i).ListSubItems(j).Text Next j Next i End With

---

Merci pour ton aide!!
:D:lol:
:ccool: