Un filtre de rapport change tous les tableaux croisés dynamique

[anthooooony]

Bonsoir à tous

J'ai cherché jadis un moyen pour à partir d'une liste déroulante d'Un filtre de rapport changer qui tous les tableaux croisés dynamique liés au classeur et à cette liste.
Chose trouvé! par des utilisateurs d'Excel Download.
Document en pièce jointe qui pourra surement aider plus d'un.

Je cherche aujourd'hui à savoir comment faire pour lui donner une condition, j'ai une liste déroulante d'Agence(qui marche dans le fichier), et j'en ai une autre pour une région.
Quand je sélectionne une agence tous les tcd des trois classeurs changent!


-1 Comment lui dire de s'actualiser en fonction de si je choisis la liste déroulante agence ou région?
-2 Dans le script ci apres, il dit With Sheets("TCD" & Ind) ce qui signifie toutes les feuilles commencant par TCD + n, j'ai un document ou mes onglets sont nommés tous differements et sans trop de relation, comment lui donner cette condition?


Merci d'avance et bonne soirée à tous



-------------ONGLET OU IL Y A LA LISTE DEROULANTE----------------

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$12" Then
Call MaJFiltreTCD
End If
End Sub

---------------MODULE------------

Option Explicit

Sub MaJFiltreTCD()
Dim Ind As Integer, VFiltre As String
VFiltre = Sheets("CHOIX AGENCE").Range("F12").Value
' Mettre à jour chaque TCD
For Ind = 1 To 3
With Sheets("TCD" & Ind).PivotTables("Tableau croisé dynamique" & Ind).PivotFields("agences")
.ClearAllFilters
.CurrentPage = VFiltre
End With
Next Ind
If Err.Number = 0 Then MsgBox "Tous les TCD ont été mis à jour"
End Sub

 

[anthooooony]

Re : Un filtre de rapport change tous les tableaux croisés dynamique

Bonjour,

Help quelqu'un aurait une petite idée à mon problème..

merci d'avance