Discussion :

[koeuf]

Bonjour,

je bute sur un problème sur la création d'un graphique. j'ai créé un graphique à partir d'une plage dynamique, j'ai adapté la taille de ce graphique au nombre d'éléments à y faire figurer. je souhaiterais à présent ajouter un titre et virer la légende qui ne me sert à rien. j'ai parcouru les topics sur ce sujet, qui m'ont bien aidé à créer le graphique, mais impossible d'aller plus loin sur les éléments titre et légende. j'ai essayé une première méthode basée sur le nom donné à mon graphique (graphe), mais la deuxième ligne (ligne 12) bloque car ma commande chartTitle.Text semble ne pas être la bonne.
J'ai trouvé une deuxième approche en dessous, basée sur l'activation de mon graphique, mais la première ligne (ligne 16) bloque car l'élément graphe est introuvable (j'ai essayé avec graphe et "graphe"). J'ai l'impression que le nom de graphe que j'ai pensé donner à mon graphique s'applique à autre chose et je ne vois pas trop où j'ai fait une erreur.
Merci de votre aide en la matière

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
 
Set plage = Union(Sheets("travail").Range(Cells(5, 3), Cells(5, i - 1)), Sheets("travail").Range(Cells(1, 3), Cells(1, i - 1)))
 
titre = "test"
 
Dim graphe As ChartObject
 
Set graphe = Sheets("commandes").ChartObjects.Add(Left:=10, Width:=(i / 6) * 200, Top:=220, Height:=200)
graphe.Chart.SetSourceData Source:=plage
 
'graphe.Chart.HasTitle = True
'graphe.ChartTitle.Text = titre
'graphe.Legend.Select
'Selection.Delete
 
ActiveSheet.ChartObjects(graphe).Activate
    ActiveChart.SetElement (msoElementChartTitleAboveChart)
    ActiveChart.ChartTitle.Text = titre
    ActiveChart.Legend.Select
    Selection.Delete

[ARTURO83]

Bonjour,

Pour ajouter un titre au graphique, la syntaxe correcte est:

Code :

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

ActiveChart.ChartTitle.Characters.Text = titre

Cdlt

[koeuf]

Bonjour,

Pour ajouter un titre au graphique, la syntaxe correcte est:

Code :

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

ActiveChart.ChartTitle.Characters.Text = titre

Cdlt

Merci, mais j'ai toujours les mêmes problèmes. Si j'essaie avec ma première stratégie,

Code :

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

1
2
graphe.Chart.HasTitle = True
graphe.ChartTitle.Characters.Text = titre

il m'indique une méthode ou propriété non gérée

si j'essaie avec la deuxième,

Code :

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

1
2
3
ActiveSheet.ChartObjects(graphe).Activate
ActiveChart.SetElement (msoElementChartTitleAboveChart)
ActiveChart.ChartTitle.Characters.Text = titre

il m'indique que l’élément portant ce nom est introuvable

[ARTURO83]

Bonsoir,

"Graphe" est-ce le nom du graphique ou bien un nom de variable attribué à ce graphique?

Vous ne montrez qu'un bout de code, donc on manque de visibilité pour en dire plus.

[koeuf]

j'avais mis le code plus haut. dans mon esprit graphe était le nom du graphique, mais je dois me tromper au vu des messages d'erreur. par contre, je ne sais pas comment se nomme ce graphique, ni comment agir dessus

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
 
Set plage = Union(Sheets("travail").Range(Cells(5, 3), Cells(5, i - 1)), Sheets("travail").Range(Cells(1, 3), Cells(1, i - 1)))
 
titre = "test"
 
Dim graphe As ChartObject
 
Set graphe = Sheets("commandes").ChartObjects.Add(Left:=10, Width:=(i / 6) * 200, Top:=220, Height:=200)
graphe.Chart.SetSourceData Source:=plage
 
'graphe.Chart.HasTitle = True
'graphe.ChartTitle.Text = titre
'graphe.Legend.Select
'Selection.Delete
 
ActiveSheet.ChartObjects(graphe).Activate
    ActiveChart.SetElement (msoElementChartTitleAboveChart)
    ActiveChart.ChartTitle.Text = titre
    ActiveChart.Legend.Select
    Selection.Delete

[koeuf]

je mets le code complet de la macro

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
31
32
33
34
35
Sub graphique()
 
Dim titre As String
Dim plage As Range
Dim i As Integer
 
 i = 3
 Do While Sheets("travail").Cells(1, i) <> ""
 i = i + 1
 Loop
 
Set plage = Union(Sheets("travail").Range(Cells(5, 3), Cells(5, i - 1)), Sheets("travail").Range(Cells(1, 3), Cells(1, i - 1)))
 
titre = "à faire"
titre2 = "essai"
 
Dim graphe As ChartObject
 
Set graphe = Sheets("commandes").ChartObjects.Add(Left:=10, Width:=(i / 6) * 200, Top:=220, Height:=200)
graphe.Chart.SetSourceData Source:=plage
 
 
 
graphe.Chart.HasTitle = True
graphe.ChartTitle.Characters.Text = titre
'graphe.Legend.Select
'Selection.Delete
 
'ActiveSheet.ChartObjects(graphe).Activate
    'ActiveChart.SetElement (msoElementChartTitleAboveChart)
   ' ActiveChart.ChartTitle.Characters.Text = titre
    'ActiveChart.Legend.Select
    'Selection.Delete
 
End Sub