Mise à jour rapide légende de graphique

[Cline]

Bonjour je souhaiterai mettre a jour l'intégralité de mes graphiques pour que la légende 2012-2013 passe en 2013-2014. Je vous joins la construction de mon tableau. Dans mon fichier de travail j'ai une 50ène d'onglet constitués de plusieurs graphiques par onglet.

 

[job75]

Re : Mise à jour rapide légende de graphique

Bonsoir Cline,

2 macros possibles :

Sub NomSérie1()
Dim w As Worksheet, ch As ChartObject
On Error Resume Next 's'il n'y a pas 2 séries
For Each w In Worksheets
  For Each ch In w.ChartObjects
    ch.Chart.SeriesCollection(1).Name = 2013
    ch.Chart.SeriesCollection(2).Name = 2014
  Next
Next
End Sub

Sub NomSérie2()
Dim w As Worksheet, ch As ChartObject, s As Object
For Each w In Worksheets
  For Each ch In w.ChartObjects
    For Each s In ch.Chart.SeriesCollection
      If IsNumeric(s.Name) Then s.Name = s.Name + 1
    Next
  Next
Next
End Sub

Perso je préfère la seconde.

A+

 

[chris]

Re : Mise à jour rapide légende de graphique

Bonjour
Coucou Job75

En faisant pointer, dans les graphiques, le nom de la série sur les cellules A2 et A11 de l'onglet matrice, le changement de ces cellules, se répercute sur le graphiques.

 

[job75]

Re : Mise à jour rapide légende de graphique

Bonjour Cline, bonjour chris, le forum,

Oui, on peut créer les 2 liens en exécutant une fois pour toutes :

Sub NomSérie3()
Dim w As Worksheet, ch As ChartObject
On Error Resume Next 's'il n'y a pas 2 séries
For Each w In Worksheets
  For Each ch In w.ChartObjects
    ch.Chart.SeriesCollection(1).Name = "=matrice!$A$2"
    ch.Chart.SeriesCollection(2).Name = "=matrice!$A$11"
  Next
Next
End Sub

A+