Discussion :

[Alex FPH]

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-

[Jean-Philippe André]

Salut,

que t'as donné l'enregistreur de macros ?

En faisant un rapide test de mon côté, cela me donne cet exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "ID").PivotFilters.Add Type:=xlCaptionBeginsWith, Value1:="RA"

Je ne doute pas de ta capacité à adapter ce code à ton cas de figure

[Alex FPH]

Merci de ta réponse,

J'ai adapté le code mais j'ai une erreur, je pense que c'est parce que mes TCD n'ont pas le système de filtre élaboré que l'on essaye d'utiliser. Exemple d'un des TCD et de son filtre sur "t_item", tous les autres sont pareils:



Sais tu comment changer ce type de filtrage pour accéder aux options supplémentaires de filtrage ?

Merci d'avance

[78chris]

Bonjour

Les champs placés en zone de filtre ou page, ont effectivement beaucoup moins de possibilités.

Donc soit les placer en ligne, soit cela va faire un VBA plus compliqué...

A noter que "filtre élaboré" (rebaptisé filtre avancé depuis 2007) désigne dans Excel quelque chose de bien précis qui n'a rien à voir avec les TCD...

[Alex FPH]

Hello,

J'ai changé l'emplacement du filtre depuis la zone de filtre vers le tableau lui même et du coup j’accède aux options qui m’intéressent.

Le code s'est adapté easy.

Merci encore