Bonsoir GillooZ
Bonsoir à tous
Dans un graph tu peux ajouter un titre par :
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "toto"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Excuse le "toto" mais j'aime bien
Puisque je t'entend dire que ce n'est pas assez ;-) tu peux ajouter des champs Texte avec l'icône "zone de texte" de la barre d'outil dessin. Après ces ajouts font partie intégrante du graph, cad que l'on peut le redimensionner, le déplacer,... les textes suivent. Le code peut être :
.....
.....
ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 8.25, 9#, 89.25 _
, 21.75).Select
Selection.Characters.Text = "titi"
.....
.....
.....
Cette fois ci c'est "titi" ;-)
Cordialement