Sub ChartOngletAnalyse()
Dim MyChart As Chart
Dim DateDebut As Integer
Dim DateFin As Integer
Dim DataRange As Range
Dim PlusHaut As Range
Dim PlusBas As Range
DateDebut = Sheets(1).Cells(1, 3).Value
DateFin = Sheets(1).Cells(2, 3).Value
'les valeurs des lignes correspondants aux dates entrées en B1 et B2 sont en C1 et C2
Set DataRange = Sheets(2).Range(Sheets(2).Cells(DateDebut, 1), Sheets(2).Cells(DateFin, 5))
Set MyChart = Sheets(1).ChartObjects.Add(0, 660, 760, 390).Chart
MyChart.SetSourceData Source:=DataRange
MyChart.ChartType = xlStockOHLC
With MyChart
.SetElement msoElementLegendNone
.SetElement msoElementPrimaryValueAxisTitleNone
.SetElement msoElementPrimaryCategoryAxisTitleNone
.Axes(xlPrimary).MinimumScale = Cells(1, 2)
.Axes(xlPrimary).MaximumScale = Cells(2, 2) + 7
End With
End Sub