choisir feuille dans graphic userform

[pascal21]

bonjour
j'au récuperer ce code dans les archives
il sert à faire un graphique dans un userform
il fonctionne, mais il ne prends les données que dans la feuil1
où rajouter le code pour l'obliger à lire les données dans la feuille que j'aurai choisi
c'est sheets quelque chose mais quoi?

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

merci

 

[MichelXld]

bonjour

Il faut préciser qu'il s'agit à l'origine d'une démo de notre ami Zon

Lien supprimé


tu peux tester cette adaptation

CA = Application.Transpose(Sheets('Feuil2').Range('B2:B12'))
'une autre façon de remplir un tableau
ReDim Annees(I)
For I = 2 To Sheets('Feuil2').Range('A65536').End(xlUp).Row
Annees(I - 2) = Sheets('Feuil2').Range('A' & I)
ReDim Preserve Annees(I - 1)
Next I



bonne journée
MichelXld

 

[pascal21]

salut je voulais donner cette info mais je ne retrouvais plus la page dans les archives
alors je me suis contenté de dire que ça venait des archives
merci pour la solution apportée à ma question
pascal
bonne journée