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 3 colonnes en spécifiant le nom de l'entête
'et la largeur des colonnes
.Add , , "Date", 80
.Add , , "Mission", 50
.Add , , "Gamme", 50
.Add , , "Nom", 50
.Add , , "CA", 50
.Add , , "Charges", 50
End With
For i = 1 To 200
With .ListItems
.Add , , Cells(i + 4, 1)
End With
'Remplissage des colonnes dans la 1ere ligne
.ListItems(1).ListSubItems.Add , , Cells(i + 4, 2)
.ListItems(2).ListSubItems.Add , , Cells(i + 4, 3)
.ListItems(3).ListSubItems.Add , , Cells(i + 4, 4)
.ListItems(4).ListSubItems.Add , , Cells(i + 4, 5)
.ListItems(5).ListSubItems.Add , , Cells(i + 4, 6)
Next i
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.AllowColumnReorder = True
ListView1.FullRowSelect = True
End Sub