XL 2013 Petite macro TCD

Kaizers

XLDnaute Occasionnel
Bonjour à tous,

Je n'arrive pas à coder un code fiable pour faire ce que j'ai à faire.
Et je sais que pour certains d'entre vous, c'est une promenade de santé, donc plutôt que de perdre mon temps à ne pas réussir, je m'en remets aux experts :)

Un fichier explicatif ci-joint,

Merci pour votre aide :)
 

Pièces jointes

  • base kaizers.xlsx
    14.7 KB · Affichages: 32

eriiic

XLDnaute Barbatruc
Bonjour,

VB:
    Dim pi As PivotItem
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("CODE TYPE")
        .EnableMultiplePageItems = True
        For Each pi In .PivotItems
            pi.Visible = Not [A:A].Find(pi.Name, , xlValues, xlWhole) Is Nothing
        Next pi
    End With
End Sub
à condition d'écrire correctement tes pivotItems : CODE 10 et non CODE10
eric
 

Kaizers

XLDnaute Occasionnel
Bonjour,

VB:
    Dim pi As PivotItem
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("CODE TYPE")
        .EnableMultiplePageItems = True
        For Each pi In .PivotItems
            pi.Visible = Not [A:A].Find(pi.Name, , xlValues, xlWhole) Is Nothing
        Next pi
    End With
End Sub
à condition d'écrire correctement tes pivotItems : CODE 10 et non CODE10
eric

parfait cela fonctionne, merci :)
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 010
Membres
101 866
dernier inscrit
XFPRO