Discussion :

[zoltar_x]

Bonjour,

Petite question concernant les tableaux structurés (et objet ListObject) : est-il possible d'avoir un tableau de tableaux ?
Je m'explique : j'ai déjà eu à stocker et manipuler l'ensemble d'un classeur (8 feuilles contenant la même structure de tableau) dans une variable de type table (Array) à 3 dimensions, la troisième dimension étant le numéro ou indice de la feuille (Worksheets(i)).
Peut-on faire la même chose avec l'objet ListObject ?

[Pierre Fauconnier]

Salut.

Je ne comprends pas bien ta question. A priori, tu pourrais remplacer le numéro de la feuille par le nom du tableau, par exemple.

Tu aurais un exemple avec deux ou trois feuilles de 5 ou 6 lignes et nous montrer l'array que tu as généré?

[zoltar_x]

Voilà un petit code qui somme les tableaux (nombre de lignes et colonnes identiques) de n feuilles et stocke la somme dans un tableau (Array à 3 dimesnions).
Une feuille "Somme" est créée et le tableau 3d est affiché.

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
27
28
29
30
31
32
33
34
35
36
37
38
 
Sub somme_donnees_table3D()
 
    Dim i As Long, j As Long, k As Long
    Dim derniere_ligne As Long, derniere_colonne As Long
    Dim nb_feuilles As Integer
    Dim ma_table()
 
    nb_feuilles = Worksheets.Count
 
    Worksheets(1).Select
 
    derniere_ligne = Range("A1").End(xlDown).Row
    derniere_colonne = Range("A1").End(xlToRight).Column
 
    ReDim ma_table(derniere_ligne, derniere_colonne, nb_feuilles + 1)
 
    For k = 1 To nb_feuilles
 
        Worksheets(k).Select
 
        For i = 0 To derniere_ligne - 1
            For j = 0 To derniere_colonne - 1
                ma_table(i, j, nb_feuilles + 1) = ma_table(i, j, nb_feuilles + 1) + ActiveSheet.Cells(i + 1, j + 1)
            Next j
        Next i
    Next k
 
    Worksheets.Add After:=ActiveSheet
    ActiveSheet.Name = "Somme"
 
    For i = 0 To derniere_ligne - 1
        For j = 0 To derniere_colonne - 1
            ActiveSheet.Cells(i + 1, j + 1) = ma_table(i, j, nb_feuilles + 1)
        Next j
    Next i
 
End Sub

Généralement, stocker un tableau dans un Array permet d'avoir toutes les données en mémoire : ça permet d'éviter les va et vient entre le programme et la feuille de calcul. C'est le même raisonnement pour les tables structurées.

[zoltar_x]

C'est bon, j'ai trouvé comment faire :

Code :

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

1
2
3
4
5
6
7
8
 
Dim ma_Table As ListObject
Dim mon_Array As Variant
 
Set ma_Table = ActiveSheet.ListObjects("Table1")
mon_Array = ma_Table.DataBodyRange
.....
etc.

C'est un bon raccourci.

[Pierre Fauconnier]

En fait, sans tableaux, tu peux consolider tes feuilles avec des formules 3D, sans boucles

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
Sub Conso()
  Dim FirstName As String
  Dim LastName As String
  Dim Formula As String
  Dim shConso As Worksheet
  Dim RangeAddress As String
  Dim LastRow As Long
  Dim LastColumn As Long
 
  LastRow = Worksheets(1).Range("a1").End(xlDown).Row
  LastColumn = Worksheets(1).Range("a1").End(xlToRight).Column
  FirstName = Worksheets(1).Name
  LastName = Worksheets(Worksheets.Count).Name
  Formula = "=sum(" & FirstName & ":" & LastName & "!a1)"
  RangeAddress = "$a$1:" & Cells(LastRow, LastColumn).Address
  Set shConso = Worksheets.Add(after:=Worksheets(Worksheets.Count))
  shConso.Range(RangeAddress).Formula = Formula
End Sub

Avec des tableaux structurés, tu as deux solutions:

soit tu es certain que tes tableaux sont placés de manière identique sur chaque feuille, et tu utilises la technique ci-dessus en adaptant simplement avec les databodyrange

soit tu n'est pas certain que les tableaux "s'empilent en 3D", tu peux alors utiliser le code suivant, en stockant les databodyrange dans une des dimensions du tableau:

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
Sub Conso()
  Dim FirstName As String
  Dim LastName As String
  Dim Formula As String
  Dim shConso As Worksheet
  Dim RangeAddress As String
  Dim LastRow As Long
  Dim LastColumn As Long
 
  LastRow = Worksheets(1).Range("a1").End(xlDown).Row
  LastColumn = Worksheets(1).Range("a1").End(xlToRight).Column
  FirstName = Worksheets(1).Name
  LastName = Worksheets(Worksheets.Count).Name
  Formula = "=sum(" & FirstName & ":" & LastName & "!a1)"
  RangeAddress = "$a$1:" & Cells(LastRow, LastColumn).Address
  Set shConso = Worksheets.Add(after:=Worksheets(Worksheets.Count))
  shConso.Range(RangeAddress).Formula = Formula
End Sub

[zoltar_x]

Voici un exemple plus parlant de l'utilisation de tables à 3 dimensions.
Les n premières feuilles sont stockées dans un Array et sont ensuite réaffichés sur n nouvelles feuilles (un copier-coller).
Les tableaux sur les onglets sont supposés avoir le même nombre de lignes et colonnes.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Sub recup_donnees_ma_tableau3D_sur_n_feuilles()
 
    Dim i As Long, j As Long, k As Long
    Dim derniere_ligne As Long
    Dim derniere_colonne As Long
    Dim nb_feuilles As Integer
    Dim ma_table()
 
    nb_feuilles = Worksheets.Count
 
    Worksheets("Feuil1").Select
 
    derniere_ligne = Range("A1").End(xlDown).Row
    derniere_colonne = Range("A1").End(xlToRight).Column
 
    ReDim ma_table(derniere_ligne, derniere_colonne, nb_feuilles)
 
    For k = 1 To nb_feuilles
 
        Worksheets(k).Select
 
        For i = 0 To derniere_ligne - 1
            For j = 0 To derniere_colonne - 1
                ma_table(i, j, k) = ActiveSheet.Cells(i + 1, j + 1)
            Next j
        Next i
    Next k
 
    For k = 1 To nb_feuilles
 
        Worksheets.Add After:=ActiveSheet
 
        For i = 0 To derniere_ligne - 1
            For j = 0 To derniere_colonne - 1
                ActiveSheet.Cells(i + 1, j + 1) = ma_table(i, j, k)
            Next j
        Next i
    Next k
 
End Sub

[zoltar_x]

Ok. Merci pour ta réponse.

[Pierre Fauconnier]

Et en quoi est-ce plus rapide que des copier-coller?

[zoltar_x]

Le but est pas de faire un copier-coller : le but est juste de montrer qu'on peut stocker n tableaux de n onglets dans un seul Array.
Il est même possible avec un Array à 4 dimensions de stocker n tableaux de n onglets de x classeurs ouverts.