tri dans userform

Option Explicit


Private Sub UserForm_Initialize()
Dim Plage As Range, Cell As Range
Dim X As Long

With Me.ListBox1
    .ColumnCount = 2
    .ColumnWidths = '50;90'
End With

With ThisWorkbook.Worksheets('Feuil1')
    Set Plage = .Range(.Range('C2'), .Range('C65536').End(xlUp))
End With


    For Each Cell In Plage
        If Not Cell = Empty Then
            With Me.ListBox1
                .AddItem Cell.Offset(0, -1)
                .Column(1, X) = Cell
                X = X + 1
            End With
        End If
    Next Cell
End Sub

Cliquez pour agrandir...