Discussion :

[Pilote1152]

Bonjour,

Je souhaite regrouper dans un Tableau Structuré les données de différents TS (un dans chaque onglet) ayant bien sûr les mêmes colonnes.
J'ai trouvé dans le forum un exemple de Pierre Fauconnier (27/09/2020) avec fonction MergeTables dont j'essaie de m'inspirer.

Seulement l'appel de la fonction provoque une erreur de compilation "type argument ByRef incompatible.
J'ai pourtant bien déclaré l'argument en listObject au début de ma boucle
Je sèche donc totalement
Quelqu'un peut-il m'aider svp à avancer ?

Je joins un fichier exemple avec code (données bidons)
Test_ConcatenerTS.xlsm
J'ajouterais que l'objet de cette concaténation est de réaliser un graphique avec les données des seules colonnes telles que reprises dans le TS "tbl_Cumul" figurant en feuille "Cumul". Ce TS est appelé à être remplacé par le TS "Tableau9" objet du nouveau code après concaténation.

Merci d'avance
Cordialement

[Philippe Tulliez]

Bonjour,
Le problème que vous rencontrez provient du fait que vous n'avez pas déclarer les variables objets telles que Lets, tFinal et d'autres
La première chose à faire pour programmer en VBA sans devoir perdre un temps à chercher ses erreurs c'est d'ajouter l'Option Explicit en tête de module.
Pour l'ajouter automatiquement, il faut cocher l'option Déclaration des variable obligatoire dans les options du VBE (onglet [Editeur ] de la boîte de dialogue Options

Personnellement je ferais ce travail à l'aide de Power Query (emballé en quelques clics)

[Pilote1152]

Bonjour,
Le problème que vous rencontrez provient du fait que vous n'avez pas déclarer les variables objets telles que Lets, tFinal et d'autres
La première chose à faire pour programmer en VBA sans devoir perdre un temps à chercher ses erreurs c'est d'ajouter l'Option Explicit en tête de module.
Pour l'ajouter automatiquement, il faut cocher l'option Déclaration des variable obligatoire dans les options du VBE (onglet [Editeur ] de la boîte de dialogue Options

Personnellement je ferais ce travail à l'aide de Power Query (emballé en quelques clics)

Bonjour Philippe,

Merci pour l'astuce déclaration des variables qui a effectivement résolu l'erreur.
Quant à PowerQuery j'ai lu qu'il pourrait être LA solution mais cet outil m'est encore inconnu et je ne comprends pas si il effectue les calculs sur la base d'un code pour automatiser les calculs ...

Bonne soirée et merci

Cordialement

[deedolith]

Hello,

Plutôt que passer par VBA,
je suggère de passer par Power Query, qui est très fort pour réaliser ce genre d'opération.

Il suffira alors de rafraichir la requête pour obtenir des données à jour.

[Promethee25]

Bonjour,

En phase avec Philippe et deedolith: Power Query semble être la solution la plus efficace.

Je vois deux possibilités selon ton besoin (chacune ayant ses avantages et inconvénients):

• Solution 1:Importer chaque table dans une requête indépendante puis créer une requête chapeau combinant toutes ces sous-requêtes.
  
  • Avantage: idéal si ta liste de tableaux n'est pas trop importante et n'est pas amenée à évoluer car cela permet de tenir compte des évolutions de tes tableaux à chaque actualisation (sans avoir à enregistrer le fichier au préalable). On est dans le mode d'exploitation classique de tableaux par Power Query au sein d'un même fichier.
  • Inconvénients: fastidieux si beaucoup de tableaux à prendre en compte. Problème de faisabilité ou de maintenance (selon le contexte exact) si ton nombre de tableaux est appelé à évoluer.
• Solution 2: Utiliser le connecteur Excel normalement utilisé pour récupérer les données d'un ou plusieurs classeurs externes.
  
  • Avantage: possibilité d'être dynamique sur le nombre de tableaux à prendre en compte (en filtrant si nécessaire selon des règles de nommage de ces tableaux).
  • Inconvénient: fonctionne comme avec un classeur externe: il faut enregistrer le classeur avant actualisation pour que Power Query voie les derniers changements dans tes tables sources.

Un exemple de script pour la solution 2 (généré directement via l'interface graphique de Power Query; je suis parti du connecteur "à partir d'un fichier Excel"):

Code :

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

1
2
3
4
5
6
7
let
    Source = Excel.Workbook(File.Contents("D:\MonChemin\Book1.xlsx"), null, true),
    #"Filtered Rows" = Table.SelectRows(Source, each ([Kind] = "Table")),
    #"Removed Other Columns" = Table.SelectColumns(#"Filtered Rows",{"Name", "Data"}),
    #"Expanded Data" = Table.ExpandTableColumn(#"Removed Other Columns", "Data", {"Column1", "Column2", "Column3"}, {"Column1", "Column2", "Column3"})
in
    #"Expanded Data"

Pour la solution 1, il faut utiliser le connecteur "A partir d'un tableau/plage" pour chaque tableau. Puis voici un exemple de la fonction "Combiner" de Power Query qui te permettra de les combiner facilement (même si ce n'est pas exactement ton cas):
https://www.lecfomasque.com/powerque...es-dans-excel/

NB: Power Query est dans le menu Données d'Excel.

[Raccourcix]

Bonjour

quand on utilise le connecteur "A partir d'un tableau ou d'une plage" on obtient un code = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content].
il suffit de supprimer la référence au Tableau1 = Excel.CurrentWorkbook() pour obtenir la liste de tous les tableaux du classeur actuel.
on filtre éventuellement la liste et on peut tous les combiner ou développer les colonnes qui nous intéressent.

Pour combiner TOUS les tableaux/plages nommées d'un classeur

Code :

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

= Table.Combine(Excel.CurrentWorkbook()[Content])

Attention, si on charge cette requête dans une table, elle va s'autoréférencer.
Mais c'est possible de la charger dans un TCD

Sinon il faut la filtrer.

Voici une requête nommée "Synthèse" qui va combiner TOUS les tableaux/plages nommées sauf la table "Synthèse"

Code :

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

1
2
3
4
5
6
let
    Source = Excel.CurrentWorkbook(),
    Filtre = Table.SelectRows(Source, each [Name] <> "Synthèse"),
    Combine = Table.Combine(Filtre[Content])
in
    Combine

Notez que les colonnes des plages nommées s'appelleront Column1, Column2...

Stéphane

[laurent_ott]

Bonjour,
Puisque nous sommes sur un forum de programmation VBA, je me permets de vous proposer une solution en programmation VBA, en utilisant les fonctions génériques pour gérer les tableaux structurés que vous trouverez dans cette documentation : Fonctions en VBA pour gérer les Tableaux Structurés d’Excel.

Ce qui donne ce code, en reprenant le fichier joint dans le premier message :

Code VBA :

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
'------------------------------------------------------------------------------------------------------
Sub ConcaternerLesTableaux()
'------------------------------------------------------------------------------------------------------
Dim ListeTableaux As Variant
Dim Synthèse As Range, Tableau As Range
Dim i As Integer
 
' Liste des tableaux sources:
ListeTableaux = Array("tbl_Histo_AVENIR2_JL1", "tbl_Histo_AVENIR2_JL2", "tbl_Histo_AVENIR2_CH1", "tbl_Histo_AVENIR2_CH2", "tbl_Histo_SPIRIT2")
 
' Le tableau de synthèse est effacé (suppression de la ligne 1 à la dernière):
Set Synthèse = Range("Tableau9")
Call TS_SupprimerPlusieursLignes(Synthèse, 1, 0)
 
' Boucle sur les tableaux sources pour les ajouter à la suite du tableau de synthèse:
For i = LBound(ListeTableaux) To UBound(ListeTableaux)
    Set Tableau = Range(ListeTableaux(i))
    Call TS_CopierUnTableau(Tableau, Synthèse, TS_AjouterDonnées, TS_Valeurs)
Next
 
' Correction du format des colonnes en reprenant le format du dernier tableau source:
For i = 1 To TS_Nombre_Colonnes(Synthèse)
    Call TS_FormatColonne(Synthèse, i, TS_InfoCellule(Tableau, i, 1, TS_Format), True)
Next i
 
End Sub
'------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------

Cordialement.

[Pilote1152]

Bonjour,

Merci Laurent pour cette proposition VBA qui répond parfaitement à ma préoccupation avec utilisation de "Array" (plus rapide) et des fonctions personnalisées.

Encore mille mercis et Bonne fin de WE

Cordialement