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 Nico,
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
isabelle
Bonjour à toutes et à tous,
Comment, par VBA, afficher tous les éléments de tous les champs d'un tableau croisé dynamique?
Merci d'avance de vos suggestions.
Nico Iannizzi
bonjour Nico,
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
isabelle
Bonjour à toutes et à tous,
Comment, par VBA, afficher tous les éléments de tous les champs d'un tableau
croisé dynamique?
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
isabelle
Bonjour à toutes et à tous,
Comment, par VBA, afficher tous les éléments de tous les champs d'un tableau croisé dynamique?
Merci d'avance de vos suggestions.
Nico Iannizzi
Nico Iannizzi
Bonsoir Isabelle,
Merci pour la réponse,
Malheureusement ton code s'exécute très lentement comparé à l'intervention de l'utilisateur au niveau interface utilisateur (en cliquant les flèches et en sélectionnant afficher tout).
Mon tcd comprend 8 champs et +- 4000 lignes.
Y-a-t'il peut être un moyen pour "booster" l'exécution de la macro ?
Merci ,
bonjour Nico,
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
isabelle
Bonjour à toutes et à tous,
Comment, par VBA, afficher tous les éléments de tous les champs d'un tableau croisé dynamique?
Merci d'avance de vos suggestions.
Nico Iannizzi
Bonsoir Isabelle,
Merci pour la réponse,
Malheureusement ton code s'exécute très lentement comparé à l'intervention
de l'utilisateur au niveau interface utilisateur (en cliquant les flèches et
en sélectionnant afficher tout).
Mon tcd comprend 8 champs et +- 4000 lignes.
Y-a-t'il peut être un moyen pour "booster" l'exécution de la macro ?
Merci ,
bonjour Nico,
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
isabelle
Bonjour à toutes et à tous,
Comment, par VBA, afficher tous les éléments de tous les champs d'un tableau
croisé dynamique?
Malheureusement ton code s'exécute très lentement comparé à l'intervention de l'utilisateur au niveau interface utilisateur (en cliquant les flèches et en sélectionnant afficher tout).
Mon tcd comprend 8 champs et +- 4000 lignes.
Y-a-t'il peut être un moyen pour "booster" l'exécution de la macro ?
Merci ,
bonjour Nico,
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
isabelle
Bonjour à toutes et à tous,
Comment, par VBA, afficher tous les éléments de tous les champs d'un tableau croisé dynamique?
Merci d'avance de vos suggestions.
Nico Iannizzi
Nico Iannizzi
Bonsoir Isabelle,
Merci pour la réponse,
Malheureusement ton code s'exécute très lentement comparé à l'intervention de l'utilisateur au niveau interface utilisateur (en cliquant les flèches et en sélectionnant afficher tout).
Mon tcd comprend 8 champs et +- 4000 lignes.
Y-a-t'il peut être un moyen pour "booster" l'exécution de la macro ?
Merci ,
bonjour Nico,
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
isabelle
Bonjour à toutes et à tous,
Comment, par VBA, afficher tous les éléments de tous les champs d'un tableau croisé dynamique?
Merci d'avance de vos suggestions.
Nico Iannizzi
Bonsoir Isabelle,
Merci pour la réponse,
Malheureusement ton code s'exécute très lentement comparé à l'intervention
de l'utilisateur au niveau interface utilisateur (en cliquant les flèches et
en sélectionnant afficher tout).
Mon tcd comprend 8 champs et +- 4000 lignes.
Y-a-t'il peut être un moyen pour "booster" l'exécution de la macro ?
Merci ,
bonjour Nico,
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
isabelle
Bonjour à toutes et à tous,
Comment, par VBA, afficher tous les éléments de tous les champs d'un tableau
croisé dynamique?
Malheureusement ton code s'exécute très lentement comparé à l'intervention de l'utilisateur au niveau interface utilisateur (en cliquant les flèches et en sélectionnant afficher tout).
Mon tcd comprend 8 champs et +- 4000 lignes.
Y-a-t'il peut être un moyen pour "booster" l'exécution de la macro ?
Merci ,
bonjour Nico,
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
isabelle
Bonjour à toutes et à tous,
Comment, par VBA, afficher tous les éléments de tous les champs d'un tableau croisé dynamique?
Merci d'avance de vos suggestions.
Nico Iannizzi
isabelle
Nico, 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 mais je ne l'ai pas encore.
isabelle
Bonsoir Isabelle,
Merci pour la réponse,
Malheureusement ton code s'exécute très lentement comparé à l'intervention de l'utilisateur au niveau interface utilisateur (en cliquant les flèches et en sélectionnant afficher tout).
Mon tcd comprend 8 champs et +- 4000 lignes.
Y-a-t'il peut être un moyen pour "booster" l'exécution de la macro ?
Merci ,
bonjour Nico,
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
isabelle
Bonjour à toutes et à tous,
Comment, par VBA, afficher tous les éléments de tous les champs d'un tableau croisé dynamique?
Merci d'avance de vos suggestions.
Nico Iannizzi
Nico, 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 mais je ne l'ai pas encore.
isabelle
Bonsoir Isabelle,
Merci pour la réponse,
Malheureusement ton code s'exécute très lentement comparé à l'intervention
de l'utilisateur au niveau interface utilisateur (en cliquant les flèches et
en sélectionnant afficher tout).
Mon tcd comprend 8 champs et +- 4000 lignes.
Y-a-t'il peut être un moyen pour "booster" l'exécution de la macro ?
Merci ,
bonjour Nico,
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
isabelle
Bonjour à toutes et à tous,
Comment, par VBA, afficher tous les éléments de tous les champs d'un tableau
croisé dynamique?
Nico, 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 mais je ne l'ai pas encore.
isabelle
Bonsoir Isabelle,
Merci pour la réponse,
Malheureusement ton code s'exécute très lentement comparé à l'intervention de l'utilisateur au niveau interface utilisateur (en cliquant les flèches et en sélectionnant afficher tout).
Mon tcd comprend 8 champs et +- 4000 lignes.
Y-a-t'il peut être un moyen pour "booster" l'exécution de la macro ?
Merci ,
bonjour Nico,
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
isabelle
Bonjour à toutes et à tous,
Comment, par VBA, afficher tous les éléments de tous les champs d'un tableau croisé dynamique?