1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Option Compare Text
Dim f
Private Sub UserForm_Initialize()
Set f = Sheets("BD")
Dim a()
a = Application.Transpose(f.Range("A2:A" & f.[A65000].End(xlUp).Row).Value)
Me.ComboBox1.List = SansDoublonsMAC(a())
End Sub
Function SansDoublonsMAC(a())
Dim Maliste As New Collection
On Error Resume Next
For i = LBound(a) To UBound(a)
Maliste.Add Item:=a(i), key:=a(i)
Next i
On Error GoTo 0
Dim b(): ReDim b(1 To Maliste.Count)
For i = 1 To Maliste.Count
b(i) = Maliste(i)
Next i
SansDoublonsMAC = Application.Transpose(b)
End Function |