Je ne suis pas certain d'avoir compris ta demande, vois si ce
que je te propose peut t'aider !
' Published by Debra Dalgleish 21 Juin 2003
'
'===================== > Sub DeleteOldItemsWB()
'gets rid of unused items in PivotTable
' 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
'======================= >
Et pour le faire manuellement : Proposé par Modeste
http://www.contextures.com/xlPivot04.html
notament :
Manually Clear Old Items
To manually clear the old items from the list:
1-Drag the pivot field out of the pivot table.
2-On the Pivot toolbar, click the Refresh button
3-Drag the pivot field back to the pivot table
"william" a écrit dans le message de news:
45a895b4$0$5112$
Bonjour,
Description du problème
J'utilise une base de donnée et un tableau croisé dynamique pour chaque
année, la base change donc tous les ans.
Le problème, c'est que la liste dans le tableau croisé dynamique (quand je
clic sur la petite flêche), elle, concerve tous les libellés d'avant!!!!!
Y'a-t-il un moyen de remettre ça avec seulement ceux existant dans le
TCD???
Merci pour les réponses, parce que ça fait des mois que je cherche comment
réinitialiser cette liste sans tout refaire,(effacer le tableau et le
refaire parce qu'il y a des graphique avec).
Je ne suis pas certain d'avoir compris ta demande, vois si ce
que je te propose peut t'aider !
' Published by Debra Dalgleish 21 Juin 2003
'
'===================== > Sub DeleteOldItemsWB()
'gets rid of unused items in PivotTable
' 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
'======================= >
Et pour le faire manuellement : Proposé par Modeste
http://www.contextures.com/xlPivot04.html
notament :
Manually Clear Old Items
To manually clear the old items from the list:
1-Drag the pivot field out of the pivot table.
2-On the Pivot toolbar, click the Refresh button
3-Drag the pivot field back to the pivot table
"william" <willi59@wanadoo.fr> a écrit dans le message de news:
45a895b4$0$5112$ba4acef3@news.orange.fr...
Bonjour,
Description du problème
J'utilise une base de donnée et un tableau croisé dynamique pour chaque
année, la base change donc tous les ans.
Le problème, c'est que la liste dans le tableau croisé dynamique (quand je
clic sur la petite flêche), elle, concerve tous les libellés d'avant!!!!!
Y'a-t-il un moyen de remettre ça avec seulement ceux existant dans le
TCD???
Merci pour les réponses, parce que ça fait des mois que je cherche comment
réinitialiser cette liste sans tout refaire,(effacer le tableau et le
refaire parce qu'il y a des graphique avec).
Je ne suis pas certain d'avoir compris ta demande, vois si ce
que je te propose peut t'aider !
' Published by Debra Dalgleish 21 Juin 2003
'
'===================== > Sub DeleteOldItemsWB()
'gets rid of unused items in PivotTable
' 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
'======================= >
Et pour le faire manuellement : Proposé par Modeste
http://www.contextures.com/xlPivot04.html
notament :
Manually Clear Old Items
To manually clear the old items from the list:
1-Drag the pivot field out of the pivot table.
2-On the Pivot toolbar, click the Refresh button
3-Drag the pivot field back to the pivot table
"william" a écrit dans le message de news:
45a895b4$0$5112$
Bonjour,
Description du problème
J'utilise une base de donnée et un tableau croisé dynamique pour chaque
année, la base change donc tous les ans.
Le problème, c'est que la liste dans le tableau croisé dynamique (quand je
clic sur la petite flêche), elle, concerve tous les libellés d'avant!!!!!
Y'a-t-il un moyen de remettre ça avec seulement ceux existant dans le
TCD???
Merci pour les réponses, parce que ça fait des mois que je cherche comment
réinitialiser cette liste sans tout refaire,(effacer le tableau et le
refaire parce qu'il y a des graphique avec).
Je ne suis pas certain d'avoir compris ta demande, vois si ce
que je te propose peut t'aider !
' Published by Debra Dalgleish 21 Juin 2003
'
'===================== > Sub DeleteOldItemsWB()
'gets rid of unused items in PivotTable
' 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
'======================= >
Et pour le faire manuellement : Proposé par Modeste
http://www.contextures.com/xlPivot04.html
notament :
Manually Clear Old Items
To manually clear the old items from the list:
1-Drag the pivot field out of the pivot table.
2-On the Pivot toolbar, click the Refresh button
3-Drag the pivot field back to the pivot table
"william" a écrit dans le message de news:
45a895b4$0$5112$
Bonjour,
Description du problème
J'utilise une base de donnée et un tableau croisé dynamique pour chaque
année, la base change donc tous les ans.
Le problème, c'est que la liste dans le tableau croisé dynamique (quand je
clic sur la petite flêche), elle, concerve tous les libellés d'avant!!!!!
Y'a-t-il un moyen de remettre ça avec seulement ceux existant dans le
TCD???
Merci pour les réponses, parce que ça fait des mois que je cherche comment
réinitialiser cette liste sans tout refaire,(effacer le tableau et le
refaire parce qu'il y a des graphique avec).
Je ne suis pas certain d'avoir compris ta demande, vois si ce
que je te propose peut t'aider !
' Published by Debra Dalgleish 21 Juin 2003
'
'===================== > Sub DeleteOldItemsWB()
'gets rid of unused items in PivotTable
' 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
'======================= >
Et pour le faire manuellement : Proposé par Modeste
http://www.contextures.com/xlPivot04.html
notament :
Manually Clear Old Items
To manually clear the old items from the list:
1-Drag the pivot field out of the pivot table.
2-On the Pivot toolbar, click the Refresh button
3-Drag the pivot field back to the pivot table
"william" <willi59@wanadoo.fr> a écrit dans le message de news:
45a895b4$0$5112$ba4acef3@news.orange.fr...
Bonjour,
Description du problème
J'utilise une base de donnée et un tableau croisé dynamique pour chaque
année, la base change donc tous les ans.
Le problème, c'est que la liste dans le tableau croisé dynamique (quand je
clic sur la petite flêche), elle, concerve tous les libellés d'avant!!!!!
Y'a-t-il un moyen de remettre ça avec seulement ceux existant dans le
TCD???
Merci pour les réponses, parce que ça fait des mois que je cherche comment
réinitialiser cette liste sans tout refaire,(effacer le tableau et le
refaire parce qu'il y a des graphique avec).
Je ne suis pas certain d'avoir compris ta demande, vois si ce
que je te propose peut t'aider !
' Published by Debra Dalgleish 21 Juin 2003
'
'===================== > Sub DeleteOldItemsWB()
'gets rid of unused items in PivotTable
' 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
'======================= >
Et pour le faire manuellement : Proposé par Modeste
http://www.contextures.com/xlPivot04.html
notament :
Manually Clear Old Items
To manually clear the old items from the list:
1-Drag the pivot field out of the pivot table.
2-On the Pivot toolbar, click the Refresh button
3-Drag the pivot field back to the pivot table
"william" a écrit dans le message de news:
45a895b4$0$5112$
Bonjour,
Description du problème
J'utilise une base de donnée et un tableau croisé dynamique pour chaque
année, la base change donc tous les ans.
Le problème, c'est que la liste dans le tableau croisé dynamique (quand je
clic sur la petite flêche), elle, concerve tous les libellés d'avant!!!!!
Y'a-t-il un moyen de remettre ça avec seulement ceux existant dans le
TCD???
Merci pour les réponses, parce que ça fait des mois que je cherche comment
réinitialiser cette liste sans tout refaire,(effacer le tableau et le
refaire parce qu'il y a des graphique avec).
Je ne suis pas certain d'avoir compris ta demande, vois si ce
que je te propose peut t'aider !
' Published by Debra Dalgleish 21 Juin 2003
'
'===================== > Sub DeleteOldItemsWB()
'gets rid of unused items in PivotTable
' 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
'======================= >
Et pour le faire manuellement : Proposé par Modeste
http://www.contextures.com/xlPivot04.html
notament :
Manually Clear Old Items
To manually clear the old items from the list:
1-Drag the pivot field out of the pivot table.
2-On the Pivot toolbar, click the Refresh button
3-Drag the pivot field back to the pivot table
"william" a écrit dans le message de news:
45a895b4$0$5112$
Bonjour,
Description du problème
J'utilise une base de donnée et un tableau croisé dynamique pour chaque
année, la base change donc tous les ans.
Le problème, c'est que la liste dans le tableau croisé dynamique (quand je
clic sur la petite flêche), elle, concerve tous les libellés d'avant!!!!!
Y'a-t-il un moyen de remettre ça avec seulement ceux existant dans le
TCD???
Merci pour les réponses, parce que ça fait des mois que je cherche comment
réinitialiser cette liste sans tout refaire,(effacer le tableau et le
refaire parce qu'il y a des graphique avec).
Je ne suis pas certain d'avoir compris ta demande, vois si ce
que je te propose peut t'aider !
' Published by Debra Dalgleish 21 Juin 2003
'
'===================== > Sub DeleteOldItemsWB()
'gets rid of unused items in PivotTable
' 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
'======================= >
Et pour le faire manuellement : Proposé par Modeste
http://www.contextures.com/xlPivot04.html
notament :
Manually Clear Old Items
To manually clear the old items from the list:
1-Drag the pivot field out of the pivot table.
2-On the Pivot toolbar, click the Refresh button
3-Drag the pivot field back to the pivot table
"william" <willi59@wanadoo.fr> a écrit dans le message de news:
45a895b4$0$5112$ba4acef3@news.orange.fr...
Bonjour,
Description du problème
J'utilise une base de donnée et un tableau croisé dynamique pour chaque
année, la base change donc tous les ans.
Le problème, c'est que la liste dans le tableau croisé dynamique (quand je
clic sur la petite flêche), elle, concerve tous les libellés d'avant!!!!!
Y'a-t-il un moyen de remettre ça avec seulement ceux existant dans le
TCD???
Merci pour les réponses, parce que ça fait des mois que je cherche comment
réinitialiser cette liste sans tout refaire,(effacer le tableau et le
refaire parce qu'il y a des graphique avec).
Je ne suis pas certain d'avoir compris ta demande, vois si ce
que je te propose peut t'aider !
' Published by Debra Dalgleish 21 Juin 2003
'
'===================== > Sub DeleteOldItemsWB()
'gets rid of unused items in PivotTable
' 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
'======================= >
Et pour le faire manuellement : Proposé par Modeste
http://www.contextures.com/xlPivot04.html
notament :
Manually Clear Old Items
To manually clear the old items from the list:
1-Drag the pivot field out of the pivot table.
2-On the Pivot toolbar, click the Refresh button
3-Drag the pivot field back to the pivot table
"william" a écrit dans le message de news:
45a895b4$0$5112$
Bonjour,
Description du problème
J'utilise une base de donnée et un tableau croisé dynamique pour chaque
année, la base change donc tous les ans.
Le problème, c'est que la liste dans le tableau croisé dynamique (quand je
clic sur la petite flêche), elle, concerve tous les libellés d'avant!!!!!
Y'a-t-il un moyen de remettre ça avec seulement ceux existant dans le
TCD???
Merci pour les réponses, parce que ça fait des mois que je cherche comment
réinitialiser cette liste sans tout refaire,(effacer le tableau et le
refaire parce qu'il y a des graphique avec).