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-