[XL-2002] Modifier plusieurs TCD grâce à un menu déroulant [Résolu]

[Pesnoob]

Bonjour bonjour,

J'utilise dans mon entreprise une base de données à laquelle nous accédons sous forme de TCD. Mon problème vient du fait que j'ai à réunir dans un seul tableau des données venant de plusieurs TCD de ce type pour une utilisation mensuelle. Ces tableaux ont tous un champ de données "Mois", et j'aimerais pouvoir modifier le mois affiché de tous les tableaux en une opération.

En somme : comment je peux faire pour créer un menu déroulant (ou quelque chose de ce genre) me permettant de modifier le champ des tableaux de mes différents onglets ?

Merci d'avance.

[Fvandermeulen]

Salut,

C'est une technique que j'utilise souvent, mais je me base sur mon premier TCD pour déterminer le changement du champ, mais pour rester sur ton idée, voici le principe en considérant une liste de validation pour le mois en A1
Ce code est à placer dans le module de la feuille concernée

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NbPT As Integer, R As Integer
Dim LeMois As String
 
If Target.Address <> "$a$1" Then Exit Sub
 
NbPT = ActiveSheet.PivotTables.Count
LeMois = ActiveSheet.Cells(1, 1).Value 'La liste déroulant est en A1
 
'
For R = 1 To NbPT 'Boucle sur les PivotTables
    ActiveSheet.PivotTables(R).PivotFields("Mois").ClearAllFilters
    ActiveSheet.PivotTables(R).PivotFields("Mois").CurrentPage = LeMois
Next R
 
End Sub

J'avoue ne pas avoir testé, j'espère ne pas avoir fait de boulette.

A+

[Pesnoob]

Merci pour l'aide, mais j'ai quelques soucis pour mettre en place ce que tu proposes. Je suis une bille en Visual Basic, et je dois avouer que j'ai du mal à comprendre comment utiliser cette sub ?

[Fvandermeulen]

Re,

Dans VBA, dans le projet de ton classeur tu vois les feuilles qui composent ton classeur.

Fais un click droit sur la feuille qui contient les TCD et choisi 'Voir code'
Il suffit alors de copier le code que je t'ai proposé.

Il te reste à adapter $A$1 par la cellule qui contiendra le mois que tu veux appliquer.
Fais également attention à vérifier que le champ Mois est bien identique dans tes TCD.

A+