Affecter élément à tableau multi-dimensionel

Version imprimable

Bonjour,

Je cherche à remplir mon tableau multi dimensionel mais je n'y arrive pas ( indice hors plage est l'erreur levée ) :

voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
        ReDim tbTCol(1 To 1, _
LBound(Split(tbElement(1), ";")) To UBound(Split(tbElement(1), ";")), _
LBound(Split(tbElement(2), ";")) To UBound(Split(tbElement(2), ";")), _
1 To 1)
 
 
            'Remplir la 1ére dimension
            tbTemp = Split(tbElement(0), ";")
            For cpt = 1 To UBound(tbTCol,0)
                tbTCol(cpt , 1) = tbTemp(0)
            Next
 
            'Remplir la 2éme dimension
            tbTemp = Split(tbElement(1), ";")
            For cpt = LBound(tbTemp) To UBound(tbTCol,1)
                tbTCol(cpt, 2) = tbTemp(cpt)
            Next
 
            'Remplir la 3éme dimension
            tbTemp = Split(tbElement(2), ";")
            For cpt = LBound(tbTemp) To UBound(tbTCol,2)
                tbTCol(0, 3) = tbTemp(0)
            Next
            'tbTCol(1, 3) = Split(tbElement(3), ";")
            'Exit Sub

27/01/2010, 21h14
Gorfael

Salut benoxy et le forum
Tu donnes un extrait de code dont le résultat est une erreur, alors qu'on ne connaît rien de ton problème. Et le problème n'est pas lié au code, maisaux variables. Pas assez fort pour résoudre avec si peu de données.
Une idée de dépannage : fixer lesvariable à la main et exécuter la macro en mode pas-à-pas (penser à réduire le nombre de données :mrgreen:).
A+
29/01/2010, 05h18
benoxy

Merci pour ta réponse mais je définissait mal mon tableau. Pour mon probléme un tableau à 2 dimensions me suffisait.