Discussion :

[c.piette]

Bonjour à tous,


J'aurais souhaité boucler sur les lignes/éléments d'un ListView afin d'injecter leur contenu dans les cellules d'un tableau. Petite astuce, j'aimerais le faire avec un "for each"... la raison ? M'entraîner à manipuler les for each

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButtonMAJMAJ_Click()
 
Dim Position As String
Dim Ligne As ListItem
Dim i As Integer, j As Integer
 
Position = WorksheetFunction.Match(LibelleActiviteAjoutee, Range("Activités"), 0)
i = 2
j = 1
'##### Efface tous les contenus pour mettre tous ce qui a été mis à jour
 
Range(Range("TableauActivites").Cells(Position - 1, 2), _
Range("TableauActivites").Cells(Position - 1, 2).End(xlToRight)).ClearContents
 
 
    For Each Ligne In ListViewDefinitionActivites.ListItems
 
        Range("TableauActivites").Cells(Position - 1, i + 1) = Ligne(j).Text
        Range("TableauActivites").Cells(Position - 1, i) = Ligne(j).ListSubItems(1).Text
 
        i = i + 2
    Next Ligne
 
End Sub

Quelqu'un pourrait-il m'expliquer pourquoi il ne fonctionne pas ?

Merci d'avance

[c.piette]

J'ai trouvé ma faute ! Con de chez con.

Voici le code fonctionnel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub CommandButtonMAJMAJ_Click()
 
Dim Position As String
Dim Ligne As ListItem
Dim i As Integer, j As Integer
 
Position = WorksheetFunction.Match(LibelleActiviteAjoutee, Range("Activités"), 0)
LibelleActiviteAjoutee = ""
i = 2
j = 1
'##### Efface tous les contenus pour mettre tous ce qui a été mis à jour
 
Range(Range("TableauActivites").Cells(Position - 1, 2), _
Range("TableauActivites").Cells(Position - 1, 2).End(xlToRight)).ClearContents
 
 
    For Each Ligne In ListViewDefinitionActivites.ListItems
 
        'Set Ligne = ListViewDefinitionActivites.ListItems.Item
 
        Range("TableauActivites").Cells(Position - 1, i + 1) = Ligne.Text
        Range("TableauActivites").Cells(Position - 1, i) = Ligne.ListSubItems(1).Text
 
        i = i + 2
    Next Ligne
 
End Sub