[VBA] Afficher deux éléments dans un TCD

Brozad

XLDnaute Nouveau
Bonjour,

Dans un tableau croisé dynamique je dois laisser visible deux éléments :

"Achat de billets d'avion" et "Achat de billets de train"

J'ai récupéré un code sur internet qui fonctionne bien avec un des deux éléments mais je ne sais pas comment l'adapter pour les duex...

Sub test

Dim pt As PivotItem
For Each pt In ActiveSheet.PivotTables("TOP5_destination_mois").PivotFields("Type de transaction").PivotItems
pt.Visible = (pt.Name = "Achat de billets d'avion")
pt.Visible = False

Next pt
End Sub

Votre aide serait la bienvenue !

Je vous remercie !
 
G

Guest

Guest
Re : [VBA] Afficher deux éléments dans un TCD

bonjour,

A tester:

Code:
Sub test

Dim pt As PivotItem
For Each pt In ActiveSheet.PivotTables("TOP5_destination_mois").P ivotFields("Type de transaction").PivotItems
pt.Visible = (pt.Name = "Achat de billets d'avion") Or (Pt.Name = "Achat de billets de train")

Next pt
End Sub

A+
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo