XL 2013 Intervertir Ligne et colonne sur Graphique en VBA

[pmfontaine]

Bonjour,
Sur le fichier joint le graphique de la feuille "GRAPHIQUEOBTENU" à une zone variable en ligne et colonne, je mets donc à jour la source du graphique avec la macro

Sub zone()
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SetSourceData Source:=Range("GLOBAL")
End Sub

Jusque la pas de problème, mais par défaut il me remet a chaque fois les sites en abscisse alors que je voudrais les dates comme sur la feuille "GRAPHIQUESOUHAITE"
J'ai essayer d'enregistrer la macro pour intervertir les axes, mais ça ne marche pas et mes recherches sur le Net non pas abouties.
Est-ce que vous auriez une solution ?
Merci d'avance pour votre aide
Patrick

 

[pmfontaine]

Bonsoir,
Personne a une idée ?

 

[NLEP]

Bonjour,
Je suis tombé sur ce forum par ce que je viens d'avoir le même problème
j'ai cherché plus de détails sur .SetSourceData et ai trouvé un paramètre facultatif, "PlotBy"
PlotBy:=xlColums (par défault) ou PlotBy:=xlRows
dans ton cas ça donne

ActiveChart.SetSourceData Source:=Range("GLOBAL"), PlotBy:=xlRows

(solution trouvé sur cette page)

Chart.SetSourceData, méthode (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

Petite réponse 3 ans plus tard. Peut aider d'autres personnes