Discussion :

[JustineJ]

Bonjour à tous,

Je construis un TCD à l'aide d'une macro et je souhaiterais pré choisir les données affichées en ligne.
J'ai 2 "tri" en ligne (RowField) :
- L'activité
- Puis 12 lignes de données en fonction de ces activités.

Je souhaiterais pré choisir plusieurs activités.
Est-ce possible ?

Je sais que l'on peut faire le choix d'une données de Page : ActiveSheet.PivotTables(NomTable).PivotFields("Activité"). _CurrentPage = "BOMTAS"

Peut-on transposer cela aux lignes ET en choisir plusieurs ?

Merci d'avance pour vos conseils.

[Daniel.C]

Bonjour,

La macro suivante filtre les items "Activité3" et "Activité5" du champ "Activité" (voir classeur joint) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    Dim PI As PivotItem
    With ActiveSheet.PivotTables(1).PivotFields("Activité")
        For Each PI In .PivotItems
            If PI.Name = "Activité3" Or PI.Name = "Activité5" Then
                PI.Visible = True
            Else
                PI.Visible = False
            End If
        Next PI
    End With
End Sub