Remplir liste view

Private Sub UserForm_Initialize()


'----- remplissage ListView------------------------
With ListView1
'Définit le nombre de colonnes et Entêtes
With .ColumnHeaders
'Supprime les anciens entêtes
.Clear
'Ajoute 9 colonnes en spécifiant le nom de l'entête
'et la largeur des colonnes
.Add , , "Place", 30
.Add , , "Équipe", 65
.Add , , "Points", 35
.Add , , "Gagné", 35
.Add , , "Nul", 35
.Add , , "Perdu", 35
.Add , , "But Marqués", 60
.Add , , "But encaissés", 60
.Add , , "Différence de but", 75
End With
.View = 3
.Gridlines = True
.FullRowSelect = True
.HideColumnHeaders = False
.LabelEdit = 1

'Remplissage de la 1ere colonne (création de 3 lignes)
With .ListItems
.Add , , "1"
.Add , , "2"
.Add , , "3"
.Add , , "4"
End With

'Remplissage des colonnes 2 et 3 dans la 1ere ligne
. ListView1.ListItems.Add , "AA" & cellule.Row, cellule.Offset(0, 0).Value
.ListItems(1).ListSubItems.Add , , 30

End With
'--------------------------------------------------

'Spécifie l'affichage en mode "Détails"

End Sub

Cliquez pour agrandir...