Edit AlainTech: Le message original était de Thomas69 et la réponse de ferronimus.
Suite à une fausse manoeuvre les 2 messages ont été fusionnés.
Voila j'ai réaliser ce code grace a l'enregistreur
mais je voudrais y apporter une modification
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 Sub graph() ' ' graph Macro ' Macro enregistrée le 06/08/2007 par GS ' ' Touche de raccourci du clavier: Ctrl+a ' Charts.Add ActiveChart.ChartType = xlXYScatterSmooth ActiveChart.SetSourceData Source:=Sheets("Production").Range("A1:K1045"), _ PlotBy:=xlColumns ActiveChart.SeriesCollection(2).Delete ActiveChart.SeriesCollection(1).Name = "=Production!R2C8:R2C8" ActiveChart.Location Where:=xlLocationAsNewSheet With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = _ "Phase 11.1 - CHARGEMENT MANUEL - EMPATAGE CAF 2534" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "LOTS" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Valeurs" End With ActiveChart.HasLegend = False End Sub
le rouge est le titre de mon graphe
mais je voudrais faire apparaitre en titre le nom de l'action en cours donc si je change le nom de l'action sur mon graphe suivant le nom doit changer
et la ce n'est pas le cas et je ne vois pas comment faire
un ptite idée svp
ave une inputbox pour savoir quelle est le nom de l'action en cour
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Sub graph() dim graph_name as string graph_name=inputbox("non de l'action en cour??") Charts.Add ActiveChart.ChartType = xlXYScatterSmooth ActiveChart.SetSourceData Source:=Sheets("Production").Range("A1:K1045"), _ PlotBy:=xlColumns ActiveChart.SeriesCollection(2).Delete ActiveChart.SeriesCollection(1).Name = "=Production!R2C8:R2C8" ActiveChart.Location Where:=xlLocationAsNewSheet With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = graph_name .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "LOTS" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Valeurs" End With ActiveChart.HasLegend = False End Sub
Partager