Microsoft 365 Combiner requetes Power Query ou VBA

[de_hanstrapp]

Bonsoir le forum,

J'ai un fichier excel composé de 33 onglets contenu chacun un tableau identique.
Je souhaiterais regrouper le contenu des 33 tableaux dans un tableau unique placé dans l'onglet synthèse.

Le nombre de ligne de chaque tableau peut être amené à changer (plus ou mois et certains contenus pourraient également changer.

Entre Power Query ou VBA quelles est la manière la plus simple et la plus rapide en terme d'actualisation des données.

Merci par avance pour votre avis et votre aide

NSAPG

 

[Staple1600]

Bonsoir le fil, nsapg

=>nsapg
Il y aussi la fonctionnalité
Données/Consolider
Tu as essayé cette piste?

 

[chris]

Bonjour

Et tu t'y retrouves avec des tableaux nommés Tableau1, Tableau117, tableau143 et des titres de colonnes comme Colonne1 à Colonne43 ?

Le plus simple et efficace http://www.excel-formations.fr/Trucs_astuces/PQ04.php

 

[patricktoulon]

bonsoir

pour compiler tout tes tableaux structurés(listobjects)

Sub compilLisobject()
    Dim compil As Worksheet, sh As Worksheet, header As Range, tablo As Range, tbstyle As String
    
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("compil").Delete
    Err.Clear
    
    Set compil = Sheets.Add(after:=Sheets(Sheets.Count))
    compil.Name = "compil"
    For Each sh In Worksheets
        On Error Resume Next
        Set header = sh.ListObjects(1).Range.Rows(1)
        Set tablo = sh.ListObjects(1).DataBodyRange
        tbstyle = sh.ListObjects(1).TableStyle
        compil.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(tablo.Rows.Count, tablo.Columns.Count).Value = tablo.Value
        Err.Clear
    Next
    compil.Cells(1, 1).Resize(, header.Columns.Count).Value = header.Value
    With ActiveSheet.ListObjects.Add(xlSrcRange, ActiveSheet.UsedRange, , xlYes)
        .Name = "Tableau3"
        .TableStyle = tbstyle
    End With
End Sub

 

[de_hanstrapp]

Merci à tous les trois pour vos retours ! C'est parfait !
@chris est il possible d'intégrer dans "l'export" vers l'onglet "Synthèse" les mises en forme conditionnelles qui figurent dans chacun de mes 33 onglets (désolé... je ne les avaient pas intégrés dans mon fichier exemple) ?
NSAPG

 

[de_hanstrapp]

Bonsoir le fil, nsapg

=>nsapg
Il y aussi la fonctionnalité
Données/Consolider
Tu as essayé cette piste?

Oui j'ai essayé les trois méthodes proposées.

 

[chris]

@chris[/USER] est il possible d'intégrer dans "l'export" vers l'onglet "Synthèse" les mises en forme conditionnelles qui figurent dans chacun de mes 33 onglets

Bonjour

Non il faut l'appliquer toi-même au tableau résultant

Données/Consolider est totalement dépassé, non compatible avec les tableaux structurés, très limité au niveau des calculs et ne peut faire une union des tables