fixer un emplacement d'un graphique dans une feuil

[jac]

j'ai une macro qui me crée un graphique, je voudrai mettre celui ci toujours au même endroit dans ma feuille.
Quand j'enregistre ma macro, excel donne un nom au graphique si bien que lors d'une nouvelle exécution de cette macro de positionnement que j'ai crée ça ne marche plus...
Merci

 

[CBernardT]

Bonjour Jac,

la macro suivante donne tous les éléments pour créer un graphique.

Sub Graphique()
Dim L As Integer
Dim ch As ChartObject
Application.ScreenUpdating = False
With Worksheets('Feuil1')
L = Range('B65000').End(xlUp).Row
'Création du nouveau graphique
Set ch = .ChartObjects.Add(250, 30, 450, 350)
ch.Chart.ChartWizard Source:=.Range('B2:B' & L), _
gallery:=xlLine, Title:='RELEVE TEMPERATURES'
.ChartObjects(1).Select
With .ChartObjects(1).Chart
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = 'HORAIRES'
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = 'TEMPERATURES'
.Legend.Delete
End With
Range('A1').Select
End With
Application.ScreenUpdating = True
End Sub

Il suffit de modifier les éléments de placement pour le déplacer à la création.

Cordialement

Bernard

 

[jac]

merci Bernard, j'essaie
Salut à toi
jac