Bonjour,
J'aimerai remplir un tableau (1 dimension) de tableaux (2 dimensions) en dynamique ! (sinon ça serai trop simple .. ) ,à partir d'une base de donnée, pour pouvoir ensuite exploiter ces tableaux.
Mais voila .. quand je génère le programme j'ai le code erreur 13, et le debug m'indique la ligne en rouge.
J'ai pensé à déclarer entièrement mon tableau de tableau mais j'aimerai éviter les cases vides car les tableaux n'ont pas la même taille.
Si vous avez une idée je suis preneur.
Bien à vous!!!

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 Nouveau_Tab_Teste As Variant
Dim Vieux_Tab_Teste As Variant



Var_teste = 0
Vieux_Tab_Teste = Sheets("feuil2").Range("A36 : I2012")
cpt1 = 0

For cpt3 = LBound(Vieux_Tab_Teste, 1) To UBound(Vieux_Tab_Teste, 1)
    For cpt2 = LBound(Vieux_Tab_Teste, 2) To UBound(Vieux_Tab_Teste, 2)
        If Vieux_Tab_Teste(cpt3, 2) = Vieux_Tab_Teste(cpt3 + 1, 2) Then
        Nouveau_Tab_Teste(cpt1)(cpt3, cpt2) = Vieux_Tab_Teste(cpt3, cpt2)
        Else
        Nouveau_Tab_Teste(cpt1)(cpt3, cpt2) = Vieux_Tab_Teste(cpt3, cpt2)
        cpt1 = cpt1 + 1
        End If
    Next
Next