1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
| Dim Tbl(), f
Private Sub UserForm_Initialize()
Set f = Sheets("BD")
Set d = CreateObject("Scripting.Dictionary")
Tbl = f.Range("A3:P" & f.[A65000].End(xlUp).Row).Value
For i = LBound(Tbl) To UBound(Tbl)
If Tbl(i, 4) <> "" Then d(Tbl(i, 4)) = ""
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 15
.Add , , f.Cells(2, k), 60
Next k
End With
ligne = 1
.Gridlines = True
.View = lvwReport
.ListItems.Clear
For lig = 1 To UBound(Tbl)
If Tbl(lig, 4) = Me.ComboBox1 Then
.ListItems.Add , , Tbl(lig, 1)
For k = 2 To 15
.ListItems(ligne).ListSubItems.Add , , Tbl(lig, k)
Next k
ligne = ligne + 1
End If
Next lig
End With
End Sub |
