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