Comment filtrer plusieurs TCD en même temps ?
Fermé
k'rsten
Messages postés
8
Date d'inscription
mercredi 15 juillet 2009
Statut
Membre
Dernière intervention
24 juillet 2009
-
15 juil. 2009 à 12:59
k'rsten Messages postés 8 Date d'inscription mercredi 15 juillet 2009 Statut Membre Dernière intervention 24 juillet 2009 - 24 juil. 2009 à 10:18
k'rsten Messages postés 8 Date d'inscription mercredi 15 juillet 2009 Statut Membre Dernière intervention 24 juillet 2009 - 24 juil. 2009 à 10:18
A voir également:
- Contrôler plusieurs tableaux croisés dynamiques avec un seul menu déroulant
- Renommer plusieurs fichiers en même temps - Guide
- Tcd excel - Guide
- Ss06 snapchat combien de temps - Forum Snapchat
- Blocage agriculteur carte en temps réel - Guide
- Vue satellite en temps réel gratuit ✓ - Forum TNT / Satellite / Réception
6 réponses
pépé35530
Messages postés
2942
Date d'inscription
vendredi 1 mai 2009
Statut
Membre
Dernière intervention
19 mars 2016
1 382
15 juil. 2009 à 18:34
15 juil. 2009 à 18:34
J'ai trouvé cela sur un site :
Bon, je crois que j'ai trouvé la solution à mon probleme.
Voici le code :
Sub MAJ_Niveau_Dim_Agence()
'*********************
' Cette macro applique l'agence du premier TCD (MasterPivotTable) à tous les
autres TCD d'une page
'*********************
Dim VarEtabl As String
VarEtabl =
ThisWorkbook.ActiveSheet.PivotTables("MasterPivotTable").PivotFields("[Agence]").CurrentPageName
' la variable VarEtabl correspond au nom de l'agence au format MDX
'******************
ActiveSheet.PivotTables(1).PivotFields("[Agence]").CurrentPageName = VarEtabl
' On applique le nom de l'agence au format MDX à tous les TCD de la page
'******************
End Sub
J'espere que ca pourra servir à quelqu'un d'autre.
Stan
A+
pépé
Bon, je crois que j'ai trouvé la solution à mon probleme.
Voici le code :
Sub MAJ_Niveau_Dim_Agence()
'*********************
' Cette macro applique l'agence du premier TCD (MasterPivotTable) à tous les
autres TCD d'une page
'*********************
Dim VarEtabl As String
VarEtabl =
ThisWorkbook.ActiveSheet.PivotTables("MasterPivotTable").PivotFields("[Agence]").CurrentPageName
' la variable VarEtabl correspond au nom de l'agence au format MDX
'******************
ActiveSheet.PivotTables(1).PivotFields("[Agence]").CurrentPageName = VarEtabl
' On applique le nom de l'agence au format MDX à tous les TCD de la page
'******************
End Sub
J'espere que ca pourra servir à quelqu'un d'autre.
Stan
A+
pépé
