P
phoenix2006
Guest
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
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
Code:
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