Aide pour listbox

Private Sub UserForm_Initialize()
Dim data As New Collection
Dim colonne, el
Dim i As Byte, x As Byte


For Each colonne In Array(2, 3, 5)
        For i = 2 To Cells(65536, colonne).End(xlUp).Row
                On Error Resume Next
                data.Add Cells(i, colonne), CStr(Cells(i, colonne))
                On Error GoTo 0
        Next i
       
        x = x + 1
       
        For Each el In data
                Controls('listbox' & x).AddItem el
        Next el
       
        Set data = Nothing
Next colonne

End Sub

Cliquez pour agrandir...