updater un graphique

[Alcab]

Bonjour,
Je vous explique brievement mon problème et si vous passez dans le coin et que vous avez une solution ou un debut de solution je vous serez entierement reconnaissant de me la donner. Voila mon but est de pouvoir modifier un graphe en fonction des paramètres mis dans un tableau excel, suivant le nombre de paramètres rentrés je dois afficher sur mon graphe avec plus ou moins de colonnes. (A noter que le graph est bien initialisé avant toute opération). voila l'idée que j'ai:

Sub T(nom)

Dim i As Variant
i = (nom-1) *7

Sheets("General Metrics" ).Select
ActiveSheet.ChartObjects("Graphique 5" ).Activate

ActiveChart.SeriesCollection(1).XValues = "=(" & ActiveChart.SeriesCollection(1).XValues & ",General Metrics'!R" & i & "C1)" 😱
ActiveChart.SeriesCollection(1).Values = "=(" & ActiveChart.SeriesCollection(1).Values & ",'General Metrics'!R" & (1 + i) & "C6)"😱

ActiveChart.SeriesCollection(2).XValues = "=(" & ActiveChart.SeriesCollection(2).XValues & ",General Metrics'!R" & i & "C1)"
ActiveChart.SeriesCollection(2).Values = "=(" & ActiveChart.SeriesCollection(2).Values & ",'General Metrics'!R" & (1 + i) & "C9)"

ActiveChart.SeriesCollection(3).XValues = "=(" & ActiveChart.SeriesCollection(3).XValues & ",General Metrics'!R" & i & "C1)"
ActiveChart.SeriesCollection(3).Values = "=(" & ActiveChart.SeriesCollection(3).Values & ",'General Metrics'!R" & (1 + i) & "C12)"

End Sub


Malheureusement j'ai un probleme (incompatibilité du type) au niveau des lignes les plus importantes:
ActiveChart.SeriesCollection(1).XValues = "=(" & ActiveChart.SeriesCollection(1).XValues & ",General Metrics'!R" & i & "C1)"

Ma question est la suivante: Ya t'il de la suite dans mon code? si oui quel est ce probleme de type que je n'arrive pas a résoudre?

Merci d'avance 🙂

 

[Catrice]

Re : updater un graphique

Bonjour,

Ci-joint une interpretation avec des noms variables.

 

[Catrice]

Re : updater un graphique

Bonsoir,

Ci-joint une solution Macro

 

[Alcab]

Re : updater un graphique

Merci bcp Catrice ca marche impecable!!!! je t'en suis vraiment reconnaissant.🙂

@ une prochaine fois