Boucler sur les éléments d'un ListView avec For Each

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 :D

Voici mon code:

Code:

---

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 :)

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

Voici le code fonctionnel :

Code:

---

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

---