Bjr, j'ai un prob tout bête mais que je n'arrive pas à résoudre :
J'ai un tableau croisée dynamique qui fait référence à des champs qui bouge,
seulement dans la liste déroulante, il enregistre tous les anciens champs et
impossible de m'en défaire, je voudrais que lors d'une actualisation la liste
dans champs qui apparait dans le menu déroulant de l'étiquette se mette lui
aussi à jour (là ou je peux cocher ou decocher les valeurs).
Il doit surement y avoir une option permettant de vider la mémoire non ?
Si qq'un a déjà été confronté à ce prob une ptite aide serait la bienvenue.
Merci d'avance
@+ Eric
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
Bonjour EA,
Essaie ceci :
' Published by Debra Dalgleish 21 Juin 2003 et Publié Par Daniel Maher. ' '===================== 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 '=======================
Salutations!
"EA" a écrit dans le message de news: Bjr, j'ai un prob tout bête mais que je n'arrive pas à résoudre : J'ai un tableau croisée dynamique qui fait référence à des champs qui bouge, seulement dans la liste déroulante, il enregistre tous les anciens champs et impossible de m'en défaire, je voudrais que lors d'une actualisation la liste dans champs qui apparait dans le menu déroulant de l'étiquette se mette lui aussi à jour (là ou je peux cocher ou decocher les valeurs).
Il doit surement y avoir une option permettant de vider la mémoire non ? Si qq'un a déjà été confronté à ce prob une ptite aide serait la bienvenue. Merci d'avance @+ Eric
Bonjour EA,
Essaie ceci :
' Published by Debra Dalgleish 21 Juin 2003 et Publié Par Daniel Maher.
'
'===================== 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
'=======================
Salutations!
"EA" <EA@discussions.microsoft.com> a écrit dans le message de news: 5481848E-1EFD-4FCF-A735-0D613896A6B2@microsoft.com...
Bjr, j'ai un prob tout bête mais que je n'arrive pas à résoudre :
J'ai un tableau croisée dynamique qui fait référence à des champs qui bouge,
seulement dans la liste déroulante, il enregistre tous les anciens champs et
impossible de m'en défaire, je voudrais que lors d'une actualisation la liste
dans champs qui apparait dans le menu déroulant de l'étiquette se mette lui
aussi à jour (là ou je peux cocher ou decocher les valeurs).
Il doit surement y avoir une option permettant de vider la mémoire non ?
Si qq'un a déjà été confronté à ce prob une ptite aide serait la bienvenue.
Merci d'avance
@+ Eric
' Published by Debra Dalgleish 21 Juin 2003 et Publié Par Daniel Maher. ' '===================== 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 '=======================
Salutations!
"EA" a écrit dans le message de news: Bjr, j'ai un prob tout bête mais que je n'arrive pas à résoudre : J'ai un tableau croisée dynamique qui fait référence à des champs qui bouge, seulement dans la liste déroulante, il enregistre tous les anciens champs et impossible de m'en défaire, je voudrais que lors d'une actualisation la liste dans champs qui apparait dans le menu déroulant de l'étiquette se mette lui aussi à jour (là ou je peux cocher ou decocher les valeurs).
Il doit surement y avoir une option permettant de vider la mémoire non ? Si qq'un a déjà été confronté à ce prob une ptite aide serait la bienvenue. Merci d'avance @+ Eric
Modeste
Bonsour® en complément du post de Denis plus de détails là : 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
@+
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
Bonsour®
en complément du post de Denis
plus de détails là :
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
@+
--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042
Bonsour® en complément du post de Denis plus de détails là : 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
@+
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
