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 : Sélectionner tout - Visualiser dans une fenêtre à part
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