TCD: effacer vieux objets nouvelle database

Re : TCD: effacer vieux objets nouvelle database

bonjour Alan,

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

A bientôt

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

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