Coder des une liste de choix multiples pour Tableaux croisés

Version imprimable

Bonjour,

J'utilise un classeur Excel 2003 qui contient une multitude de tableaux croisés auxquels je dois changer souvent les listes de choix.

Comme les critères de choix sont identiques à tous les tableaux, j'avais pensé à écrire un code qui :

1- va attraper sur une feuille "Selection" dans des cellules bien précises les valeurs à filtrer

2- va rafraichir tous les tableaux

Pour la phase 2, j'ai trouvé quelque chose qui marche bien :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Rafraîchit les TCD() Dim pt As PivotTable Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets For Each pt In ws.PivotTables pt.RefreshTable Next pt Next ws End Sub
Par contre je ne sais pas trop quoi faire pour mettre à jour les listes de choix, sachant que la liste de sélection se trouve sur une feuille bien précise et qu'il peut y avoir des choix multiples pour un seul critère.

Je crois qu'il faut utiliser Pivotfield mais je ne sais pas trop comment l´intégrer dans ce code. Sur Google, j'ai rien trouvé de bien convaincant, ni tutoriel ici.

Si quelqu'un peut m'aider, merci mille fois!:lol:

21/09/2011, 09h54
tototiti2008

Bonjour piflechien,

Le problème c'est que le filtre sur un champ d'un TCD s'écrit différemment en fonction de la position du champ dans le TCD
As-tu essayé d'enregistrer une macro puis de filtrer un TCD pour voir le code généré ?

Hello,

un consultant m'a donné la solution et je tiens à vous en faire profiter

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
 
Sub filterPivot()					
Application.ScreenUpdating = False					
Dim Critere As String					
Dim pt As PivotTable, pi As PivotItem					
 
 
Worksheets("Feuille1").Select					
 
    On Error Resume Next					
   Critere = CStr(Worksheets("Feuille1").Range("B1").Value)	
    '*************************************************
    'Critère est ce qui va être dans le filtre du tableau croisé				
    'B1 est la coordonnée du critère mis dans le filtre du tableau croisé
    '**************************************************
    Set pt = ActiveSheet.PivotTables("PivotTable12")	
    '*****************************************************
    '"PivotTable12" est le nom du tableau croisé ( dans "options")	
    '*****************************************************	
    pt.PivotFields("Feuille1").ClearAllFilters					
    pt.PivotFields("Feuille1").CurrentPage = Critere					
 
    Application.ScreenUpdating = True					
End Sub