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

lowkick

XLDnaute Nouveau
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
 

Pièces jointes

  • Extraction des critères de choix.xls
    10 KB · Affichages: 56

mth

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

Bonjour lowkick

Un petit essai avec ce code:

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 :)
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 732
Messages
2 081 995
Membres
101 857
dernier inscrit
mt60400