Discussion :

[paf26]

Bonjour,

Je cherche à modifier la source d'un graphique (xlXYScatterLinesNoMarkers) (à la création du graphique) et je voudrais modifier les données sans connaitre le nom de la feuille dans laquelle il figure (feuille actuellement active).
j'ai essayé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim sh As String
sh = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name   'oui c'est la dernière feuille qui m'intéresse, et qui est activée précédement
ActiveChart.SeriesCollection(1).XValues = "=" & sh & "!$E$" & (7 + nValeurInit) & ":$E$" & (nbS + 7 + nValeurInit)

tout est bon sauf le "sh" dans le code.

Comment je peux faire?

Merci

J'oubliais, pour les variables nbS et nValeursInit c'est des valeurs pas importantes ici, vous pouvez mettre pour tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "Courbes positive originale"
ActiveChart.SeriesCollection(1).XValues = "=" & sh & "!$E$" & 7 & ":$E$" & 9:

[paf26]

Après 50000 essais j'ai trouvé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(sh).Range("E" & CStr(7 + nValeurInit) & ":E" & CStr(nbS + 7 + nValeurInit))