Discussion :

[botakelymg]

Bonjour,

Je voudrais utiliser un tableau dont l'un des indices est variable (quelque chose dans le genre "Public sArray(,0 to 2)" mais, le debugger me jette.

Evidemment, l'idée est d'incrémenter cet Array par l'instruction Redim Preserve.

Je ne sais pas comment aborder le sujet, si cela est possible.

Après, je passe ce tableau pour alimenter un ListBox par la propriété MyListBox.List. Evidemment, cela fait trop de lignes vides.

Je le fais avec un tableau fixe à 2 dimensions mais, ça ne me satisfait pas pour gâchis de mémoire sans compter que je ne Veux pas fixer une dimension à l'avance.

Auriez-vous une idée ou m'indiquer des liens dans ce sens ?

Merci.

[fred65200]

bonsoir, un petit code exemple

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
Sub Tablo()
Dim tablo2Dim() As Variant
Dim i As Long
Dim k As Long
k = 0
For i = 1 To 5
ReDim Preserve tablo2Dim(1, k)
tablo2Dim(0, k) = "blabla1, k = " & k
tablo2Dim(1, k) = "blabla2, k = " & k
k = k + 1
Next i
 
For i = LBound(tablo2Dim, 2) To UBound(tablo2Dim, 2)
Debug.Print tablo2Dim(0, i) & " - " & tablo2Dim(1, i)
Next
End Sub

@+

[patbou]

BONSOIR

attention avec redim preserve tu ne peux redimensionr que la dernière dimension du tableau

[botakelymg]

Je vous remercie pour ces apports.