Bonjour tout le monde,


J ai un petit probleme avec ce code, il doit remplir une listbox
mais le nombre de ligne affichee lors de l execution depend de la taille du tableau
et comme je le declare avec 1000 lignes (Dim MyArray(1000, 5) )
il m affiche tous des blancs, j aimerai donc que le remplissage de lq listbox se limite aux valeurs non nulles contenues dans le tableau

si quelqu un a une idee je suis preneur

je continue a chercher.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Dim MyArray(1000, 5)
Dim X As Integer
 
Dim i As Single
 
    ListBox1.ColumnCount = 6
    ListBox1.ColumnWidths = "25;50;150;50;50;30;"
    X = Cells(65535, 1).End(xlUp).Row - 1
    For i = 2 To X + 1
       MyArray(i - 2, 0) = i - 1
       MyArray(i - 2, 1) = Sheets("omzet").Cells(i, 1).Value
       MyArray(i - 2, 2) = Sheets("omzet").Cells(i, 2).Value
       MyArray(i - 2, 3) = Sheets("omzet").Cells(i, 6).Value
       MyArray(i - 2, 4) = Sheets("omzet").Cells(i, 11).Value
       pol = Int(Sheets("omzet").Cells(i, 10).Value)
       MyArray(i - 2, 5) = pol
    Next i
 
 
ListBox1.List = MyArray