A
Arvensis
Guest
Bonjour;
Je dispose d'une feuille contenant plusieurs TCD, dont je veut appliquer le même filtre (filtre par client). Pour ce, j'utilise un code par lequel je fais le choix du filtre sur un seul des TCD (dont la valeur se trouve dans la cellule B2), et dont l'application doit se faire automatiquement sur les autres :
Je voudrais alors que le code s'exécute automatiquement lorsque je fais le choix sur la liste, pour ce j'ai eu recours à l'évènement Worksheet_Change
le problème c'est que quand je fais un nouveau choix le code ne s'exécute pas automatiquement, j'avoue que je n'arrive pas à cerner l'erreur.
Je sollicite votre aide, merci d'avance.
Je dispose d'une feuille contenant plusieurs TCD, dont je veut appliquer le même filtre (filtre par client). Pour ce, j'utilise un code par lequel je fais le choix du filtre sur un seul des TCD (dont la valeur se trouve dans la cellule B2), et dont l'application doit se faire automatiquement sur les autres :
Code:
Dim pvt As PivotTable
For Each pvt In ActiveSheet.PivotTables
pvt.PivotFields("Client").CurrentPage = Cells(2, 2).Value
Next
End SubJe voudrais alors que le code s'exécute automatiquement lorsque je fais le choix sur la liste, pour ce j'ai eu recours à l'évènement Worksheet_Change
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim pvt As PivotTable
If Target.Address = "$B$2" Then
For Each pvt In ActiveSheet.PivotTables
pvt.PivotFields("Client").CurrentPage = Cells(2, 2).Value
Next
End Suble problème c'est que quand je fais un nouveau choix le code ne s'exécute pas automatiquement, j'avoue que je n'arrive pas à cerner l'erreur.
Je sollicite votre aide, merci d'avance.
Dernière modification par un modérateur: