Discussion :

[JLL001]

Bonjour,
Je ne sais pas comment résoudre un problème d'accès à des tableaux.
Je possède un tableau de string à 1 dimension qui contient des noms de tableaux.
Ex: Tabl = Array("Tabl1", "Tabl2", etc)
Les tableaux pointés ont plusieurs dimensions.
Ex: Tabl1 = Array(String,Val,Val,Val,etc)
Je voudrais peigner le tableau Tabl par une boucle (for/each ou for/next) et afficher les valeurs contenues dans le tableau pointé.
Malheureusement, une fois la variable de désignation du tableau récupérée dans Tabl, je ne sais pas comment la faire correspondre au tableau pointé pour en extraire les données.
Ce type d'action serait aussi à utiliser dans VBA Access.
Dans certains languages il existait une "macrocommande" qui permettait d'assimiler le contenu d'une variable à un objet
Ex: Variable="Tabl1"
debug.print &Variable(1) où Variable = "Tabl1"
Donc &Variable = Tabl1
Je ne sais pas comment résoudre ce problème.
Toute solution sera la bienvenue.
D'avance, merci.

[boisgontierjacques]

Bonsoir,

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

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

On obtient

a b c d
e f g h
1 2 3 4

Autre écriture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub ArrayEmboités()
  Tbl = Array( _
  Array("a", "b", "c", "d"), _
  Array("e", "f", "g", "h"), _
  Array(1, 2, 3, 4))
  For lig = LBound(Tbl) To UBound(Tbl)
    For col = 0 To 3
       Cells(lig + 1, col + 1) = Tbl(lig)(col)
    Next col
  Next lig
End Sub

Autre exemple

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
 
Sub TableauxEmboites()
   Dim a(1 To 4)
   Dim b(1 To 4)
   Dim c(1 To 4)
   For i = 1 To 4
     a(i) = i
     b(i) = i * 2
     c(i) = i * 3
   Next i
   Tbl = Array(a, b, c)       ' Tbl() est un tableau à 1 dimension (0 à 2)
   For lig = 0 To 2
      For col = 1 To 4
        Cells(lig+1,col)= Tbl(lig)(col)
     Next col
   Next lig
End Sub

On obtient

1 2 3 4 ' tableau a
2 4 6 8 ' tableau b
3 6 9 12 ' tableau c

Autre exemple

Sur cet exemple, on emboite 2 tableaux 2D a(,) et b(,) dans un Array().

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
 
Sub TableauxEmboites3()
   Dim a(1 To 3, 1 To 2)       ' 2D
   Dim b(1 To 3, 1 To 2)       ' 2D
   For lig = LBound(a, 1) To UBound(a, 1)
      For col = LBound(a, 2) To UBound(a, 2)
        a(lig, col) = lig + (col - 1) * 3
        b(lig, col) = lig + (col - 1) * 3 + 100
      Next col
    Next lig
    Tbl = Array(a, b)     ' 1D (0 à 1)avec 2 tableaux emboités
    MsgBox Tbl(0)(1, 1) ' affiche 1
    d = Tbl(0)               ' on extrait d() 2 dimensions
    e = Tbl(1)               ' on extrait e() 2 dimensions
    [A1].Resize(UBound(d, 1), UBound(d, 2)) = d
    [D1].Resize(UBound(e, 1), UBound(e, 2)) = e
    MsgBox Tbl(0)(1, 1) ' affiche 1
    MsgBox Tbl(1)(1, 1) ' affiche 101
End Sub
 
On obtient
 
a()         b()
1   4       101 104
2   5       102 105
3   6       103 106

[JLL001]

Bonsoir,
Merci pour les exemples, mais le cas que je rencontre est différent.
*Le premier tableau contient le nom des tableaux à visualiser et non pas les tableaux par eux-mêmes. Ce n'est pas une imbrication de tableaux.
Dans le programme que je crée, tous les tableaux sont dimensionnés dynamiquement. Au départ je ne connais aucune longueur. Je dois créer le premier tableau qui est un pointeur de tableaux.
Après, je créé chaque tableau en fonction des données que je reçois. Au final j'ai une liste de tableaux et en peignant cette liste je dois afficher chaque tableau pointé.
*En utilisant l'objet "cells" le code n'est pas transposable sous Access où il serait utilisé pour accéder non plus à des arrays mais à des champs.