XL 2013 Petite macro TCD

Kaizers · 21 Mars 2018

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

eriiic · 21 Mars 2018

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

chris · 21 Mars 2018

Bonjour

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

Kaizers · 21 Mars 2018

chris à dit:
Bonjour

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

J'ai simplifié mon cas réel dans mon exemple.

En réel, j'ai 6500 produits filtrable, et je peux en saisir 30 à la fois. Impossible donc sans VBA.

Kaizers · 21 Mars 2018

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

parfait cela fonctionne, merci

XL 2013 Petite macro TCD

Kaizers

XLDnaute Occasionnel

Pièces jointes

eriiic

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

Pièces jointes

Kaizers

XLDnaute Occasionnel

Kaizers

XLDnaute Occasionnel

Discussions similaires