Private Sub UserForm_Initialize()
Dim Annees(), CA(), I As Long
Dim Cht As WCChart, C
Me.Caption = Titre
CA = Application.Transpose([B2:B12])
'une autre façon de remplir un tableau
ReDim Annees(I)
For I = 2 To [A65536].End(xlUp).Row
Annees(I - 2) = Range("A" & I)
ReDim Preserve Annees(I - 1)
Next I
Set Cht = ChartSpace1.Charts.Add
'Trés important de définir un constants, cf l'aide VBA
Set C = ChartSpace1.Constants
With ChartSpace1
.HasChartSpaceTitle = True
.ChartSpaceTitle.Caption = TitreGraph _
& " de " & Annees(0) & " à " & Annees(UBound(Annees) - 1)
.HasChartSpaceLegend = True
.ChartSpaceLegend.Position = C.chLegendPositionBottom
.ControlTipText = Tip
End With
With Cht
.Type = C.chChartTypeSmoothLineMarkers
.SetData C.chDimSeriesNames, C.chDataLiteral, TitreLegende
.SetData C.chDimCategories, C.chDataLiteral, Annees
.SeriesCollection(0).SetData C.chDimValues, C.chDataLiteral, CA
End With
End Sub