XL 2013 Petite macro TCD

chris à dit:

Bonjour

Quel est l'intérêt alors qu'un segment fait cela sans VBA (et sans risque d'erreur) ?

Cliquez pour agrandir...

eriiiic à dit:

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

Cliquez pour agrandir...