TextBox

Private Sub UserForm_Initialize()
Dim i As Byte
Dim WS As Worksheet

Set WS = ThisWorkbook.Worksheets('Sheet1')

    With Me.TextBox1
        .MultiLine = True
            For i = 1 To 10
                Select Case i
                    Case 1 To 9
                        .Value = .Value & WS.Cells(i, 1) & Chr(10)
                    Case 10
                        .Value = .Value & WS.Cells(i, 1)
                End Select
            Next
        .AutoSize = True
    End With
End Sub

Cliquez pour agrandir...