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
poy-poy
Bonjour Serge,
En supposant que ton champs "toto"(du tcd PT1 de la feuille pouic) est un champs de colonne tu fais une boucle dessus en lui disant que pour chaque objet dedans la propriété visible est vrai :
Sub show() Dim pti As PivotItem
For Each pti In Sheets("pouic").PivotTables("PT1").ColumnFields("toto").PivotItems pti.Visible = True Next pti
End Sub
Cordialement Benjamin
bonjour à tous, comment faire par macro pour qu'un TCD affiche toute les valeurs possible dans une de ces colonne?
merci d'avance
serge
Bonjour Serge,
En supposant que ton champs "toto"(du tcd PT1 de la feuille pouic) est un
champs de colonne tu fais une boucle dessus en lui disant que pour chaque
objet dedans la propriété visible est vrai :
Sub show()
Dim pti As PivotItem
For Each pti In
Sheets("pouic").PivotTables("PT1").ColumnFields("toto").PivotItems
pti.Visible = True
Next pti
End Sub
Cordialement
Benjamin
bonjour à tous,
comment faire par macro pour qu'un TCD affiche toute les valeurs possible
dans une de ces colonne?
En supposant que ton champs "toto"(du tcd PT1 de la feuille pouic) est un champs de colonne tu fais une boucle dessus en lui disant que pour chaque objet dedans la propriété visible est vrai :
Sub show() Dim pti As PivotItem
For Each pti In Sheets("pouic").PivotTables("PT1").ColumnFields("toto").PivotItems pti.Visible = True Next pti
End Sub
Cordialement Benjamin
bonjour à tous, comment faire par macro pour qu'un TCD affiche toute les valeurs possible dans une de ces colonne?
merci d'avance
serge
serge
Merci mais en fait j'ai le problème suivant : le champ dans mon TCD comporte plusieurs valeurs car il est maj chaque jour, il y a certaines valeurs qui sont d'ailleurs erronées vu que les lignes n'existent plus. j'ai les valeurs suivantes : "9840C" "VSM" "TODF". le problème est que la valeur 9840C par exemple n'éxiste plus dans la source du TCD. Cependant ce TCD la propose tjrs car il la garde en mémoire. donc sais tu comment faire pour rafraichir cette liste de choix afin qu'il ne me propose plus de valeurs erronées et donc que ton code marche. merci d'avance
serge
"poy-poy" wrote:
Bonjour Serge,
En supposant que ton champs "toto"(du tcd PT1 de la feuille pouic) est un champs de colonne tu fais une boucle dessus en lui disant que pour chaque objet dedans la propriété visible est vrai :
Sub show() Dim pti As PivotItem
For Each pti In Sheets("pouic").PivotTables("PT1").ColumnFields("toto").PivotItems pti.Visible = True Next pti
End Sub
Cordialement Benjamin
bonjour à tous, comment faire par macro pour qu'un TCD affiche toute les valeurs possible dans une de ces colonne?
merci d'avance
serge
Merci mais en fait j'ai le problème suivant :
le champ dans mon TCD comporte plusieurs valeurs car il est maj chaque jour,
il y a certaines valeurs qui sont d'ailleurs erronées vu que les lignes
n'existent plus.
j'ai les valeurs suivantes : "9840C" "VSM" "TODF".
le problème est que la valeur 9840C par exemple n'éxiste plus dans la source
du TCD. Cependant ce TCD la propose tjrs car il la garde en mémoire. donc
sais tu comment faire pour rafraichir cette liste de choix afin qu'il ne me
propose plus de valeurs erronées et donc que ton code marche.
merci d'avance
serge
"poy-poy" wrote:
Bonjour Serge,
En supposant que ton champs "toto"(du tcd PT1 de la feuille pouic) est un
champs de colonne tu fais une boucle dessus en lui disant que pour chaque
objet dedans la propriété visible est vrai :
Sub show()
Dim pti As PivotItem
For Each pti In
Sheets("pouic").PivotTables("PT1").ColumnFields("toto").PivotItems
pti.Visible = True
Next pti
End Sub
Cordialement
Benjamin
bonjour à tous,
comment faire par macro pour qu'un TCD affiche toute les valeurs possible
dans une de ces colonne?
Merci mais en fait j'ai le problème suivant : le champ dans mon TCD comporte plusieurs valeurs car il est maj chaque jour, il y a certaines valeurs qui sont d'ailleurs erronées vu que les lignes n'existent plus. j'ai les valeurs suivantes : "9840C" "VSM" "TODF". le problème est que la valeur 9840C par exemple n'éxiste plus dans la source du TCD. Cependant ce TCD la propose tjrs car il la garde en mémoire. donc sais tu comment faire pour rafraichir cette liste de choix afin qu'il ne me propose plus de valeurs erronées et donc que ton code marche. merci d'avance
serge
"poy-poy" wrote:
Bonjour Serge,
En supposant que ton champs "toto"(du tcd PT1 de la feuille pouic) est un champs de colonne tu fais une boucle dessus en lui disant que pour chaque objet dedans la propriété visible est vrai :
Sub show() Dim pti As PivotItem
For Each pti In Sheets("pouic").PivotTables("PT1").ColumnFields("toto").PivotItems pti.Visible = True Next pti
End Sub
Cordialement Benjamin
bonjour à tous, comment faire par macro pour qu'un TCD affiche toute les valeurs possible dans une de ces colonne?
merci d'avance
serge
poy-poy
Re bonjour serge, voici le code que tu peux trouver sur les sites excellabo, contexture... et sur le forum (vu qu'il a déjà était publié plusieurs fois) par une recherche...
Sub DeleteMissingItems() 'prevents unused items in PivotTable
'in Excel 2002 and later versions 'If unused items already exist, 'run this macro then refresh the table Dim pt As PivotTable Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets For Each pt In ws.PivotTables pt.PivotCache.MissingItemsLimit = xlMissingItemsNone Next pt Next ws
End Sub
Cordialement Benjamin
Merci mais en fait j'ai le problème suivant : le champ dans mon TCD comporte plusieurs valeurs car il est maj chaque jour, il y a certaines valeurs qui sont d'ailleurs erronées vu que les lignes n'existent plus. j'ai les valeurs suivantes : "9840C" "VSM" "TODF". le problème est que la valeur 9840C par exemple n'éxiste plus dans la source du TCD. Cependant ce TCD la propose tjrs car il la garde en mémoire. donc sais tu comment faire pour rafraichir cette liste de choix afin qu'il ne me propose plus de valeurs erronées et donc que ton code marche. merci d'avance
serge
"poy-poy" wrote:
Bonjour Serge,
En supposant que ton champs "toto"(du tcd PT1 de la feuille pouic) est un champs de colonne tu fais une boucle dessus en lui disant que pour chaque objet dedans la propriété visible est vrai :
Sub show() Dim pti As PivotItem
For Each pti In Sheets("pouic").PivotTables("PT1").ColumnFields("toto").PivotItems pti.Visible = True Next pti
End Sub
Cordialement Benjamin
bonjour à tous, comment faire par macro pour qu'un TCD affiche toute les valeurs possible dans une de ces colonne?
merci d'avance
serge
Re bonjour serge,
voici le code que tu peux trouver sur les sites excellabo, contexture... et
sur le forum (vu qu'il a déjà était publié plusieurs fois) par une
recherche...
Sub DeleteMissingItems()
'prevents unused items in PivotTable
'in Excel 2002 and later versions
'If unused items already exist,
'run this macro then refresh the table
Dim pt As PivotTable
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
Next pt
Next ws
End Sub
Cordialement
Benjamin
Merci mais en fait j'ai le problème suivant :
le champ dans mon TCD comporte plusieurs valeurs car il est maj chaque jour,
il y a certaines valeurs qui sont d'ailleurs erronées vu que les lignes
n'existent plus.
j'ai les valeurs suivantes : "9840C" "VSM" "TODF".
le problème est que la valeur 9840C par exemple n'éxiste plus dans la source
du TCD. Cependant ce TCD la propose tjrs car il la garde en mémoire. donc
sais tu comment faire pour rafraichir cette liste de choix afin qu'il ne me
propose plus de valeurs erronées et donc que ton code marche.
merci d'avance
serge
"poy-poy" wrote:
Bonjour Serge,
En supposant que ton champs "toto"(du tcd PT1 de la feuille pouic) est un
champs de colonne tu fais une boucle dessus en lui disant que pour chaque
objet dedans la propriété visible est vrai :
Sub show()
Dim pti As PivotItem
For Each pti In
Sheets("pouic").PivotTables("PT1").ColumnFields("toto").PivotItems
pti.Visible = True
Next pti
End Sub
Cordialement
Benjamin
bonjour à tous,
comment faire par macro pour qu'un TCD affiche toute les valeurs possible
dans une de ces colonne?
Re bonjour serge, voici le code que tu peux trouver sur les sites excellabo, contexture... et sur le forum (vu qu'il a déjà était publié plusieurs fois) par une recherche...
Sub DeleteMissingItems() 'prevents unused items in PivotTable
'in Excel 2002 and later versions 'If unused items already exist, 'run this macro then refresh the table Dim pt As PivotTable Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets For Each pt In ws.PivotTables pt.PivotCache.MissingItemsLimit = xlMissingItemsNone Next pt Next ws
End Sub
Cordialement Benjamin
Merci mais en fait j'ai le problème suivant : le champ dans mon TCD comporte plusieurs valeurs car il est maj chaque jour, il y a certaines valeurs qui sont d'ailleurs erronées vu que les lignes n'existent plus. j'ai les valeurs suivantes : "9840C" "VSM" "TODF". le problème est que la valeur 9840C par exemple n'éxiste plus dans la source du TCD. Cependant ce TCD la propose tjrs car il la garde en mémoire. donc sais tu comment faire pour rafraichir cette liste de choix afin qu'il ne me propose plus de valeurs erronées et donc que ton code marche. merci d'avance
serge
"poy-poy" wrote:
Bonjour Serge,
En supposant que ton champs "toto"(du tcd PT1 de la feuille pouic) est un champs de colonne tu fais une boucle dessus en lui disant que pour chaque objet dedans la propriété visible est vrai :
Sub show() Dim pti As PivotItem
For Each pti In Sheets("pouic").PivotTables("PT1").ColumnFields("toto").PivotItems pti.Visible = True Next pti
End Sub
Cordialement Benjamin
bonjour à tous, comment faire par macro pour qu'un TCD affiche toute les valeurs possible dans une de ces colonne?
merci d'avance
serge
serge
je t'avoue que je cherche depuis pas ml de tps sur le net sans avoir trouver çà connaissant pourtant excelabo cathyastuce et autre. encore merci
"poy-poy" wrote:
Re bonjour serge, voici le code que tu peux trouver sur les sites excellabo, contexture... et sur le forum (vu qu'il a déjà était publié plusieurs fois) par une recherche...
Sub DeleteMissingItems() 'prevents unused items in PivotTable
'in Excel 2002 and later versions 'If unused items already exist, 'run this macro then refresh the table Dim pt As PivotTable Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets For Each pt In ws.PivotTables pt.PivotCache.MissingItemsLimit = xlMissingItemsNone Next pt Next ws
End Sub
Cordialement Benjamin
Merci mais en fait j'ai le problème suivant : le champ dans mon TCD comporte plusieurs valeurs car il est maj chaque jour, il y a certaines valeurs qui sont d'ailleurs erronées vu que les lignes n'existent plus. j'ai les valeurs suivantes : "9840C" "VSM" "TODF". le problème est que la valeur 9840C par exemple n'éxiste plus dans la source du TCD. Cependant ce TCD la propose tjrs car il la garde en mémoire. donc sais tu comment faire pour rafraichir cette liste de choix afin qu'il ne me propose plus de valeurs erronées et donc que ton code marche. merci d'avance
serge
"poy-poy" wrote:
Bonjour Serge,
En supposant que ton champs "toto"(du tcd PT1 de la feuille pouic) est un champs de colonne tu fais une boucle dessus en lui disant que pour chaque objet dedans la propriété visible est vrai :
Sub show() Dim pti As PivotItem
For Each pti In Sheets("pouic").PivotTables("PT1").ColumnFields("toto").PivotItems pti.Visible = True Next pti
End Sub
Cordialement Benjamin
bonjour à tous, comment faire par macro pour qu'un TCD affiche toute les valeurs possible dans une de ces colonne?
merci d'avance
serge
je t'avoue que je cherche depuis pas ml de tps sur le net sans avoir trouver
çà connaissant pourtant excelabo cathyastuce et autre.
encore merci
"poy-poy" wrote:
Re bonjour serge,
voici le code que tu peux trouver sur les sites excellabo, contexture... et
sur le forum (vu qu'il a déjà était publié plusieurs fois) par une
recherche...
Sub DeleteMissingItems()
'prevents unused items in PivotTable
'in Excel 2002 and later versions
'If unused items already exist,
'run this macro then refresh the table
Dim pt As PivotTable
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
Next pt
Next ws
End Sub
Cordialement
Benjamin
Merci mais en fait j'ai le problème suivant :
le champ dans mon TCD comporte plusieurs valeurs car il est maj chaque jour,
il y a certaines valeurs qui sont d'ailleurs erronées vu que les lignes
n'existent plus.
j'ai les valeurs suivantes : "9840C" "VSM" "TODF".
le problème est que la valeur 9840C par exemple n'éxiste plus dans la source
du TCD. Cependant ce TCD la propose tjrs car il la garde en mémoire. donc
sais tu comment faire pour rafraichir cette liste de choix afin qu'il ne me
propose plus de valeurs erronées et donc que ton code marche.
merci d'avance
serge
"poy-poy" wrote:
Bonjour Serge,
En supposant que ton champs "toto"(du tcd PT1 de la feuille pouic) est un
champs de colonne tu fais une boucle dessus en lui disant que pour chaque
objet dedans la propriété visible est vrai :
Sub show()
Dim pti As PivotItem
For Each pti In
Sheets("pouic").PivotTables("PT1").ColumnFields("toto").PivotItems
pti.Visible = True
Next pti
End Sub
Cordialement
Benjamin
bonjour à tous,
comment faire par macro pour qu'un TCD affiche toute les valeurs possible
dans une de ces colonne?
je t'avoue que je cherche depuis pas ml de tps sur le net sans avoir trouver çà connaissant pourtant excelabo cathyastuce et autre. encore merci
"poy-poy" wrote:
Re bonjour serge, voici le code que tu peux trouver sur les sites excellabo, contexture... et sur le forum (vu qu'il a déjà était publié plusieurs fois) par une recherche...
Sub DeleteMissingItems() 'prevents unused items in PivotTable
'in Excel 2002 and later versions 'If unused items already exist, 'run this macro then refresh the table Dim pt As PivotTable Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets For Each pt In ws.PivotTables pt.PivotCache.MissingItemsLimit = xlMissingItemsNone Next pt Next ws
End Sub
Cordialement Benjamin
Merci mais en fait j'ai le problème suivant : le champ dans mon TCD comporte plusieurs valeurs car il est maj chaque jour, il y a certaines valeurs qui sont d'ailleurs erronées vu que les lignes n'existent plus. j'ai les valeurs suivantes : "9840C" "VSM" "TODF". le problème est que la valeur 9840C par exemple n'éxiste plus dans la source du TCD. Cependant ce TCD la propose tjrs car il la garde en mémoire. donc sais tu comment faire pour rafraichir cette liste de choix afin qu'il ne me propose plus de valeurs erronées et donc que ton code marche. merci d'avance
serge
"poy-poy" wrote:
Bonjour Serge,
En supposant que ton champs "toto"(du tcd PT1 de la feuille pouic) est un champs de colonne tu fais une boucle dessus en lui disant que pour chaque objet dedans la propriété visible est vrai :
Sub show() Dim pti As PivotItem
For Each pti In Sheets("pouic").PivotTables("PT1").ColumnFields("toto").PivotItems pti.Visible = True Next pti
End Sub
Cordialement Benjamin
bonjour à tous, comment faire par macro pour qu'un TCD affiche toute les valeurs possible dans une de ces colonne?
merci d'avance
serge
poy-poy
Pas de souci, au plaisir !
je t'avoue que je cherche depuis pas ml de tps sur le net sans avoir trouver çà connaissant pourtant excelabo cathyastuce et autre. encore merci
"poy-poy" wrote:
Re bonjour serge, voici le code que tu peux trouver sur les sites excellabo, contexture... et sur le forum (vu qu'il a déjà était publié plusieurs fois) par une recherche...
Sub DeleteMissingItems() 'prevents unused items in PivotTable
'in Excel 2002 and later versions 'If unused items already exist, 'run this macro then refresh the table Dim pt As PivotTable Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets For Each pt In ws.PivotTables pt.PivotCache.MissingItemsLimit = xlMissingItemsNone Next pt Next ws
End Sub
Cordialement Benjamin
Merci mais en fait j'ai le problème suivant : le champ dans mon TCD comporte plusieurs valeurs car il est maj chaque jour, il y a certaines valeurs qui sont d'ailleurs erronées vu que les lignes n'existent plus. j'ai les valeurs suivantes : "9840C" "VSM" "TODF". le problème est que la valeur 9840C par exemple n'éxiste plus dans la source du TCD. Cependant ce TCD la propose tjrs car il la garde en mémoire. donc sais tu comment faire pour rafraichir cette liste de choix afin qu'il ne me propose plus de valeurs erronées et donc que ton code marche. merci d'avance
serge
"poy-poy" wrote:
Bonjour Serge,
En supposant que ton champs "toto"(du tcd PT1 de la feuille pouic) est un champs de colonne tu fais une boucle dessus en lui disant que pour chaque objet dedans la propriété visible est vrai :
Sub show() Dim pti As PivotItem
For Each pti In Sheets("pouic").PivotTables("PT1").ColumnFields("toto").PivotItems pti.Visible = True Next pti
End Sub
Cordialement Benjamin
bonjour à tous, comment faire par macro pour qu'un TCD affiche toute les valeurs possible dans une de ces colonne?
merci d'avance
serge
Pas de souci, au plaisir !
je t'avoue que je cherche depuis pas ml de tps sur le net sans avoir trouver
çà connaissant pourtant excelabo cathyastuce et autre.
encore merci
"poy-poy" wrote:
Re bonjour serge,
voici le code que tu peux trouver sur les sites excellabo, contexture... et
sur le forum (vu qu'il a déjà était publié plusieurs fois) par une
recherche...
Sub DeleteMissingItems()
'prevents unused items in PivotTable
'in Excel 2002 and later versions
'If unused items already exist,
'run this macro then refresh the table
Dim pt As PivotTable
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
Next pt
Next ws
End Sub
Cordialement
Benjamin
Merci mais en fait j'ai le problème suivant :
le champ dans mon TCD comporte plusieurs valeurs car il est maj chaque jour,
il y a certaines valeurs qui sont d'ailleurs erronées vu que les lignes
n'existent plus.
j'ai les valeurs suivantes : "9840C" "VSM" "TODF".
le problème est que la valeur 9840C par exemple n'éxiste plus dans la source
du TCD. Cependant ce TCD la propose tjrs car il la garde en mémoire. donc
sais tu comment faire pour rafraichir cette liste de choix afin qu'il ne me
propose plus de valeurs erronées et donc que ton code marche.
merci d'avance
serge
"poy-poy" wrote:
Bonjour Serge,
En supposant que ton champs "toto"(du tcd PT1 de la feuille pouic) est un
champs de colonne tu fais une boucle dessus en lui disant que pour chaque
objet dedans la propriété visible est vrai :
Sub show()
Dim pti As PivotItem
For Each pti In
Sheets("pouic").PivotTables("PT1").ColumnFields("toto").PivotItems
pti.Visible = True
Next pti
End Sub
Cordialement
Benjamin
bonjour à tous,
comment faire par macro pour qu'un TCD affiche toute les valeurs possible
dans une de ces colonne?
je t'avoue que je cherche depuis pas ml de tps sur le net sans avoir trouver çà connaissant pourtant excelabo cathyastuce et autre. encore merci
"poy-poy" wrote:
Re bonjour serge, voici le code que tu peux trouver sur les sites excellabo, contexture... et sur le forum (vu qu'il a déjà était publié plusieurs fois) par une recherche...
Sub DeleteMissingItems() 'prevents unused items in PivotTable
'in Excel 2002 and later versions 'If unused items already exist, 'run this macro then refresh the table Dim pt As PivotTable Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets For Each pt In ws.PivotTables pt.PivotCache.MissingItemsLimit = xlMissingItemsNone Next pt Next ws
End Sub
Cordialement Benjamin
Merci mais en fait j'ai le problème suivant : le champ dans mon TCD comporte plusieurs valeurs car il est maj chaque jour, il y a certaines valeurs qui sont d'ailleurs erronées vu que les lignes n'existent plus. j'ai les valeurs suivantes : "9840C" "VSM" "TODF". le problème est que la valeur 9840C par exemple n'éxiste plus dans la source du TCD. Cependant ce TCD la propose tjrs car il la garde en mémoire. donc sais tu comment faire pour rafraichir cette liste de choix afin qu'il ne me propose plus de valeurs erronées et donc que ton code marche. merci d'avance
serge
"poy-poy" wrote:
Bonjour Serge,
En supposant que ton champs "toto"(du tcd PT1 de la feuille pouic) est un champs de colonne tu fais une boucle dessus en lui disant que pour chaque objet dedans la propriété visible est vrai :
Sub show() Dim pti As PivotItem
For Each pti In Sheets("pouic").PivotTables("PT1").ColumnFields("toto").PivotItems pti.Visible = True Next pti
End Sub
Cordialement Benjamin
bonjour à tous, comment faire par macro pour qu'un TCD affiche toute les valeurs possible dans une de ces colonne?
