Mise à blanc des valeur dans les tableaux croisés dynamique
1 réponse
Arnaud
Sur les champs colonnes et pages, Excel garde l'historique des valeurs
pouvant être selectionné (filtres). Est-il possible de réinitialiser ces
valeurs après mise à jour des données de la table ?
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 Arnaud,
Copie dans cette procédure dans un module standard.
' Published by Debra Dalgleish 21 Juin 2003 et revu par Daniel M. ' '===================== 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!
"Arnaud" a écrit dans le message de news:
Sur les champs colonnes et pages, Excel garde l'historique des valeurs pouvant être selectionné (filtres). Est-il possible de réinitialiser ces valeurs après mise à jour des données de la table ?
Bonjour Arnaud,
Copie dans cette procédure dans un module standard.
' Published by Debra Dalgleish 21 Juin 2003 et revu par Daniel M.
'
'===================== 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!
"Arnaud" <Arnaud@discussions.microsoft.com> a écrit dans le message de news:
034F8F4F-1297-4D4C-A717-6A5816C99095@microsoft.com...
Sur les champs colonnes et pages, Excel garde l'historique des valeurs
pouvant être selectionné (filtres). Est-il possible de réinitialiser ces
valeurs après mise à jour des données de la table ?
Copie dans cette procédure dans un module standard.
' Published by Debra Dalgleish 21 Juin 2003 et revu par Daniel M. ' '===================== 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!
"Arnaud" a écrit dans le message de news:
Sur les champs colonnes et pages, Excel garde l'historique des valeurs pouvant être selectionné (filtres). Est-il possible de réinitialiser ces valeurs après mise à jour des données de la table ?