L'un ou l'une d'entre vous aurait-il l'extrême bonté de me donner ne
serait-ce qu'un tout début de piste pour balayer via VBA chacune des valeurs
d'un champ de page d'un graphique croisé dynamique.
Le but est d'imprimer chacun de ces graphiques et, que ce soit sur ce forum,
chez Misange, sur Google.groupe ou via l'enregistreur, je n'y suis pas
arrivé.
Merci à vous tou(te)s d'être là en cas de besoin.
P. BASTARD
=====================================
Pour me contacter, remplacez "Chez" par @ dans l'adresse
Une foule de conseils utiles sur le site de Misange :
http://www.excelabo.net
Au risque d'afficher mon incompétence face au regard du monde - j'ai copié-collé le code que tu as bien voulu m'adresser, et ai toujours ce message d'erreur ici : "With ActiveSheet.PivotTables("Graphe Résultat par code").PivotFields("Moyen")" : "Erreur 438, propriété ou méthode non gérée par cet objet". 'Moyen' est bien la liste des champs que je veux balayer, 'Graphe Résultat par code' est le nom exact de la feuille sur laquelle se trouve le graphique. 'TCD Résultat par code' est la feuille sur laquelle se trouve le TCD.
Une idée ?
Bien cordialement, P. Bastard ==================================== Pour me contacter, remplacez "Chez" par @ dans l'adresse
Une foule de conseils utiles sur le site de Misange : http://www.excelabo.net
Lu ton mess précédent pour faire afficher tous les items sauf "B" En supposant que ton champ de page "Moyen" affiche les items en F1 (à adapter)
Sub zz_TCD() With ActiveSheet.PivotTables("Graphe Résultat par code").PivotFields("Moyen")
Dim monPivIt As Object On Error Resume Next For Each monPivIt In .PivotItems monPivIt.Visible = True Next For Each monPivIt In .PivotItems If monPivIt.Name = "B" Then monPivIt.Visible = False Else: monPivIt.Visible = True [F1] = monPivIt.Name 'IMPRESSION End If Next End With End Sub
AV
Bonsoir Alain, c'est encore moi.
8-(((
Au risque d'afficher mon incompétence face au regard du monde -
j'ai copié-collé le code que tu as bien voulu m'adresser, et ai toujours ce
message d'erreur ici :
"With ActiveSheet.PivotTables("Graphe Résultat par
code").PivotFields("Moyen")" :
"Erreur 438, propriété ou méthode non gérée par cet objet".
'Moyen' est bien la liste des champs que je veux balayer,
'Graphe Résultat par code' est le nom exact de la feuille sur laquelle se
trouve le graphique.
'TCD Résultat par code' est la feuille sur laquelle se trouve le TCD.
Une idée ?
Bien cordialement,
P. Bastard
==================================== Pour me contacter, remplacez "Chez" par @ dans l'adresse
Une foule de conseils utiles sur le site de Misange :
http://www.excelabo.net
Lu ton mess précédent pour faire afficher tous les items sauf "B"
En supposant que ton champ de page "Moyen" affiche les items en F1 (à
adapter)
Sub zz_TCD()
With ActiveSheet.PivotTables("Graphe Résultat par
code").PivotFields("Moyen")
Dim monPivIt As Object
On Error Resume Next
For Each monPivIt In .PivotItems
monPivIt.Visible = True
Next
For Each monPivIt In .PivotItems
If monPivIt.Name = "B" Then
monPivIt.Visible = False
Else: monPivIt.Visible = True
[F1] = monPivIt.Name
'IMPRESSION
End If
Next
End With
End Sub
Au risque d'afficher mon incompétence face au regard du monde - j'ai copié-collé le code que tu as bien voulu m'adresser, et ai toujours ce message d'erreur ici : "With ActiveSheet.PivotTables("Graphe Résultat par code").PivotFields("Moyen")" : "Erreur 438, propriété ou méthode non gérée par cet objet". 'Moyen' est bien la liste des champs que je veux balayer, 'Graphe Résultat par code' est le nom exact de la feuille sur laquelle se trouve le graphique. 'TCD Résultat par code' est la feuille sur laquelle se trouve le TCD.
Une idée ?
Bien cordialement, P. Bastard ==================================== Pour me contacter, remplacez "Chez" par @ dans l'adresse
Une foule de conseils utiles sur le site de Misange : http://www.excelabo.net
Lu ton mess précédent pour faire afficher tous les items sauf "B" En supposant que ton champ de page "Moyen" affiche les items en F1 (à adapter)
Sub zz_TCD() With ActiveSheet.PivotTables("Graphe Résultat par code").PivotFields("Moyen")
Dim monPivIt As Object On Error Resume Next For Each monPivIt In .PivotItems monPivIt.Visible = True Next For Each monPivIt In .PivotItems If monPivIt.Name = "B" Then monPivIt.Visible = False Else: monPivIt.Visible = True [F1] = monPivIt.Name 'IMPRESSION End If Next End With End Sub
AV
AV
Re,
Dans le code fourni, "Graphe Résultat par code" est le nom du TCD (à adapter) et non celui d'une quelconque feuille ! Si tu veux un exemple, signale en bal perso ...
AV
Re,
Dans le code fourni, "Graphe Résultat par code" est le nom du TCD (à adapter) et
non celui d'une quelconque feuille !
Si tu veux un exemple, signale en bal perso ...
Dans le code fourni, "Graphe Résultat par code" est le nom du TCD (à adapter) et non celui d'une quelconque feuille ! Si tu veux un exemple, signale en bal perso ...
AV
Patrick Bastard
Bonjour, Alain.
Avec grand plaisir. Cela m'aidera à comprendre.
Encore merci -- ==================================== Pour me contacter, remplacez "Chez" par @ dans l'adresse : bastardp"Chez"free.fr
Une foule de conseils utiles sur le site de Misange : http://www.excelabo.net
"AV" a écrit dans le message de news:%
Re,
Dans le code fourni, "Graphe Résultat par code" est le nom du TCD (à adapter) et
non celui d'une quelconque feuille ! Si tu veux un exemple, signale en bal perso ...
AV
Bonjour, Alain.
Avec grand plaisir. Cela m'aidera à comprendre.
Encore merci
--
==================================== Pour me contacter, remplacez "Chez" par @ dans l'adresse :
bastardp"Chez"free.fr
Une foule de conseils utiles sur le site de Misange :
http://www.excelabo.net
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:%23Oly4N8tDHA.2260@TK2MSFTNGP09.phx.gbl...
Re,
Dans le code fourni, "Graphe Résultat par code" est le nom du TCD (à
adapter) et
non celui d'une quelconque feuille !
Si tu veux un exemple, signale en bal perso ...
Encore merci -- ==================================== Pour me contacter, remplacez "Chez" par @ dans l'adresse : bastardp"Chez"free.fr
Une foule de conseils utiles sur le site de Misange : http://www.excelabo.net
"AV" a écrit dans le message de news:%
Re,
Dans le code fourni, "Graphe Résultat par code" est le nom du TCD (à adapter) et
non celui d'une quelconque feuille ! Si tu veux un exemple, signale en bal perso ...
AV
Patrick Bastard
Merci, Alain.
Cela fonctionne parfaitement avec le TCD. Mon code d'erreur apparaît lorsque je veux faire défiler non pas les TCD, mais les graphiques correspondants (sur une feuille à part). Si PivotTables est la classe des TCD, sais-tu comment s'appelle la classe des graphiques croisés dynamiques?
Bien cordialement,
P. Bastard ==================================== Pour me contacter, remplacez "Chez" par @ dans l'adresse
Une foule de conseils utiles sur le site de Misange : http://www.excelabo.net
"AV" a écrit dans le message de news:%
Re,
Dans le code fourni, "Graphe Résultat par code" est le nom du TCD (à adapter) et
non celui d'une quelconque feuille ! Si tu veux un exemple, signale en bal perso ...
AV
Merci, Alain.
Cela fonctionne parfaitement avec le TCD.
Mon code d'erreur apparaît lorsque je veux faire défiler non pas les TCD,
mais les graphiques correspondants (sur une feuille à part).
Si PivotTables est la classe des TCD, sais-tu comment s'appelle la classe
des graphiques croisés dynamiques?
Bien cordialement,
P. Bastard
==================================== Pour me contacter, remplacez "Chez" par @ dans l'adresse
Une foule de conseils utiles sur le site de Misange :
http://www.excelabo.net
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:%23Oly4N8tDHA.2260@TK2MSFTNGP09.phx.gbl...
Re,
Dans le code fourni, "Graphe Résultat par code" est le nom du TCD (à
adapter) et
non celui d'une quelconque feuille !
Si tu veux un exemple, signale en bal perso ...
Cela fonctionne parfaitement avec le TCD. Mon code d'erreur apparaît lorsque je veux faire défiler non pas les TCD, mais les graphiques correspondants (sur une feuille à part). Si PivotTables est la classe des TCD, sais-tu comment s'appelle la classe des graphiques croisés dynamiques?
Bien cordialement,
P. Bastard ==================================== Pour me contacter, remplacez "Chez" par @ dans l'adresse
Une foule de conseils utiles sur le site de Misange : http://www.excelabo.net
"AV" a écrit dans le message de news:%
Re,
Dans le code fourni, "Graphe Résultat par code" est le nom du TCD (à adapter) et
non celui d'une quelconque feuille ! Si tu veux un exemple, signale en bal perso ...
