Fusion x onglets en 1 seul

Bonjour à tous,

Je me retrouve aujourd’hui avec un fichier Excel contenant 5 onglets (chacun contenant un tableau à double entrée)

Ce que je souhaiterais faire c’est créer 1 onglet unique qui permettait de concaténer les 5 autres onglets de manière à ce que les différents tableaux contenus dans les 5 autres onglets puissent être réunis dans cet onglet unique!

L’idée finale serait que lorsque l’on modifie une donnée dans un des onglets, cela puisse se reporter dans l’onglet unique sur 1 des 5 tableau concernés.

Dites moi si je ne suis pas clair :))

NB : il y a des données confidentielles dans mon fichier excel, pour ça que je peux pas le transmettre…

Le cas échéant si besoin je créerais un Proxy du fichier

MERCI BEAUCOUP POUR VOTRE AIDE !

Bonjour,

Sans ton fichier c'est compliqué ,

Mais ci dessous un code que j'utilise qui me permet de compiler tous les onglets d'un classeur Excel dans la feuille 1. (il efface les données de la feuille1 avant de compiler les infos des autres onglets. )

Peut être que ça pourra t'aider !

Sub RegroupeFeuilles() 'dans "Feuil 1 "
Dim Lg&, Sh As Worksheet, f As Worksheet

Windows("RA_HEBDO.xlsx").Activate
'ouvre une boite de dialogue

Application.ScreenUpdating = False

'With Application.GetOpenFilename("Fichiers (*.xlsx),*.xlsx")

'action
        Set f = Sheets("Feuil1")
    f.Range("a1:g" & f.[a65000].End(xlUp).Row).ClearContents    'efface feuil1 

    For Each Sh In Worksheets
        'If Sh.name <> f.name And Sh.name <> "bibi" Then         ' mettre nom des feuilles à ne pas traiter
            Lg = Sh.Range("a" & Rows.Count).End(xlUp).Row
            Sh.Range("a1:k" & Lg).Copy Destination:= _
            f.Range("a" & Rows.Count).End(xlUp)(1)
        'End If
    Next

  '  End With

Application.ScreenUpdating = True 'Facultatif

'MsgBox " Compilation ok", vbExclamation

'ActiveWorkbook.Close

End Sub

Bon courage et bonne soirée

A

Hello

Rapide et facile à faire avec PowerQuery ou même par formule mais sans fichier c'est compliqué.

Peux tu anonymiser un fichier ?

@+

Bonsoir

Merci pour vos réponses !

Côté VBA je touche pas trop mais Power Query j’ai essayé et

ça ne m’a pas retourné vraiment ce que j’attendais.

Je vais poster un fichier avec la même structure demain mais avec des données anonymisées si ça vous va !

MERCI ENCORE

Bonjour à tous,

Voici le fichier anonymisé

L'idée serait de fusionner les onglets F1 et F2 dans l'onglet Conso!

MERCI BEAUCOUP POUR VOTRE AIDE