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).
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
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).
william
En fait je ne crois pas. Dans un fichier ou je gère mes comptes, il y a plusieurs colonne, date mois libellé débit credits etc..... J'ai crée un tableau croisé dynamique ou j'extrait par mois tous les crédits et débits J'utilise ce fichier tous les ans en effaçant toutes les données dans la base de donnée. Par contre dans le tableau croisé quand tous les libellé reste en mémoire quand je veux filtré des libellés en décochant des cases dans la liste. Y'a t-il un moyen de tout remettre à zéro?
"MichDenis" a écrit dans le message de news: %
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).
En fait je ne crois pas.
Dans un fichier ou je gère mes comptes, il y a plusieurs colonne, date mois
libellé débit credits etc.....
J'ai crée un tableau croisé dynamique ou j'extrait par mois tous les crédits
et débits
J'utilise ce fichier tous les ans en effaçant toutes les données dans la
base de donnée.
Par contre dans le tableau croisé quand tous les libellé reste en mémoire
quand je veux filtré des libellés en décochant des cases dans la liste.
Y'a t-il un moyen de tout remettre à zéro?
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23GQA3eyNHHA.2236@TK2MSFTNGP02.phx.gbl...
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).
En fait je ne crois pas. Dans un fichier ou je gère mes comptes, il y a plusieurs colonne, date mois libellé débit credits etc..... J'ai crée un tableau croisé dynamique ou j'extrait par mois tous les crédits et débits J'utilise ce fichier tous les ans en effaçant toutes les données dans la base de donnée. Par contre dans le tableau croisé quand tous les libellé reste en mémoire quand je veux filtré des libellés en décochant des cases dans la liste. Y'a t-il un moyen de tout remettre à zéro?
"MichDenis" a écrit dans le message de news: %
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).
MichDenis
Je n'ai pas vraiment saisi le sens de ta question mais je me permets de te suggérer un bouquin traitant seulement des TDC :
Site internet : http://www.contextures.com/index.html
P.S. Je ne sais pas si ce volume a été traduit en français.
"william" a écrit dans le message de news: 45abcb97$0$27390$ En fait je ne crois pas. Dans un fichier ou je gère mes comptes, il y a plusieurs colonne, date mois libellé débit credits etc..... J'ai crée un tableau croisé dynamique ou j'extrait par mois tous les crédits et débits J'utilise ce fichier tous les ans en effaçant toutes les données dans la base de donnée. Par contre dans le tableau croisé quand tous les libellé reste en mémoire quand je veux filtré des libellés en décochant des cases dans la liste. Y'a t-il un moyen de tout remettre à zéro?
"MichDenis" a écrit dans le message de news: %
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 n'ai pas vraiment saisi le sens de ta question mais je me permets de te suggérer
un bouquin traitant seulement des TDC :
Site internet : http://www.contextures.com/index.html
P.S. Je ne sais pas si ce volume a été traduit en français.
"william" <willi59@wanadoo.fr> a écrit dans le message de news:
45abcb97$0$27390$ba4acef3@news.orange.fr...
En fait je ne crois pas.
Dans un fichier ou je gère mes comptes, il y a plusieurs colonne, date mois
libellé débit credits etc.....
J'ai crée un tableau croisé dynamique ou j'extrait par mois tous les crédits
et débits
J'utilise ce fichier tous les ans en effaçant toutes les données dans la
base de donnée.
Par contre dans le tableau croisé quand tous les libellé reste en mémoire
quand je veux filtré des libellés en décochant des cases dans la liste.
Y'a t-il un moyen de tout remettre à zéro?
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23GQA3eyNHHA.2236@TK2MSFTNGP02.phx.gbl...
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).
Site internet : http://www.contextures.com/index.html
P.S. Je ne sais pas si ce volume a été traduit en français.
"william" a écrit dans le message de news: 45abcb97$0$27390$ En fait je ne crois pas. Dans un fichier ou je gère mes comptes, il y a plusieurs colonne, date mois libellé débit credits etc..... J'ai crée un tableau croisé dynamique ou j'extrait par mois tous les crédits et débits J'utilise ce fichier tous les ans en effaçant toutes les données dans la base de donnée. Par contre dans le tableau croisé quand tous les libellé reste en mémoire quand je veux filtré des libellés en décochant des cases dans la liste. Y'a t-il un moyen de tout remettre à zéro?
"MichDenis" a écrit dans le message de news: %
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).
william
Je pense finalement que ça peut m'aider, mais c'est bien compliqué tout ça!!!!!
"MichDenis" a écrit dans le message de news: %
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 pense finalement que ça peut m'aider, mais c'est bien compliqué tout
ça!!!!!
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23GQA3eyNHHA.2236@TK2MSFTNGP02.phx.gbl...
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 pense finalement que ça peut m'aider, mais c'est bien compliqué tout ça!!!!!
"MichDenis" a écrit dans le message de news: %
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).
