Discussion :

[chmod777]

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

[Megaxel]

Regarde comment fonctionne "Redim Preserve".
Attention, je crois qu'il y a des ruses pour les tableaux à n dimensions (n>1)

[chmod777]

ReDim MyArray(X, 5)

ha ouais c est genial ca fonctionne merci encore

terrible!