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

Brozad · 12 Juillet 2010

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 !

Guest · 12 Juillet 2010

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+

Brozad · 15 Juillet 2010

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

C'est parfait ! Merci beaucoup !

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

Brozad

XLDnaute Nouveau

Guest

Guest

Brozad

XLDnaute Nouveau

Discussions similaires