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", 120, lvwColumnLeft
.Add , , "Procédure", 120, lvwColumnCenter
.Add , , "Attendu", 120, lvwColumnCenter
.Add , , "Feuille", 120, lvwColumnCenter
.Add , , "Cellule", 120, lvwColumnCenter
.Add , , "Donnée Fournie", 158, lvwColumnCenter
End With
.Gridlines = True ' affichage de lignes
End With
'--------------------------------------------------
'Spécifie l'affichage en mode "Détails"
ListView1.View = lvwReport
End Sub