Le forum abonde réponses concernant l'objet (voir un des exemples ci-dessous).
Lorsque les items sont très nombreux, le traitement est très long alors que
manuellement, en cliquant sur (Afficher tout), c'est quasi instantanné.
N'y a-t-il pas une macro qui reproduit cette sélection manuelle?
Merci
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set tcd = Worksheets("Feuil1").PivotTables(1)
For i = 1 To tcd.PivotFields.Count
For Each Pi In tcd.PivotFields(i).PivotItems
If Pi.Visible = False Then Pi.Visible = True
Next
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
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
isabelle
bonjour René,
malheureusement non, il n'y a pas de méthode ShowAllData comme pour le filtre automatique. en tous cas pas sur xl2002 peut être sur xl2003 et + mais je ne l'ai pas encore.
isabelle
Bonjour,
Le forum abonde réponses concernant l'objet (voir un des exemples ci-dessous). Lorsque les items sont très nombreux, le traitement est très long alors que manuellement, en cliquant sur (Afficher tout), c'est quasi instantanné. N'y a-t-il pas une macro qui reproduit cette sélection manuelle? Merci
Application.DisplayAlerts = False Application.ScreenUpdating = False Set tcd = Worksheets("Feuil1").PivotTables(1) For i = 1 To tcd.PivotFields.Count For Each Pi In tcd.PivotFields(i).PivotItems If Pi.Visible = False Then Pi.Visible = True Next Next Application.ScreenUpdating = True Application.DisplayAlerts = True
bonjour René,
malheureusement non, il n'y a pas de méthode ShowAllData comme pour le filtre automatique.
en tous cas pas sur xl2002 peut être sur xl2003 et + mais je ne l'ai pas encore.
isabelle
Bonjour,
Le forum abonde réponses concernant l'objet (voir un des exemples ci-dessous).
Lorsque les items sont très nombreux, le traitement est très long alors que
manuellement, en cliquant sur (Afficher tout), c'est quasi instantanné.
N'y a-t-il pas une macro qui reproduit cette sélection manuelle?
Merci
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set tcd = Worksheets("Feuil1").PivotTables(1)
For i = 1 To tcd.PivotFields.Count
For Each Pi In tcd.PivotFields(i).PivotItems
If Pi.Visible = False Then Pi.Visible = True
Next
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
malheureusement non, il n'y a pas de méthode ShowAllData comme pour le filtre automatique. en tous cas pas sur xl2002 peut être sur xl2003 et + mais je ne l'ai pas encore.
isabelle
Bonjour,
Le forum abonde réponses concernant l'objet (voir un des exemples ci-dessous). Lorsque les items sont très nombreux, le traitement est très long alors que manuellement, en cliquant sur (Afficher tout), c'est quasi instantanné. N'y a-t-il pas une macro qui reproduit cette sélection manuelle? Merci
Application.DisplayAlerts = False Application.ScreenUpdating = False Set tcd = Worksheets("Feuil1").PivotTables(1) For i = 1 To tcd.PivotFields.Count For Each Pi In tcd.PivotFields(i).PivotItems If Pi.Visible = False Then Pi.Visible = True Next Next Application.ScreenUpdating = True Application.DisplayAlerts = True
MichDenis
As-tu essayé ceci en adaptant le nom des objets selon ton application
Sub test()
Dim Pi As PivotItem
Application.Calculation = xlCalculationManual With Me.PivotTables(1) .ManualUpdate = True For Each Pi In .PivotFields("Region").PivotItems Pi.Visible = True Next .ManualUpdate = False .RefreshTable End With
End Sub
"René Delcourt" a écrit dans le message de news:
Bonjour,
Le forum abonde réponses concernant l'objet (voir un des exemples ci-dessous). Lorsque les items sont très nombreux, le traitement est très long alors que manuellement, en cliquant sur (Afficher tout), c'est quasi instantanné. N'y a-t-il pas une macro qui reproduit cette sélection manuelle? Merci
Application.DisplayAlerts = False Application.ScreenUpdating = False Set tcd = Worksheets("Feuil1").PivotTables(1) For i = 1 To tcd.PivotFields.Count For Each Pi In tcd.PivotFields(i).PivotItems If Pi.Visible = False Then Pi.Visible = True Next Next Application.ScreenUpdating = True Application.DisplayAlerts = True
-- René Delcourt
As-tu essayé ceci en adaptant le nom des objets selon ton application
Sub test()
Dim Pi As PivotItem
Application.Calculation = xlCalculationManual
With Me.PivotTables(1)
.ManualUpdate = True
For Each Pi In .PivotFields("Region").PivotItems
Pi.Visible = True
Next
.ManualUpdate = False
.RefreshTable
End With
End Sub
"René Delcourt" <rde@intras.ch> a écrit dans le message de news:
76AB7198-071C-4299-884D-AB882C5199B5@microsoft.com...
Bonjour,
Le forum abonde réponses concernant l'objet (voir un des exemples ci-dessous).
Lorsque les items sont très nombreux, le traitement est très long alors que
manuellement, en cliquant sur (Afficher tout), c'est quasi instantanné.
N'y a-t-il pas une macro qui reproduit cette sélection manuelle?
Merci
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set tcd = Worksheets("Feuil1").PivotTables(1)
For i = 1 To tcd.PivotFields.Count
For Each Pi In tcd.PivotFields(i).PivotItems
If Pi.Visible = False Then Pi.Visible = True
Next
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
As-tu essayé ceci en adaptant le nom des objets selon ton application
Sub test()
Dim Pi As PivotItem
Application.Calculation = xlCalculationManual With Me.PivotTables(1) .ManualUpdate = True For Each Pi In .PivotFields("Region").PivotItems Pi.Visible = True Next .ManualUpdate = False .RefreshTable End With
End Sub
"René Delcourt" a écrit dans le message de news:
Bonjour,
Le forum abonde réponses concernant l'objet (voir un des exemples ci-dessous). Lorsque les items sont très nombreux, le traitement est très long alors que manuellement, en cliquant sur (Afficher tout), c'est quasi instantanné. N'y a-t-il pas une macro qui reproduit cette sélection manuelle? Merci
Application.DisplayAlerts = False Application.ScreenUpdating = False Set tcd = Worksheets("Feuil1").PivotTables(1) For i = 1 To tcd.PivotFields.Count For Each Pi In tcd.PivotFields(i).PivotItems If Pi.Visible = False Then Pi.Visible = True Next Next Application.ScreenUpdating = True Application.DisplayAlerts = True
-- René Delcourt
MichDenis
Si tu copies le code ailleurs que dans le module feuille où tu as ton TDC, évidemment tu devras remplacer "Me" par Worksheets("NomDelaFeuille")
et tu peux te débarrasser de ceci dans la sub : Application.Calculation = xlCalculationManual
Sub test()
Dim Pi As PivotItem
Application.Calculation = xlCalculationManual With Me.PivotTables(1) .ManualUpdate = True For Each Pi In .PivotFields("Region").PivotItems Pi.Visible = True Next .ManualUpdate = False .RefreshTable End With
End Sub
"René Delcourt" a écrit dans le message de news:
Bonjour,
Le forum abonde réponses concernant l'objet (voir un des exemples ci-dessous). Lorsque les items sont très nombreux, le traitement est très long alors que manuellement, en cliquant sur (Afficher tout), c'est quasi instantanné. N'y a-t-il pas une macro qui reproduit cette sélection manuelle? Merci
Application.DisplayAlerts = False Application.ScreenUpdating = False Set tcd = Worksheets("Feuil1").PivotTables(1) For i = 1 To tcd.PivotFields.Count For Each Pi In tcd.PivotFields(i).PivotItems If Pi.Visible = False Then Pi.Visible = True Next Next Application.ScreenUpdating = True Application.DisplayAlerts = True
-- René Delcourt
Si tu copies le code ailleurs que dans le module feuille où tu as ton TDC,
évidemment tu devras remplacer "Me" par Worksheets("NomDelaFeuille")
et tu peux te débarrasser de ceci dans la sub :
Application.Calculation = xlCalculationManual
Sub test()
Dim Pi As PivotItem
Application.Calculation = xlCalculationManual
With Me.PivotTables(1)
.ManualUpdate = True
For Each Pi In .PivotFields("Region").PivotItems
Pi.Visible = True
Next
.ManualUpdate = False
.RefreshTable
End With
End Sub
"René Delcourt" <rde@intras.ch> a écrit dans le message de news:
76AB7198-071C-4299-884D-AB882C5199B5@microsoft.com...
Bonjour,
Le forum abonde réponses concernant l'objet (voir un des exemples ci-dessous).
Lorsque les items sont très nombreux, le traitement est très long alors que
manuellement, en cliquant sur (Afficher tout), c'est quasi instantanné.
N'y a-t-il pas une macro qui reproduit cette sélection manuelle?
Merci
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set tcd = Worksheets("Feuil1").PivotTables(1)
For i = 1 To tcd.PivotFields.Count
For Each Pi In tcd.PivotFields(i).PivotItems
If Pi.Visible = False Then Pi.Visible = True
Next
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Si tu copies le code ailleurs que dans le module feuille où tu as ton TDC, évidemment tu devras remplacer "Me" par Worksheets("NomDelaFeuille")
et tu peux te débarrasser de ceci dans la sub : Application.Calculation = xlCalculationManual
Sub test()
Dim Pi As PivotItem
Application.Calculation = xlCalculationManual With Me.PivotTables(1) .ManualUpdate = True For Each Pi In .PivotFields("Region").PivotItems Pi.Visible = True Next .ManualUpdate = False .RefreshTable End With
End Sub
"René Delcourt" a écrit dans le message de news:
Bonjour,
Le forum abonde réponses concernant l'objet (voir un des exemples ci-dessous). Lorsque les items sont très nombreux, le traitement est très long alors que manuellement, en cliquant sur (Afficher tout), c'est quasi instantanné. N'y a-t-il pas une macro qui reproduit cette sélection manuelle? Merci
Application.DisplayAlerts = False Application.ScreenUpdating = False Set tcd = Worksheets("Feuil1").PivotTables(1) For i = 1 To tcd.PivotFields.Count For Each Pi In tcd.PivotFields(i).PivotItems If Pi.Visible = False Then Pi.Visible = True Next Next Application.ScreenUpdating = True Application.DisplayAlerts = True