Bonjour à vous,
Ma question est relativement simple, j'essaye d'afficher un tableau avec 14 colonnes et un nombre de ligne variant dans une listbox qui est dans un Userform. Je suis passer par un Array de la même taille dans lequel j'ai ajouté les valeurs de mon tableau dans excel.
Cependant lorsque je défini mon Array de la même taille que le tableau cela ne marche pas, il me dit que :
derligne doit être une constante lorsque je défini MyArray
Dim MyArray(derligne, 14) 'derligne doit etre une constant
Mon code en question :
Private Sub UserForm_Initialize()
Dim derligne As Long 'On déclare la variable derligne (dernière ligne du tableau des produits feuille 2)
derligne = Worksheets("feuil2").Range("A65536").End(xlUp).Row 'on va chercher la dernière ligne
Dim MyArray(derligne, 14) 'Tableau vide de même taille que mon tableau de produits
For i = 0 To derligne 'On boucle de la ligne 0 à derligne
For j = 0 To 13
With FRM_ADD_PRD.LST_ADD_PRD
MyArray(i, j) = Feuil2.Cells(i + 1, j)
End With
Next j
Next i
LST_ADD_PRD.List() = MyArray
End Sub
Cordialement.