Boucle sur list view

[phoenix2006]

Bonjour,
J'essai de créer une boucle sur une listview pour ajouter des valeurs excel dans les lignes et colonnes.

J'ai réussi à créer la boucle pour ajouter la première colonne
mais lorsque je veux ajouter les valeurs dans les deuxieme et troisième colonnes, la boucle ne fonctionne plus

si quelqu'un avait une piste pour m'aider à avancer

Merci d'avance

Private Sub UserForm_Initialize()
Dim c2 As Long
Dim i As Integer
Dim j As Integer


With ListView1
Worksheets("cage").Select

             Me.ListView1.View = lvwReport
         Me.ListView1.ListItems.Clear
         Me.ListView1.ColumnHeaders.Clear

        'ajout des colonnes
        Me.ListView1.ColumnHeaders.Add 1, , "Cage", 60, lvwColumnLeft
        Me.ListView1.ColumnHeaders.Add 2, , "Proprietaire", 60, lvwColumnLeft
        Me.ListView1.ColumnHeaders.Add 3, , "Race", 60, lvwColumnLeft
        Me.ListView1.ColumnHeaders.Add 4, , "Points juge", 60, lvwColumnLeft
        Me.ListView1.ColumnHeaders.Add 5, , "Vente", 60, lvwColumnLeft
        
        

  For i = 2 To 800
        
      .ListItems.Add , , Cells(i, 2) 'ajout des cages
  '    Me.ListView1.ListItems.Add , , Cells(i, 3)
      .ListItems(1).ListSubItems.Add , , Cells(i, 3)  'ajoute les proprietaires
      .ListItems(1).ListSubItems.Add , , Cells(i, 4) 'ajoute la race
      .ListItems(1).ListSubItems.Add , , Cells(i, 5) ' point vente
      .ListItems(1).ListSubItems.Add , , Cells(i, 6) 'A vendre
      
      Next i
      
End With
End Sub

 

[Pierrot93]

Re : Boucle sur list view

Bonjour,

modifie peut être ainsi :

For i = 2 To 800
      .ListItems.Add , , Cells(i, 2) 'ajout des cages
      .ListItems(.ListItems.Count).ListSubItems.Add , , Cells(i, 3)  'ajoute les proprietaires
      .ListItems(.ListItems.Count).ListSubItems.Add , , Cells(i, 4) 'ajoute la race
      .ListItems(.ListItems.Count).ListSubItems.Add , , Cells(i, 5) ' point vente
      .ListItems(.ListItems.Count).ListSubItems.Add , , Cells(i, 6) 'A vendre
Next i

bon après midi
@+

 

[phoenix2006]

Re : Boucle sur list view

Merci beaucoup, ça fonctionne parfaitement!

Au passage, une question me turlupine.
Avec cette méthode, est-il possible de modifier les données dans une colonne pour qu'elle se modifie dans la cellule correspondante?

Merci d'avance

 

[Pierrot93]

Re : Boucle sur list view

Re,

je ne crois pas, mais ne suis pas un grand spécialiste des "listview"....