Graphique référence des séries

[Michel]

Bonjour le forum

Je souhaite récupérez dans un nom la référence de la zone des graphiques pour les mettre de lignes en colonne.
Voici mon code:

Sub graph_ligne_vers_colonne()
nomf = ActiveSheet.Name
ngraph = Sheets(nomfeuil).ChartObjects.Count
For n = 1 To ngraph
ActiveSheet.ChartObjects(n).Activate
ActiveChart.ChartArea.Select

ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets(nomf).Range( _
'A2525,A169178'), PlotBy:=xlColumns
Next n
End Sub

Je souhaite placer nomzone à la place de _
'A2525,A169178'. Mais je ne connais pas la syntaxe et je ne l'ai pas touvé sur le forum et dans l'aide de VB.
Merci d'avance
Michel

 

[Pierre]

Michel , le forum

en déclarant Dim nomzone As Range
et en affectant par Set nomzone = ActiveSheet.Range('A2525,A169178')
tu pourra faire référence à cett plage de cellule en appellant son nom.

Hope this will help you.


Pierre

 

[Michel]

Merci pour ta réponse rapide.

Mais je ne veux pas déclarer la zone. Je souhaite qu'il touve automatiquement la zone des séries car je peux avoir plusieurs graphiques sur la feuille avec des références différentes comme le fait le reste de la macro.

Salutations
Michel