Afficher la liste des PivotItems dans une collone

[Camaytoc]

Bonjour,

J'ai une liste déroulante qui doit contenir la liste complète des PivotItems d'un PivotFieds en particulier. Je veux donc afficher la liste dans une collone et que cette liste s'actualise au moins à l'ouverture du document.

J'ai essayer plusieurs choses grapillées sur Internet, mais mon niveau VBA ne me permet pas de modifier comme je le souhaite le code.

J'ai besoin d'aide.

Merci!

 

[MichD]

Re : Afficher la liste des PivotItems dans une collone

Bonjour,

Tu as essayé quelque chose comme :


'-----------------------------------
Sub test()
Dim Pt As PivotTable
Dim Pf As PivotField
Dim Pi As PivotItem
Dim A As Long

'Nom de la feuille où est ledit pivotable
With Worksheets("Feuil1")
Set Pt = .PivotTables("Nom_Du_PivotTable") 'ou son index
End With
'Choix du champ du pivotable
Set Pf = Pt.PivotFields("Nom_du_PivotField")

Application.ScreenUpdating = False

'Nom de la feuille où la liste sera affichée
With Worksheets("Feuil2")
'En A1 , affichage du nom du champ
.Range("A1") = Pf.Name
A = A + 1
'Boucle sur chaque item du pivotfield
For Each Pi In Pf.PivotItems
A = A + 1
'dans la colonne A à partir de la ligne 2
.Range("A" & A) = Pi.Name
Next
End With
Application.ScreenUpdating = True

End Sub
'-----------------------------------