Combinaisons de tableaux 2 et 3 dimensions

Bonjour,

Est-il possible de faire cela en VBA, (je n'ai pas besoin de visualiser le résultat dans cellules Excel) :

entrer dans un tableau à 2 dimensions, les combinaisons possibles d'un tableau à 3 dimensions ?

Voici 1 exemple en photo :

Exemple simple de tableaux emboîtés

Tbl() est un tableau à 1 dimension (1 à 3). On remarquera la syntaxe pour accéder à un élément des tableaux emboités. Il faut que les tableaux a,b,c aient la même taille. On peut transposer le tableau Tbl() pour obtenir un tableau classique à 2 dimensions.

Sub TableauEmboités()
  Dim Tbl(1 To 3)
  a = Array("a", "b", "c", "d")
  b = Array("e", "f", "g", "h")
  c = Array(1, 2, 3, 4)
  Tbl(1) = a
  Tbl(2) = b
  Tbl(3) = c
  For lig = LBound(Tbl) To UBound(Tbl)
     For col = LBound(a) To UBound(a)
        Cells(lig, col + 1) = Tbl(lig)(col)
     Next col
   Next lig
End Sub

Boisgontier