Discussion :

[monichou86]

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

[patricktoulon]

bonjour tout depend comment
tu rempli la premiere en fait

ya til une condition pour remplir la deuxieme si non

sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[monichou86]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jp014]

Bonjour

Pour remplir la listview il faut utiliser add

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[monichou86]

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

[monichou86]

Comme ça, le code marche mieux!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!