création d'un titre de graphique

Version imprimable

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:

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

06/02/2023, 14h10
ARTURO83

Bonjour,

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

Code:

ActiveChart.ChartTitle.Characters.Text = titre

Cdlt
06/02/2023, 18h56
koeuf
Citation:

Envoyé par ARTURO83

Bonjour,

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

Code:

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:

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:

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
06/02/2023, 19h00
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.

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:

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

je mets le code complet de la macro

Code:

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

07/02/2023, 06h18
Philippe Tulliez

Bonjour,
Remplacer la ligne 25 (graphe.ChartTitle.Characters.Text = titre)

Par

Code:

graphe.Chart.ChartTitle.Text = titre
07/02/2023, 11h02
koeuf

Citation:

Envoyé par Philippe Tulliez

Bonjour,
Remplacer la ligne 25 (graphe.ChartTitle.Characters.Text = titre)

Par

Code:

graphe.Chart.ChartTitle.Text = titre

nickel, ça fonctionne. j'ai adapté aussi pour la légende. Si je comprends bien, l'ajout de ce .chart permet de définir le type d'objet.

un grand merci !