Extraire et afficher les critères de choix d'un TCD

[lowkick]

Bonjour,

Je suis confronté au problème suivant :
j'aimerais arriver à afficher les critères de choix d'un tcd et je n'ai rien trouvé malgré mes recherches.
J'imagine que c'est possible en VBA, mais partant d'une feuille blanche je ne m'en sort pas ...
Si quelqu'un avait la gentillesse d'y jeter un oeil ... ou de me guider ce serait formidable

D'avance merci

 

[mth]

Re : Extraire et afficher les critères de choix d'un TCD

Bonjour lowkick

Un petit essai avec ce code:

Option Explicit
Sub test()
Dim i As Long
Dim Liste As String
With Sheets("Feuil1")
    With .PivotTables("Tableau croisé dynamique1").PivotFields( _
        "batiment ")
        For i = 1 To .PivotItems.Count
            If .PivotItems(i).Visible = True Then
                Liste = Liste & " " & .PivotItems(i).Name
 
            End If
        Next i
    End With
.Range("H2") = Liste
End With
End Sub

Bonne journée,

mth

Edit: 🙂 Bise Pierrejean, contente de te croiser 🙂

 

[lowkick]

Re : Extraire et afficher les critères de choix d'un TCD

Ça fonctionne très bien, Merci beaucoup

 

[pierrejean]

Re : Extraire et afficher les critères de choix d'un TCD

Bonjour lowkick

Vois si cela te convient

Edit : a la bourre moi !!
Bises mth