Bonjour Seb et Porcinet82,
Un essai de macro pour créer un graphique en Feuil1.
Le nom du graphique est 'Relevé de Températures'
les axes ont pour noms : 'Horaires' et 'Températures'
d'autres paramètres sont présents, à découvrir !
La plage des valeurs est :Worksheets('Feuil2').Range('B2:B' & Range('B65000').End(xlUp).Row).
Sub Graphique()
Dim L As Integer
Dim ch As ChartObject
Application.ScreenUpdating = False
With Worksheets('Feuil1')
'Création du nouveau graphique
Set ch = .ChartObjects.Add(250, 30, 450, 350)
ch.Chart.ChartWizard Source:=Worksheets('Feuil2').Range('B2:B' & Range('B65000').End(xlUp).Row), _
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
Les deux premiers arguments de la méthode Add permettent de régler la position du graphique.
Left et Top Argument de type Double obligatoire. Coordonnées initiales du nouvel objet (en points), par rapport au coin supérieur gauche de la cellule A1 d'une feuille de calcul.
Cordialement
Bernard