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