Listbox avec plusieurs cellules et plusieurs lignes

Bonsoir cher tous

Mes vœux les meilleures pour l'année 2018

J'essaie de créer une listbox à partir du tableau de a feuille Excel qui contient 37 colonnes et plusieurs lignes. Depuis je réfléchie mais j'arrive pas.

Voici le code:

Private Sub UserForm_Initialize()
Dim i As Integer
Dim j As Integer
Dim n As Integer
Sheets("MANUTENTION GRAINE").Select
ListBox1.ColumnCount = 37
n = Range("A6000").End(xlUp).Row 'numéro de la derniere ligne
For i = 2 To n 'boucle sur les lignes
    For j = 0 To 36 'boucle sur les colonnes

ListBox1.List(i, j) = Offset(i, j).Value
    Next j
Next i
End Sub

J'envoie un bout de fichier pour plus de compréhension

Merci d'avance

Bien cordialement

Salut,

Voici une proposition

Private Sub UserForm_Initialize()

Sheets("MANUTENTION GRAINE").Select
n = Range("A6000").End(xlUp).Row 
NbColonne = Range("XFD1").End(xlToLeft).Column
ListBox1.ColumnHeads = False
ListBox1.ColumnCount = NbColonne
ListBox1.List() = Range(Cells(1, 1), Cells(n, NbColonne)).Value

End Sub

Bonjour

Voici ma proposition :

Tiens-moi au courant

Bye

Merci à vous @Patty5046 et @jers19

Vos codes sont simples et marchent parfaitement. Je ne sais même pas lequel choisir

Re

Tant mieux si cela fonctionne

Choisis celui que tu veux, nous ne nous ferons pas une scène de jalousie...

A+

C'es toujours meix d'avoir le choix

Bon courage pour la suite...

C'es toujours mieux d'avoir le choix

Bon courage pour la suite...