Concaténation de Tableaux Structurés via fonction

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)
Pièce jointe 667440
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

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)

Citation:

---

Envoyé par 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)

---

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

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.

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:

---

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.

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:

---

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

---

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