XL 2010 Redimensionnement "automatique" de tcd sources

[Chubby]

Bonjour,

Régulièrement je consolide des tcd sources qui me permettent de dresser un tcd final. Les sources 1ères sont des tableaux évolutifs ce qui entraine des tcd de différentes dimensions. Et c'est bien là mon problème puisque chaque fois que je veux réactualiser le tcd final (consolidé) il me faut reprendre chacun des tcd sources.
J'ai beau eu chercher mais pas de solution apparente. En effet pour la consolidation il me faut sélectionner chacun des tcd source sauf la dernière ligne et la dernière colonne qui comportent les totaux. Dans l'exemple joint il n'y a pas de colonne totaux, mais c'est le cas dans mes fichiers.
En bref, un petit fichier pour mettre en image ce texte un peu indigeste.
Merci d'avance pour votre aide

 

[eriiic]

Bonjour,

si ce sont les grands totaux qui t'embêtent, tu pourrais les enlever le temps de la consolidation :

    Dim memo(1 To 2, 1 To 2)
    With Sheets("TCD1").PivotTables("Tableau croisé dynamique1")
        memo(1, 1) = .ColumnGrand
        memo(1, 2) = .RowGrand
        .ColumnGrand = False
        .RowGrand = False
    End With
    'Sheets("TCD2").Activate
    With Sheets("TCD2").PivotTables("Tableau croisé dynamique2")
        memo(2, 1) = .ColumnGrand
        memo(2, 2) = .RowGrand
        .ColumnGrand = False
        .RowGrand = False
    End With
    ' TCD consolidé
    '...
    'restaurer
    With Sheets("TCD1").PivotTables("Tableau croisé dynamique1")
        .ColumnGrand = memo(1, 1)
        .RowGrand = memo(1, 2)
    End With
    With Sheets("TCD2").PivotTables("Tableau croisé dynamique2")
        .ColumnGrand = memo(2, 1)
        .RowGrand = memo(2, 2)
    End With

eric

 

[Chubby]

Bonjour Eric,

Oui effectivement ce sont les grand totaux qui me gênent.
Ta solution en VBA doit certainement correspondre à ma recherche mais je ne suis vraiment pas à l'aise avec les macro... mais alors pas du tout.
Donc un grand merci pour ton intérêt à ma problématique et un autre appel à l'aide via une formule décaler ... ou autre d'ailleurs.

Merci encore

 

[Dugenou]

Bonjour,
Voir en PJ l'utilisation de zones nommées construites avec des DECALER : pour les deux TCD de base et pour le TCD consolidation. Les données sont prises en compte jusqu'à la ligne 20 si elles existent : il suffit de modifier les formules dans formules/gestionnaire de noms pour augmenter la plage.
Je n'ai pas traité l'allongement à droite car cela nécessiterai de re définir le tableau de consolidation : où placer les nouvelles colonnes ?

Voir si ça te convient, à ton écoute pour explications si besoin
Cordialement

 

[Chubby]

Bonjour Dugenou,

Déjà un gros mea culpa pour ne pas t'avoir remercié pour ta proposition. Un surcroit d'activité qui m'a tenu éloigné du site.
Je vais regarder ta proposition et te tiendrais au courant.
Mille excuses pour ce manquement élémentaire.