Graphique croisé dynamique - axe secondaire qui disparait

Bonjour,

Je suis nouveau sur le forum et je m'y suis inscrit car j'y trouve souvent des solutions de déblocage. Donc merci à toutes et tous !

Voilà ce qui m'amène car je ne trouve aucune solution et je sèche complètement :

J'ai un graphique croisé dynamique issu d'un TCD pour lequel je souhaite ajouter un axe secondaire que pour une série de données (ici pluviométrie). Toutes les autres séries sont des déplacements. Ça marche très bien sur le fichier que je joins à ce post où toutes les autres séries sont actives. Le but final est de pouvoir ne sélectionner que 1,2,3,... séries de déplacement tout en gardant ma courbe pluviométrie et l'axe secondaire avec l'affichage initial (courbe en pointillée bleus).

Et c'est là qu'est le problème : dés que je modifie la sélection de ma liste de champs, mon axe secondaire disparait et la courbe associée se retrouve à perpèt !!!

Si vous avez une solution je suis preneur.

Merci d'avance

Pas une petite idée ?

Bonjour,

Dans le module standard :

Sub MajSeriePluviometrie()

Dim ChartPluvio As Chart

   Set ChartPluvio = Sheets("Graphique").ChartObjects("Graphique 4").Chart
   ChartPluvio.FullSeriesCollection("Somme de pluviométrie").AxisGroup = 2
   Set ChartPluvio = Nothing

End Sub

Dans le module de l'onglet TCD :

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

       MajSeriePluviometrie

End Sub

Bonjour et merci pour la réponse. J'ai tenté votre manip mais je ne suis pas spécialiste des macros et ça ne fonctionne pas... Pourriez-vous détaillé un peu plus ... Merci d'avance

Vous avez oublié de créer un module standard :

Ouah génial merci beaucoup, faudrait vraiment que je me forme aux macros !!!

J"abuse mais que faudrait-il faire pour que la mise en forme de l'axe secondaire et son titre restent en place ?

Quelle forme doit et quel titre doit-il avoir ? Mettre un fichier ou un vidage d'écran.

Je souhaiterais qu'il reste comme ça ! Mais si c'est trop long, ne vous embêtez pas ... C'est déjà super ce que vous avez fait pour moi !!!

Remplacez la macro existante par celle-ci :

Sub MajSeriePluviometrie()

Dim ChartPluvio As Chart

   With Sheets("Graphique")
        .Activate
        Set ChartPluvio = .ChartObjects("Graphique 4").Chart
        With ChartPluvio
             .FullSeriesCollection("Somme de pluviométrie").AxisGroup = 2
             .SetElement (msoElementSecondaryValueAxisTitleAdjacentToAxis)
             .Axes(xlValue, xlSecondary).Select
             Selection.AxisTitle.Caption = "Pluviométrie trimestrielle moyenne (mm)"
             Selection.TickLabels.NumberFormat = "0"
        End With
   End With
   Set ChartPluvio = Nothing

End Sub

Ouha nickel.... Merci beaucoup !!!

Dans la macro ça serait compliqué de remplacer la courbe pluviométrie par un histogramme ?

Il faut être plus précis et toujours donner un modèle ou a minima une capture d'écran de ce que tu veux faire.

Je souhaiterais en fait que ma courbe pluviometrie soit un histogramme.... pour faciliter la lecture...

Avec tout le boulot d'aide que vous avez fait pour m'aider avec les macros est-ce que tout est à refaire ?

Une fois dans le graphe, menu création en haut à droite / Modifier le type de graphique

Sélectionner Histogramme groupé. Nb : C'est pas terrible au niveau des couleurs.

Oui je l'ai fait ça mais c'est surtout la macro qui est pas contente quand je resélectionne les champs du GCD ;-) J'aurais dû préciser... mon problème vient surtout de la réaction de la macro lorsque je modifie ma courbe pluvio en histogamme

L'onglet est protégé, c'est normal ?

Désolé je fais 50 trucs en même temps ;-)

C'est cela qu'il faut ?

Exactement ;-)