Graph le nomer?

[Kladorrs]

Bonsoir à tous,

voila, je crée un graph à l'aide d'une macro via
Charts.Add

Je voulai savoir s'il était possible de nomer le graph de facon à pouvoir l'effacer avant la rééxecution de la macro.

Pour le mom il se nomme graphique1, 2 ...


Je vous remercie d'avance, et a la prochaine

 

[michel]

Re: Graph le nommer?

bonsoir Kladorrs

pour renommer un graphique qui vient d'etre créé , tu peux essayer

Sub creerEtRenommerGraphique()
Dim NbGraph As Byte

Charts.Add ' ajout graphique
With ActiveChart
.ChartType = xlLine
.SetSourceData Source:=Sheets("Feuil1").Range("A1:B10"), PlotBy:=xlColumns
.Location Where:=xlLocationAsObject, Name:="Feuil1"
End With

NbGraph = ActiveSheet.ChartObjects.Count 'compte le nombre de graphiques dans la feuille
'le nouveau graphique correspond à l'index le plus élevé
ActiveSheet.ChartObjects(NbGraph).Name = "Le nom du Graphique"

End Sub


bonne soirée
[http://quigif.free.fr/pweb10.GIF]