choisir feuille dans graphic userform

Private Sub UserForm_Initialize()
Dim Annees(), CA(), I As Long
Dim Cht As WCChart, C
Me.Caption = Titre

CA = Application.Transpose([q2:q300])
'une autre façon de remplir un tableau
ReDim Annees(I)
For I = 2 To [p65536].End(xlUp).Row
Annees(I - 2) = Range('p' & 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 _
& ' du ' & 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

Cliquez pour agrandir...