Manipuler une table pivot à partir d'une cellule exterieur
Bonjour les amis ,
J'ai besoin de votre aide afin d'améliorer le code ci-dessous svp , pour le moment le code me permet de manipuler le filtre du TCD à partir de la référance que je saisie dans la cellule A2 après j'ulitise les données filtrer par la pivottable pour choisir le MAX le Min de chaque référence par exemple.
Ce que j'aimerais avoir après ,c'est de pouvoir faire la meme minup mais en saisisant plusieurs références d'un coup supposant de A2:A10 et ainsi le code me permetrra de récupérer le Max/Min à partir de la meme table.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$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("ISIN")
.ClearAllFilters
.CurrentPage = Target.Value
End With
Next Pt
Next Sh
End Sub |
Merci d'avance
