Private Sub UserForm_Initialize()
'----- remplissage ListView------------------------
With Me.ListView1
.View = 3
'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 , , "LIBELLE", 100
.Add , , "MONTANT", 100
.Add , , "NUMERO", 20
End With
Me.ComboBox1.List = Range("L7:R" & [L65000].End(xlUp).Row).Value
For Each cel In ActiveSheet.Columns(13).SpecialCells(xlCellTypeConstants)
If IsNumeric(cel.Value) Then
.ListItems.Add , , cel.Offset(0, -1).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , cel.Value
End If
Next
.View = lvwReport
.Gridlines = True
.AllowColumnReorder = True
.FullRowSelect = True
.HideColumnHeaders = True
.ColumnHeaders(2).Alignment = 1
End With
'--------------------------------------------------
'Spécifie l'affichage en mode "Détails"
ListView1.View = lvwReport
End Sub