Sub a()
Dim t1() As Variant
ReDim t1(1 To 2)
Dim t2() As Variant
ReDim t2(1 To 3, 1 To 1)
t1(1) = t2
t1(1)(1, 1) = 21 '-> 21
t1(1)(3, 1) = 31 '-> 31
'
t1(1)(2, 1) = t2 '-> Le Tableau t2 est vide
t1(1)(2, 1)(1, 1) = "A" '-> "A"
t1(1)(2, 1)(2, 1) = "B" '-> "B"
t1(1)(2, 1)(3, 1) = "C" '-> "C"
' Lecture directe
MsgBox t1(1)(1, 1) '-> 21
' Lecture avec Boucle
For i = LBound(t1(1), 1) To UBound(t1(1), 1)
If i <> 2 Then ' -> Sauf la case 2 qui contient le tableau
MsgBox t1(1)(i, 1) ' -> Lecture des Case 1 et 3
End If
Next i
' Lecture avec Boucle
For i = LBound(t1(1)(2, 1), 1) To UBound(t1(1)(2, 1), 1)
MsgBox t1(1)(2, 1)(i, 1) ' -> t1(1)(2, 1) = t2 '-> Le Tableau t2 allimenté
Next i
' Lecture directe
MsgBox t1(1)(3, 1) '-> 31
' Bonus
' Redim Preserve -> ' t1(1)(2, 1)
arrcolumns = Array(1, 2) ' Pour ajout d'une colonne
' Si j'avais voulu 5 colonnes -> arrcolumns = Array(1, 2, 3, 4, 5)
' Simule des lignes -> équivalent de cases (Pour la première dimension)
' Si j'avais voulu 10 cases -> Il faut simulé 10 Ligne / Evaluate("ROW(1:" & "10" & ")")
' Ci-Dessous la l'ajout / Equivalent de Redim Preserve
t1(1)(2, 1) = Application.Index(t1(1)(2, 1), Evaluate("ROW(1:" & "3" & ")"), arrcolumns)
' Resultat
' t1(1)(2, 1) pas de t1(1)(1 To 3, 1 To 1) a t1(1)(1 To 3, 1 To 2)
' Test remplir les cases du ou des tableaux : ci-dessous
' Je remplis la nouvelle colonne
t1(1)(2, 1)(1, 2) = "Nouvelle Colonne A" '-> "Nouvelle Colonne A"
t1(1)(2, 1)(2, 2) = "Nouvelle Colonne B" '-> "Nouvelle Colonne B"
t1(1)(2, 1)(3, 2) = "Nouvelle Colonne C" '-> "Nouvelle Colonne C"
' Les dimensions
LBound(t1(1)(2, 1), 1) ' -> Dimension 1 soit Première case "Ligne"
UBound(t1(1)(2, 1), 1) ' -> Dimension 1 soit Dernière case "Ligne"
LBound(t1(1)(2, 1), 2) ' -> Dimension 2 soit Première case "Colonne"
UBound(t1(1)(2, 1), 2) ' -> Dimension 2 soit Dernière case "Colonne"
' Lecture avec Boucle
For i = LBound(t1(1)(2, 1), 1) To UBound(t1(1)(2, 1), 1)
For j = LBound(t1(1)(2, 1), 2) To UBound(t1(1)(2, 1), 2)
MsgBox t1(1)(2, 1)(i, j) ' -> t1(1)(2, 1) = t2 '-> Le Tableau t2 allimenté avec la nouvelle colonne
Next j
Next i
End Sub