Consolider des feuilles en une SEULE_TCD

Bonjour à vous

Ma question consiste à créer un macro pour consolider automatiquement les feuilles des mois (janvier--->décembre) en une seul feuille pour créer un tableau croisé dynamique et faire des segments des mois, genre, service, etc.

Pour vous faciliter la réponse je vous communique ci-joint mon exemple.

Merci à vous tous.

Un coup de main ici sera le bienvenu

Bonjour,

ça serait plus facile si tous les onglets avait EXACTEMENT la même structure et commencent à la même cellule

Alors, voilà un résultat provisoire , à toi de faire le tcd

P.

Rebonjour,

j'ai homogénéisé la structure des tous les tableaux mais il y a des erreurs dans le résultat

Pouvez vous me résoudre le problème au niveau des dernières colonnes (formule d'âge et mois)

ci- joint le fichier rectifié.

Merci bien

re,

voilà...

P.

Bonjour et bonne fête pour tous

UN GRAND MERCI patrick1957

j'ai une amélioration y-a-t-il une possibilité de créer un bouton permettant d'actualiser les données générées si je modifie par exemple ajout d'une colonne ou ligne dans n'importe quel feuille?

Merci à tous

Bonjour,

avant tout les tableaux doivent démarrer toujours au même endroit

pour les lignes, pas de soucis , il sait où est la dernière ligne , ne rien mettre sous les tableaux !

pour les colonnes, tu devras mettre les mains dans le moteur ici:

Sh.Range("C8:O" & lig).Copy Destination:=desti(2) où le "O" deviendra P ou si une colonne de + et Q si 2 de plus

(idem pour les titres)

ps: ne pas renommer les 2 premiers onglets !

Voilà

P.

je m'excuse je suis pas pro en macro.

oui c'est fait pour tous les tableaux tous ils démarrent par la même cellule

où mettre ce code? et est ce qu'il permet d'actualiser les données si j'ajoute ou je modifie une information dans une de mes tableaux

Merci encore pour ton aide

Alors....

le code:

ALT-F11 Insertion/module et coller le code là bas ; tu peux ensuite insérer une forme quelconque et lui affecter la macro

par un clic droit

Le recalcul ne se fait pas non, ce n'est pas dynamique

P

Merci Patrick

est ce que impossible de créer un bouton pour actualiser les données?

Bonjour,

Une autre proposition avec bouton en feuille Accueil.

L'emplacement des tableaux mensuels n'est pas figée.

La mise à jour des données s'effectue avec le bouton en feuille Accueil.

Les colonnes Mois et Nombre sont inutiles (dans l'utilisation éventuelle de TCDs).

Cdlt.

Option Explicit
Option Private Module

Public Sub MergedWorksheets()
Dim ws As Worksheet, wsData As Worksheet
Dim lo As ListObject
Dim lRow As Long

    Application.ScreenUpdating = False

    Set wsData = ActiveWorkbook.Worksheets("Résumé")

    With wsData
        Set lo = .ListObjects(1)
        With lo
            If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
        End With
        Set lo = Nothing
    End With

    lRow = 2

    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> wsData.Name And ws.Name <> "Accueil" Then
            For Each lo In ws.ListObjects
                lo.DataBodyRange.Resize(, lo.ListColumns.Count - 1).Copy
                With wsData
                    .Cells(lRow, 1).PasteSpecial xlPasteValues
                    lRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
                End With
                Application.CutCopyMode = False
            Next lo
        End If
    Next ws

    wsData.Activate

    MsgBox "Mise à jour effectuée", vbOKOnly + vbInformation, "Consolidation annuelle"

    Set wsData = Nothing

End Sub

Mille Merci Jean-Eric c'est très pro

Est-ce-que tu peux m'ajouter un autre bouton pour faire actualiser tous les TCD automatiquement.

Merci encore pour ton professionnalisme

Re,

Tu copies un des boutons de ta feuille Accueil et tu lui affectes cette procédure :

Public Sub RefreshAllPivotTables()
Dim ws As Worksheet
Dim pt As PivotTable

    Application.ScreenUpdating = False

    For Each ws In ActiveWorkbook.Worksheets
        For Each pt In ws.PivotTables
            pt.PivotCache.Refresh
        Next pt
    Next ws

End Sub

Ca fonctionne bien

Merci bien Jean-Eric

Re,

Voir fichier mais tu dois créer des TCDs pour voir le fonctionnement de la procédure et ses résultats.

Cdlt.

CHAPEAU Jean-Eric