Discussion :

[dodo69]

Bonjour le forum,

Je me trouve confronté à un problème qui me bloque complètement dans la suite de mon projet...

Voici le problème:

Tout d'abord l'utilisateur est face à une liste de pays (listbox), il peut ainsi sélectionner les pays qu'ils veut. ( une petite centaine maximum)

J'ai une feuille (Feuil1) où sont inscrit les pays qu'il a sélectionné. Ces pays sont inscrit les uns à la suite des autres en colonne sur la Feuil1.

La suite du code permettrait de filtrer ces pays sur un TCD qui se trouve Feuil2, le tableau allant chercher les valeur dans l'onglet "Database"


le nom du tableau croisé dynamique est (PivotTable2) et le filtre s'effectue sur la variable ("dbo_t_COUNTRY_Name")


J 'espère que ma demande est suffisemment claire

N'hésitez pas à me demander des précisions, je suis vraiment bloquer là dessus et je ne trouve pas le moyen de faire un tel filtre.

Merci de me lire et m'aider

Cordialement
DoDo

[mercatog]

Bonjour
J'ai nommé la zone de critères de Feuil1: ZoneCriteres
Mon TCD est dans Feuil4

A toi d'adapter en conséquence:

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
Sub FilterPivotTable()
Dim PVT As PivotField
Dim Tb
Dim i As Integer
 
Application.ScreenUpdating = False
Tb = Worksheets("Feuil1").Range("ZoneCriteres")                                                 'Adapte à la plage des critères. J'ai utilisé ici une plage nommée
Set PVT = Worksheets("Feuil4").PivotTables("PivotTable2").PivotFields("dbo_t_COUNTRY_Name")     'Feuil4 étant la feuille dans laquel tu as ton TCD
With PVT
    .ClearAllFilters
    On Error Resume Next
    .PivotItems(Tb(1, 1)).Visible = True
    For i = 1 To .PivotItems.Count
        .PivotItems(i).Visible = .PivotItems(i) = Tb(1, 1) Or Not .PivotItems(i).Visible
    Next i
    For i = 2 To UBound(Tb)
        .PivotItems(Tb(i, 1)).Visible = True
    Next i
End With
Set PVT = Nothing
End Sub

[dodo69]

Bonjour mercatog,

Merci pour ta solution proposée,

elle marche certainement, mais je n'arrive pas à comprendre comment elle marche.

là je définie Tb : ?

Code :

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

Tb = Worksheets("code").Range(PAYS_choisi)

et là je ne comprend pas

Code :

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

1
2
3
4
5
6
7
   .PivotItems(Tb(1, 1)).Visible = True
    For i = 1 To .PivotItems.Count
        .PivotItems(i).Visible = .PivotItems(i) = Tb(1, 1) Or Not .PivotItems(i).Visible
    Next i
    For i = 2 To UBound(Tb)
        .PivotItems(Tb(i, 1)).Visible = True
    Next i

a quoi correspond Tb(1,1) ? ( normalement il prend la 1ère valeur de mon range Tb?)

J'ai fais toutes les modif que je voyais mais le filtre ne s'éxécute pas et il reste sur "TOUS"

Merci de ton aide mercatog

Cdlt
DoDo

[mercatog]

C'est quoi ton dbo_t_COUNTRY_Name?
C'est une étiquette de lignes ou filtre du rapport de ton TCD?

[dodo69]

Bonjour mercatog,

Mon " dbo_t_COUNTRY_Name" est un filtre du rapport ...


Comme rien ne se passait j'ai rajouté la ligne en rouge ci-dessous

Code :

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

1
2
3
With PVT
    .ClearAllFilters
    .EnableMultiplePageItems = True

Mais maintenant, le filtre affiche "vide"...
et toujours pas le filtre des pays souhaités :'(

Merci pour ton aide mercatog

Cdlt
DoDo

[mercatog]

Bonjour
J'ai testé et ça fonctionne.
As tu adapté le code à ton fichier?

Code :

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

Tb = Worksheets("Feuil1").Range("ZoneCriteres")

Sur Feuil1, j'ai nommé la plage A1:A20 (par exemple) par le nom ZoneCriteres. C'est la plage où sont saisies les critères pays à afficher sur le TCD.

Code :

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

Set PVT = Worksheets("Feuil4").PivotTables("PivotTable2").PivotFields("dbo_t_COUNTRY_Name")    'Feuil4 étant la feuille dans laquel tu as ton TCD

Le TCD s'appelle PivotTable2 dans Feuil4.

[dodo69]

Re mercatog



je suis vraiment désolé, j'ai tout repris, et ca marche parfaitement

mon erreur se trouvait dans le range... j'étais sur la mauvaise colonne et je n'avais pas vu cette erreur, vraiment désolé

Merci pour le temps que tu m'a accordé

Cordialement
DoDo