Private Sub UserForm_Initialize()
' Initialisation du listview
With ListView1
With .ColumnHeaders
' Vider le listview
.Clear
'Ajouter les colonnes
.Add , , "N°", "30"
.Add , , "Nom", 90
.Add , , "Prenom", 85
.Add , , "Marque", 80
.Add , , "Type", 80
.Add , , "Date de creation dossier", 120
End With
.View = 3 ' type Report
.Gridlines = True ' affichage de lignes
.FullRowSelect = True ' sélection complète de la ligne
.HideColumnHeaders = False ' afficher les en-têtes de colonnes
.LabelEdit = 1 ' ne pas autoriser la saisie
End With
End Sub