[VBA-E] eviter blanc remplissage listbox avec tableau
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:
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 |
