Bonjour les amis ,

Je suis très novice coté vba et j'aimerais avoir votre aide svp afin d'améliorer une macro qui me permet de manipuler le filtre des TCD ,par contre je me retrouve avec plein de TCD je ne sais pas si c'est possible d'utiliser qu'un seul pour le meme rendu

Merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Intersect(Target, Range("A2:A13")) Is Nothing Then Exit Sub
 
 
Dim pt1, pt2, pt3, pt4, pt5, pt6, pt7, pt8, pt9, pt10 As PivotTable
 
Dim pt As PivotTable
 
Dim FieldISIN1, FieldISIN2, FieldISIN3, FieldISIN4, FieldISIN5, FieldISIN6, FieldISIN7, FieldISIN8, FieldISIN9, FieldISIN10 As PivotField
 
Dim NewRegionISIN1, NewRegionISIN2, NewRegionISIN3, NewRegionISIN4, NewRegionISIN5, NewRegionISIN6, NewRegionISIN7, NewRegionISIN8, NewRegionISIN9, NewRegionISIN10 As String
 
 
Set pt1 = Worksheets("Sheet4").PivotTables("PivotTable1")
Set pt2 = Worksheets("Sheet4").PivotTables("PivotTable2")
Set pt3 = Worksheets("Sheet4").PivotTables("PivotTable3")
Set pt4 = Worksheets("Sheet4").PivotTables("PivotTable4")
Set pt5 = Worksheets("Sheet4").PivotTables("PivotTable5")
Set pt6 = Worksheets("Sheet4").PivotTables("PivotTable6")
Set pt7 = Worksheets("Sheet4").PivotTables("PivotTable7")
Set pt8 = Worksheets("Sheet4").PivotTables("PivotTable8")
Set pt9 = Worksheets("Sheet4").PivotTables("PivotTable9")
Set pt10 = Worksheets("Sheet4").PivotTables("PivotTable10")
Set FieldRegion1 = pt1.PivotFields("ISIN1")
Set FieldRegion2 = pt2.PivotFields("ISIN2")
Set FieldRegion3 = pt3.PivotFields("ISIN3")
Set FieldRegion4 = pt4.PivotFields("ISIN4")
Set FieldRegion5 = pt5.PivotFields("ISIN5")
Set FieldRegion6 = pt6.PivotFields("ISIN6")
Set FieldRegion7 = pt7.PivotFields("ISIN7")
Set FieldRegion8 = pt8.PivotFields("ISIN8")
Set FieldRegion9 = pt9.PivotFields("ISIN9")
Set FieldRegion10 = pt10.PivotFields("ISIN10")
 
NewRegionISIN1 = Worksheets("Sheet4").Range("A2").Value
NewRegionISIN2 = Worksheets("Sheet4").Range("A3").Value
NewRegionISIN3 = Worksheets("Sheet4").Range("A4").Value
NewRegionISIN4 = Worksheets("Sheet4").Range("A5").Value
NewRegionISIN5 = Worksheets("Sheet4").Range("A6").Value
NewRegionISIN6 = Worksheets("Sheet4").Range("A7").Value
NewRegionISIN7 = Worksheets("Sheet4").Range("A8").Value
NewRegionISIN8 = Worksheets("Sheet4").Range("A9").Value
NewRegionISIN9 = Worksheets("Sheet4").Range("A10").Value
NewRegionISIN10 = Worksheets("Sheet4").Range("A11").Value
 
With pt1
FieldRegion1.ClearAllFilters
FieldRegion1.CurrentPage = NewRegionISIN1
pt1.RefreshTable
End With
With pt2
FieldRegion2.ClearAllFilters
FieldRegion2.CurrentPage = NewRegionISIN2
pt2.RefreshTable
End With
With pt3
FieldRegion3.ClearAllFilters
FieldRegion3.CurrentPage = NewRegionISIN3
pt3.RefreshTable
End With
With pt4
FieldRegion4.ClearAllFilters
FieldRegion4.CurrentPage = NewRegionISIN4
pt4.RefreshTable
End With
With pt5
FieldRegion5.ClearAllFilters
FieldRegion5.CurrentPage = NewRegionISIN5
pt5.RefreshTable
End With
With pt6
FieldRegion6.ClearAllFilters
FieldRegion6.CurrentPage = NewRegionISIN6
pt6.RefreshTable
End With
With pt7
FieldRegion7.ClearAllFilters
FieldRegion7.CurrentPage = NewRegionISIN7
pt7.RefreshTable
End With
With pt7
FieldRegion7.ClearAllFilters
FieldRegion7.CurrentPage = NewRegionISIN7
pt7.RefreshTable
End With
With pt8
FieldRegion8.ClearAllFilters
FieldRegion8.CurrentPage = NewRegionISIN8
pt8.RefreshTable
End With
With pt9
FieldRegion9.ClearAllFilters
FieldRegion9.CurrentPage = NewRegionISIN9
pt9.RefreshTable
End With
With pt10
FieldRegion10.ClearAllFilters
FieldRegion10.CurrentPage = NewRegionISIN10
pt10.RefreshTable
End With
End Sub