Discussion :

[benoxy]

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 :

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
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

[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 ).
A+

[benoxy]

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