Discussion :

[oscar.cesar]

bonjour à tous

Dans le code ci-dessous, j'ai cree mon graphique.

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
26
27
28
29
30
 
Sub graphique()
' creationGraphiqueParTableau()
    Dim i As Byte
 
 
    'Sheets("liste").active
    Sheets("liste").ChartObjects.Delete 
 
 
    'Création graphique
    Charts.Add
    'Définit la localisation du graphique:
    'dans la feuille de calcul Feuil1 pour cet exemple
    ActiveChart.Location Where:=xlLocationAsObject, Name:="liste"
 
 
 
    'Ajoute une série dans le graphique
    With ActiveChart
        .SeriesCollection.NewSeries
        .SeriesCollection(1).Values = TableaugraphiqueY() 'Ordonnées
 
 
        'Définit le type (Courbe)
        .ChartType = xlLine
    ActiveChart.SeriesCollection(1).Name = "nomdelaserie" 'nom du graphique
 
    End With
End Sub

Je souhaiterai mettre un nom sur l'axe des abcisses ex: ("Gain en €")
idem pour l'axe des ordonnees ex: ("nombre de jeux")

Cela est il possible ?

merci

[LeForestier]

Bonjour,
Et l'éditeur de macro... Y sert à quoi ??
A+

[oscar.cesar]

Comprends pas!!!

[LeForestier]

Tu ne connait pas l'éditeur de macros ?
Outils > Macro > Nouvelle Macro.
Tu fait tout ce que tu a à faire en manuel, notamment les titres de ton graph, quand tout est comme tu veux... Outils > macro > arrèter la macro.
Ensuite tu ouvre l'EDI et ta macro se trouve dans un module avec toute la synthaxe.
A adapter bien évidemment.
A+

[oscar.cesar]

ok
jétais parti sur l'editeur vba.......

bon
j'ai le code suivant issue de la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 
    'ActiveChart.PlotArea.Select
    'With ActiveChart
     '   .Axes(xlCategory, xlPrimary).HasTitle = True
      '  .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "nb de courses"
       ' .Axes(xlValue, xlPrimary).HasTitle = True
        '.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "En euros"
    'End With
'End Sub

en adaptant
j'ai taper le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
ActiveChart.SeriesCollection(1).AxisTitle.Characters.Text = "nb de courses"

mais j'ai l'erreur 438 " Propriete ou methode non geree par l'objet "
editeur s'arretant sur cette ligne

[oscar.cesar]

bonsoir
probleme resolu

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
 
 
 
    'Ajoute une série dans le graphique
    With ActiveChart
        .SeriesCollection.NewSeries
 
        .SeriesCollection(1).Values = TableaugraphiqueY() 'Ordonnées
 
 
        'Définit le type (Courbe)
        .ChartType = xlLine
    ActiveChart.SeriesCollection(1).Name = "nomdelaserie" 'nom du graphique
 
    .Axes(xlValue, xlPrimary).HasTitle = True
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "En euros" 'nom de l'axe de Y
 
    .Axes(xlCategory, xlPrimary).HasTitle = True
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "nb de courses" 'nom de l'axe des X
 
 
    End With