XL 2013 Intervertir Ligne et colonne sur Graphique en VBA

pmfontaine

XLDnaute Occasionnel
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
Code:
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
 

Pièces jointes

  • GraphiqueVBA.xlsm
    68 KB · Affichages: 19

NLEP

XLDnaute Nouveau
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
VB:
ActiveChart.SetSourceData Source:=Range("GLOBAL"), PlotBy:=xlRows

(solution trouvé sur cette page)
Petite réponse 3 ans plus tard. Peut aider d'autres personnes
 

Discussions similaires

Réponses
0
Affichages
83

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG