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

lowkick · 20 Juillet 2011

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 · 20 Juillet 2011

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

lowkick · 20 Juillet 2011

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

Ça fonctionne très bien, Merci beaucoup

pierrejean · 20 Juillet 2011

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

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

lowkick

XLDnaute Nouveau

Pièces jointes

mth

XLDnaute Barbatruc

lowkick

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Pièces jointes

Discussions similaires