mettre l'en-tête du 2ème TCD à aprtr d'1choix, en cascade

[Alex76]

Bonjour à vous tous,
1er post et j'espère que ma demande sera claire. (pas 1pro de VBA)
A partir de mon 1er choix sélectionné via 1liste déroulante (ou via 1 premier TCD), je veux que ce choix soit repris dns mon 2nd TCD pour faire une liste déroulante sous condition (avec l'étiquetage des noms impossible car ma liste change toutes les semaines & bcp de risques opérationnels). Ensuite, je veux que mon 3ème TCD soit au préalable filtré par mes 2 premiers choix...
Quelqu'un aurait-il une idée?
Je vois post mon fichier test. grand merci
nb: mes TCD s'actualiseront grâce à 1macro cachée

 

[R@chid]

Re : mettre l'en-tête du 2ème TCD à aprtr d'1choix, en cascade

Bonsoir et Bienvenu sur XLD,
Vraiment, je n'ai rien compris de la demande 😛
Si tu peux être plus claire que ça on peut le faire par formule
@ te relire

 

[JCGL]

Re : mettre l'en-tête du 2ème TCD à aprtr d'1choix, en cascade

Bonjour à tous,
Salut Rachid,

Sur la base de ton fichier déposé...

Dans un module Standard :

Option Explicit

Sub Choix()
    Application.ScreenUpdating = 0
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Année").ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Année").CurrentPage = Range("E7").Value
    ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Ville").ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Année").CurrentPage = Range("E7").Value
    ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Ville").CurrentPage = Range("E8").Value
    ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("Fournisseurs ").ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("Année").CurrentPage = Range("E7").Value
    ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("Ville").CurrentPage = Range("E8").Value
    ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("Fournisseurs ").CurrentPage = Range("E9").Value
    Range("E7").Select
End Sub

Dans le module de la feuille TCD, si tu souhaites automatiser :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Call Choix
End Sub

A + à tous