Private Sub UserForm_Initialize()
Dim i As Long
With ListView1
With .ColumnHeaders
.Clear
.Add , , "Nom", 100
.Add , , "Code", 70
.Add , , "Date Adhésion", 80
.Add , , "Spécialité", 110
.Add , , "Adresse", 200
.Add , , "Ville", 122
End With
For i = 2 To Sheets("Data").Range("A65536").End(xlUp).Row
.ListItems.Add , , UCase(Sheets("Data").Cells(i, 1))
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Data").Cells(i, 2)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Data").Cells(i, 3)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Data").Cells(i, 4)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Data").Cells(i, 5)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Data").Cells(i, 6)
.ListItems(.ListItems.Count).ListSubItems.Add , , i
Next i
End With
ListView1.LabelEdit = 1
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.AllowColumnReorder = True
ListView1.FullRowSelect = True
ListView1.CheckBoxes = False
ListView1.ListItems(1).Selected = False
Set ListView1.SelectedItem = Nothing
Alim_Combo
End Sub