Bonjour à vous tous,
Afin de changer en même temps le filtre de plusieurs tcd, j'ai créé une liste déroulante qui permettra à l'utilisateur de modifier l'ensemble des tcd en selectionnant un choix de la liste.
J'ai commencé à créer la macro que je lierai à la liste mais je n'arrive pas à trouver le lien de l'objet du menu déroulant afin de dire à la macro d'utiliser le nom apparaissant dans le menu pour changer le filtre des tcd.
Ci dessous ma macro, j'ai mis en rouge le lien à trouver. Juste pour info, lorsque je sélectionne la liste, elle se prénomme "zone combinée 1"
Sub Macro1()
'
Sheets("Feuil1").Select
ActiveWindow.SmallScroll Down:=-69
Range("C1").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Source tarifaire").CurrentPage = Nom de la liste déroulante
Range("B20").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Source tarifaire").CurrentPage = Nom de la liste déroulante
Range("B21").Select
End Sub
Merci par avance de votre aide
Afin de changer en même temps le filtre de plusieurs tcd, j'ai créé une liste déroulante qui permettra à l'utilisateur de modifier l'ensemble des tcd en selectionnant un choix de la liste.
J'ai commencé à créer la macro que je lierai à la liste mais je n'arrive pas à trouver le lien de l'objet du menu déroulant afin de dire à la macro d'utiliser le nom apparaissant dans le menu pour changer le filtre des tcd.
Ci dessous ma macro, j'ai mis en rouge le lien à trouver. Juste pour info, lorsque je sélectionne la liste, elle se prénomme "zone combinée 1"
Sub Macro1()
'
Sheets("Feuil1").Select
ActiveWindow.SmallScroll Down:=-69
Range("C1").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Source tarifaire").CurrentPage = Nom de la liste déroulante
Range("B20").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Source tarifaire").CurrentPage = Nom de la liste déroulante
Range("B21").Select
End Sub
Merci par avance de votre aide