Sélection multicritères TCD

[ridokou]

Bonjour,

Après plusieurs recherches infructueuses sur le net, j'en viens à solliciter (encore une fois) votre aide.

je dois générer des fichiers (environ 150) relatifs à des agences situées partout en france te en europe.
J'ai plusieurs onglet avec mes données de base et un onglet avec plein de TCD qui traite l'info comme je la souhaite.

Une boucle vient chercher le numéro de l'agence que je traite et vient actualiser les différents TCD.

Mon problème se pose au niveau de la consolidation des pays car il faut que je sélectionne plusieurs critères à la fois.

en utilisant la fonction "enregistrer macro", ça me donne un code comme ça :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("DIRECTION"). _
        CurrentPage = "(Tous)"
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "DIRECTION")
        .PivotItems("BELGIQUE").Visible = False
        .PivotItems("ESPAGNE").Visible = False
        .PivotItems("IRLANDE").Visible = False
        .PivotItems("LUXEMBOURG").Visible = False
        .PivotItems("MAROC").Visible = False
        .PivotItems("NEDERLAND").Visible = False
        .PivotItems("PORTUGAL").Visible = False
        .PivotItems("SUISSE").Visible = False
        .PivotItems("UNITED KINGDOM").Visible = False
        .PivotItems("(vide)").Visible = False
    End With

j'aimerais éviter de devoir préciser pour chaque critère s'il est visible ou non car cela présente de gros risques de se planter...

Y a t-il un moyen de tout sélectionner/dé-sélectionner puis de choisir seulement les critères que l'on souhaite ??

D'avance merci pour votre aide

[LouiMz]

Bonjour,

Peut-être en rendant invisible le tout et en imposant une condition pour laisser les pays désirés visibles :

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 test()
 
Dim pvitem As PivotItem
Dim tableau As PivotTable
 
'On déclare notre tableau
Set tableau = ActiveSheet.PivotTables("Tableau croisé dynamique1")
 
'Pour tout les items du champ DIRECTION
For Each pvitem In tableau.PivotFields("DIRECTION").PivotItems
 
    'Si différent du pays désiré, alors on masque le champ
    If pvitem <> "Le pays désiré" Then
        pvitem.Visible = False
 
    'Sinon on affecte l'item au champ direction (si vous ne souhaitez afficher qu'un seul pays)
    Else
 
        tableau.PivotFields("DIRECTION").CurrentPage = pvitem.Caption
    End If
 
Next
 
End Sub

Peut être faut-il écrire la condition de cette facon, à vérifier :

Code :

If pvitem.Caption <> "Le pays désiré" Then