TCD: effacer vieux objets nouvelle database

[alan]

Bonjour,

Je n'arrive pas a effacer les vieux objets issus d'anciennes bases de donnees dans mon TCD. Chaque fois que je rentre dans le menu deroulant d'une de mes colonnes de mon TCD, je me rends compte qu'il sauvegarde de vieilles donnees grace auquelles j'ai pu tester mon tableau ou que je n'utilise plus.
Rafraichir le tableau, les donnees ne marche pas. De meme, redefinir la plage prise en compte dans le tableau.
Avez vous une astuce?

 

[Guest]

Re : TCD: effacer vieux objets nouvelle database

bonjour Alan,

Refaire le TCD avec l'assistant et les nouvelles données.

A bientôt

 

[Pierrot93]

Re : TCD: effacer vieux objets nouvelle database

Bonjour Alan

regarde dans le wiki, les pages de MichelXLD, 2 macros pour supprimer les étiquettes n'ayant plus lieu d'être :

https://www.excel-downloads.com/threads/ref-wiki-page-9-de-michelxld.92377/

bon après midi
@+

Edition : bonjour Hasco

 

[alan]

Re : TCD: effacer vieux objets nouvelle database

Re Hasco, Pierrot

Merci beaucoup...j'ai utilise une macro des pages de MichelXLD comme me l'a indique Pierrot et ca marche impec!

Sub deleteOldItemsWB()
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