Dim Tbl(), f
Private Sub UserForm_Initialize()
Set f = Sheets("BD")
Set d = CreateObject("Scripting.Dictionary")
Tbl = f.Range("D3:P" & f.[D65000].End(xlUp).Row).Value
For i = LBound(Tbl) To UBound(Tbl)
If Tbl(i, 1) <> "" Then d(Tbl(i, 1)) = ""
Next i
temp = d.keys
Call Tri(temp, LBound(temp), UBound(temp))
Me.ComboBox1.List = temp
End Sub
Private Sub ComboBox1_Click()
With Me.ListView1
With .ColumnHeaders
.Clear
For k = 1 To 12
.Add , , f.Cells(2, k + 3), 70
Next k
End With
ligne = 1
.Gridlines = True
.View = lvwReport
.ListItems.Clear
For lig = 1 To UBound(Tbl)
If Tbl(lig, 1) = Me.ComboBox1 Then
.ListItems.Add , , Tbl(lig, 1)
For k = 2 To 12
.ListItems(ligne).ListSubItems.Add , , Tbl(lig, k)
Next k
ligne = ligne + 1
End If
Next lig
End With
End Sub