Hello
J’ai créé ce code pour appliquer la valeur d’une cellule comme étant le filtre de plusieurs TCD :
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 Sub FiltersON() Dim pfUK As PivotField Dim pfSW As PivotField Dim pfFR As PivotField Dim pfTR As PivotField Dim pfGE As PivotField Set pfUK = Sheets("UK TD").PivotTables("Tableau croisé dynamique UK").PivotFields("t_item") Set pfSW = Sheets("SWEDEN TD").PivotTables("Tableau croisé dynamique SW").PivotFields("t_item") Set pfFR = Sheets("FRANCE TD").PivotTables("Tableau croisé dynamique FR").PivotFields("t_item") Set pfTR = Sheets("TURKEY TD").PivotTables("Tableau croisé dynamique TR").PivotFields("t_item") Set pfGE = Sheets("GERMANY TD").PivotTables("Tableau croisé dynamique GE").PivotFields("t_item") pfUK.ClearAllFilters pfUK.CurrentPage = ActiveSheet.Range("B3").Value pfSW.ClearAllFilters pfSW.CurrentPage = ActiveSheet.Range("B3").Value pfFR.ClearAllFilters pfFR.CurrentPage = ActiveSheet.Range("B3").Value pfTR.ClearAllFilters pfTR.CurrentPage = ActiveSheet.Range("B3").Value pfGE.ClearAllFilters pfGE.CurrentPage = ActiveSheet.Range("B3").Value End Sub
Là il me filtre valeur cellule = valeur filtre
Je voudrais qu’il prenne la valeur de la cellule et fasse comme un startswith. C’est-à-dire qu’il considère que le filtre des TCD = valeur cellule*.
Avez-vous une piste, j’ai essayé plusieurs trucs sans succès.
Merci-
Partager