Graphique et filtre
Résolu/Fermé
A voir également:
- Graphique et filtre
- Photo filtre gratuit - Télécharger - Retouche d'image
- Changer carte graphique - Guide
- Graphique excel - Guide
- Filtre teams - Guide
- Graphique sparkline - Guide
3 réponses
Le Pingou
Messages postés
12155
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
29 septembre 2024
1 448
19 nov. 2010 à 21:57
19 nov. 2010 à 21:57
Bonjour,
C'est étrange, est-il possible de mettre votre fichier sur https://www.cjoint.com/ et poster le lien?
C'est étrange, est-il possible de mettre votre fichier sur https://www.cjoint.com/ et poster le lien?
cousinhub29
Messages postés
939
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
29 septembre 2024
341
19 nov. 2010 à 23:22
19 nov. 2010 à 23:22
Bonjour,
Pour ta première question, il faut passer par un code VBA
Selon la version Excel :
Version 2002 ou ultérieure :
Les versions antérieures :
Bonne nuit
Pour ta première question, il faut passer par un code VBA
Selon la version Excel :
Version 2002 ou ultérieure :
Sub supprime_anciens_items() 'Excel 2002 et ultérieurs Dim pvt As PivotTable Dim sh As Worksheet For Each sh In ActiveWorkbook.Worksheets For Each pvt In sh.PivotTables pvt.PivotCache.MissingItemsLimit = xlMissingItemsNone pvt.PivotCache.Refresh Next pvt Next sh End Sub
Les versions antérieures :
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
Bonne nuit
Modifié par Lumière le 19/11/2010 à 22:54
En tout cas merci d'avoir répondu à mon HELP! :-) Et je l'espère à demain