VBA filtrer les TCD sur valeur d'une cellule mais en faisant un startswith
Hello
J’ai créé ce code pour appliquer la valeur d’une cellule comme étant le filtre de plusieurs TCD :
Code:
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-
