Inverser les données dans un graph sur un axe

Bonjour,

j'ai un tableau assez simple avec lequel je sors un graph

mon soucis est que je veux absolument inverser 2022 et 2021 dans l'axe primaire

pour l'avoir comme ceci :

mais je ne trouve pas la fonction VBA pour le faire automatiquement en macro...

en manuel c'est ceci :

Merci de votre aide

Bonjour,

Je ne suis pas du tout un spécialiste du VBA et encore moins lorsque ça concerne les graphiques.

Peut-être une solution de dépannage comme sur le fichier joint.

Cordialement

Tout compte fait

Worksheets("Feuil1").ChartObjects(1).Chart.SeriesCollection(1).PlotOrder = 2

devrait suffire.

A adapter bien sur a ton fichier.

Re,

Un fichier exemple

Cordialement

Merci pour ces reponses, mais ce n'est pas suffisant.

j'ai mis ce code :

    If (Val(Left(ActiveChart.ChartGroups(1).SeriesCollection(1).Name, 4)) < Val(Left(ActiveChart.ChartGroups(1).SeriesCollection(2).Name, 4))) _
        And ActiveChart.ChartGroups(1).SeriesCollection(1).PlotOrder = 1 Then
        ActiveChart.ChartGroups(1).SeriesCollection(1).PlotOrder = 2
    End If

mais je n'arrive pas a comprendre pourquoi dans certains cas cela fonctionne, et d'autres non ...

les 2 series s'appellent : "2021 DATA" & "2022 DATA" , donc il compare 2021 vs 2022, normalement 2021 < 2022 = True ! mais de temps en temps il me met 2022 en 1er, et dans d'autres cas, c'est 2021 qui est en 1er ...

Bonjour Abaroux,

mais de temps en temps il me met 2022 en 1er, et dans d'autres cas, c'est 2021 qui est en 1er ...

C'est à dire que si tu exécutes ton code plusieurs fois, le comportement change ?

Et cela sans changé aucune donnée ?

Est ce que c'est lors de la création d'un graphique par macro que ton code joint est exécuté ?

Chez moi ton code marche à tous les coups.

Pour créer un disfonctionnement, il faut, par exemple, que je mette un espace devant "2022".

Cordialement