Régénerer TCD

[nicola40]

Bonjour,

j'ai un pb avec les TCD. J'ai crée un fichier excel qui peut servir à analyser des données de fichiers différents. Cependant, lorsque je change de fichier à analyser, des données de choix issues d'anciens fichiers restent dans mes TCD.
Ci-joint petit exemple ou le tcd a été initié avec la base complète (droite), puis la base a été épurée, mais les choix y1, y2, y3, ... restent présents dans la liste déroulante sous N2.
Est-il possible de régénérer le TCD de façon systématique pour qu'il recense uniquement les données à jour.


Merci de votre aide

 

[chris]

Re : Régénerer TCD

Bonjour

Une macro qui fait le menage (sans doute trouvée ici)

Sub deleteOldItemsWB()
'gets rid of unused items in pivotTable
'Debra Dalgleish - based on MSKB (202232)
Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim i As Integer
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
For Each pf In pt.PivotFields
For Each pi In pf.PivotItems
If pi.RecordCount = 0 And _
Not pi.IsCalculated Then
pi.Delete
End If
Next
Next
Next
Next
End Sub

 

[nicola40]

Re : Régénerer TCD

Merci pour la réponse,

je suis en train de tester, mais il semble que cela calcule en boucle.

A suivre, mais je devrais y arriver avec ton code et un peu de réflexion.

Encore merci

 

[MJ13]

Re : Régénerer TCD

Bonjour

Le mieux est d'avoir ta source du TCD en lui donnant un nom (ex: FORTCD). ensuite l'actualisation se fera sur la nouvelle zone FORTCD mais attention, il faut que ce soit les mêmes colonnes avec les mêmes noms.

Ensuite cela peut être une mauvaise gestion des TCDS.