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