Ce que j'ai :
1 classeur :
sur 1 feuille, j'ai mon graph et mes options a selectionner.
sur une autre feuille j'ai mes données, le nom de ma serie.
Mon objectif :
lorsque je clic sur un bouton de ma feuille, mon graphique se mets a jour, verifie les options selectionnées: si elles sont selectionnées affiche la serie (le graphique) associée, sinon n'affiche pas la série sur le graphique.
Je veux juste ajouter des series ou non (je veux garder mon graph)
Mon probleme :
N'ayant pas trouver beaucoup d'info sur la gestion des graph avec VBA, j'ai enregistre une macro et analyse le code.
Le probleme est dans la definition du graph, la macro appel le graph par un nom qui semble changer à chaque ouverture. Et impossible de trouver le nom du graph dans les proporiéte du graph.
Quelqu'un a déjà travailler avec des graphs et VBA? Merci pour vos reponses.
Mon Code
Charts.Add 'ca me plait pas, car ca ajoute forcement un nouveau graphe n'importe ou.
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Indicator Board").Range("X45")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Planning_projet!R31C7:R31C84"
ActiveChart.SeriesCollection(1).Values = "=Planning_projet!R126C6:R126C84"
ActiveChart.SeriesCollection(1).Name = "=Planning_projet!R126C4"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Indicator Board"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Project"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveSheet.Shapes("Graphique 335").IncrementLeft -183.75
ActiveSheet.Shapes("Graphique 335").IncrementTop 79.5
ActiveSheet.Shapes("Graphique 335").ScaleHeight 0.88, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.Shapes("Graphique 335").ScaleWidth 0.96, msoFalse, _
msoScaleFromTopLeft
1 classeur :
sur 1 feuille, j'ai mon graph et mes options a selectionner.
sur une autre feuille j'ai mes données, le nom de ma serie.
Mon objectif :
lorsque je clic sur un bouton de ma feuille, mon graphique se mets a jour, verifie les options selectionnées: si elles sont selectionnées affiche la serie (le graphique) associée, sinon n'affiche pas la série sur le graphique.
Je veux juste ajouter des series ou non (je veux garder mon graph)
Mon probleme :
N'ayant pas trouver beaucoup d'info sur la gestion des graph avec VBA, j'ai enregistre une macro et analyse le code.
Le probleme est dans la definition du graph, la macro appel le graph par un nom qui semble changer à chaque ouverture. Et impossible de trouver le nom du graph dans les proporiéte du graph.
Quelqu'un a déjà travailler avec des graphs et VBA? Merci pour vos reponses.
Mon Code
Charts.Add 'ca me plait pas, car ca ajoute forcement un nouveau graphe n'importe ou.
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Indicator Board").Range("X45")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Planning_projet!R31C7:R31C84"
ActiveChart.SeriesCollection(1).Values = "=Planning_projet!R126C6:R126C84"
ActiveChart.SeriesCollection(1).Name = "=Planning_projet!R126C4"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Indicator Board"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Project"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveSheet.Shapes("Graphique 335").IncrementLeft -183.75
ActiveSheet.Shapes("Graphique 335").IncrementTop 79.5
ActiveSheet.Shapes("Graphique 335").ScaleHeight 0.88, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.Shapes("Graphique 335").ScaleWidth 0.96, msoFalse, _
msoScaleFromTopLeft