Tableaux croisés dynamiques

J'ai plusieurs onglets de même structure, un par jour de la semaine et je souhaite avoir un seul tableau croisé dont la source puisse être au choix l'un ou l'autre des onglets.

Si ce n'est pas déjà fait, nous commençons par mettre chaque liste de données sous forme de tableau

et nous donnons aux tableaux un nom identique à celui de l’onglet.
Dans un nouvel onglet, destiné à recevoir le TCD, nous créons deux cellules pour choisir le jour de la semaine en utilisant une liste de validation :
Nous associons le nom Choix à la cellule contenant la liste de validation (Onglet Formules, Définir un nom).
Nous créons le nom Tablo associé à la formule =INDIRECT(Choix) :
Nous créons au-dessous un Tableau Croisé Dynamique en indiquant Tablo comme source de données :
On peut maintenant choisir le jour et actualiser le TCD :
Tout ceci est réalisé sans VBA.
C’est évolutif puisque que l’on peut ajouter ou supprimer des onglets ou les modifier.
Il suffit de :
- mettre leur contenu sous forme de tableau,
- nommer ce tableau,
- adapter la liste de validation.

Si l’on tient à ce que le choix déclenche l’actualisation du TCD, on peut ajouter une procédure dans le module de l’onglet contenant le TCD :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("Choix")) Is Nothing Then Exit Sub
PivotTables(1).PivotCache.Refresh
End Sub