Bonjour le forum,
Je crée une nouvelle discussion car je suis en face d'un nouveau problème.
Je dispose à l'heure actuelle d'environ 20 TCD (et il tend a il y en avoir de plus en plus) et en vue de les exporter périodiquement, je voulais faciliter la modification des filtres en ne les changeant qu'une fois pour tous les TCD. J'ai plusieurs filtres sur mes TCD mais il y en a principalement deux que j'aimerai changer à chaque fois, j'ai donc créé une liste déroulante de mes différentes options et lors de la sélection d'une entrée, je souhaitais que mes TCD se mettent à jour.
J'obtiens l'erreur suivante "Impossible de définir la propriété CurrentPage de la classe PivotField". Je vous ai joint une base factice pour un peu mieux cerner le problème. Je constate que sur cette base lorsque que je change l'agence, même si j'ai le message d'erreur, les filtres se mettent à jours. Ce n'est pas le cas sur mon fichier d'origine.
Merci d'avance en espérant avoir été assez précis.
Je crée une nouvelle discussion car je suis en face d'un nouveau problème.
Je dispose à l'heure actuelle d'environ 20 TCD (et il tend a il y en avoir de plus en plus) et en vue de les exporter périodiquement, je voulais faciliter la modification des filtres en ne les changeant qu'une fois pour tous les TCD. J'ai plusieurs filtres sur mes TCD mais il y en a principalement deux que j'aimerai changer à chaque fois, j'ai donc créé une liste déroulante de mes différentes options et lors de la sélection d'une entrée, je souhaitais que mes TCD se mettent à jour.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B3:C3")) Is Nothing Or Target.Cells.Count > 2 Then Exit Sub
Dim Sh As Worksheet, Pt As PivotTable
For Each Sh In Worksheets
For Each Pt In Sh.PivotTables
With Pt.PivotFields("Agence")
.CurrentPage = Range("$B$3").Value
End With
With Pt.PivotFields("UC")
.CurrentPage = Range("$C$3").Value
End With
Next Pt
Next Sh
End Sub
J'obtiens l'erreur suivante "Impossible de définir la propriété CurrentPage de la classe PivotField". Je vous ai joint une base factice pour un peu mieux cerner le problème. Je constate que sur cette base lorsque que je change l'agence, même si j'ai le message d'erreur, les filtres se mettent à jours. Ce n'est pas le cas sur mon fichier d'origine.
Merci d'avance en espérant avoir été assez précis.