Afficher les n premiers elements d'1 listbox

If n > ListBox1.ListCount Then
    MsgBox 'pas possible.'
    Exit Sub
End If

For i = 1 To n
    Select Case i
        Case 1: TextBox1 = ListBox1.List(i - 1)
        Case Else: TextBox1 = TextBox1 & Chr(13) & ListBox1.List(i - 1)
    End Select
Next i

Cliquez pour agrandir...

Option Explicit
Const NbRetour As Byte = 10

Private Sub UserForm_Initialize()
Dim cel As Range
    For Each cel In Sheets(1).Range('A2:A26')
        ListBox1.AddItem cel.Value
    Next cel
TextBox2.SetFocus
End Sub

Private Sub TextBox2_Change()
TextBox1 = ''
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim n As Integer
Dim i As Integer

If Not IsNumeric(TextBox2.Value) = True Then
    Cancel = True
    TextBox2.Value = ''
    Exit Sub
End If

    On Error Resume Next
    For n = TextBox2 To TextBox2 + NbRetour
        TextBox1.Value = TextBox1.Value & ListBox1.List(n - 1) & Chr(13)
    Next n
End Sub

Cliquez pour agrandir...