Bonjour,


Je relance un précédent sujet en espérant être un peu plus clair car la je sèche lamentablement.
Je voudrais générer automatiquement des graphiques en choisissant grâce à une UserForm mes séries de données qui sont sur plusieurs onglets différents.
Mais je sais pas trop comment attribuer la liste sélectionnée en donnée source de graphiques, comment faire la boucle…Et dans mon code y a peut être une erreur par ligne.

Plus tard, quand je saurais comment faire ça, faudra aussi que je choississe les données des onglets (Ca sera plus D7D:307 mais n7:n307 où n est variable).

Private Sub CommandButton2_Click()
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="zinzin" 'le nom reste a définir
ActiveChart.SeriesCollection(1).XValues = Sheets(Me.ListBox2(i, 0)).Range("B7:B307")
' Je voudrais que mes abcisse soit J0 à J300 de n'importe quelle feuille. Mais imcompatibilité de type
For i = 0 To Me.ListBox2.ListCount - 1 'a voir si bien le bon nombre
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).Name = Me.ListBox2.List(i, 0)
'je ne suis pas certain que l'indice i soit accepté par la propriete SeriesCollection.
' j'aimerais que ca me donne comme nom celui du premier onglet selectionné lors de la 1ere boucle...
ActiveChart.SeriesCollection(i).Formula = Sheets(Me.ListBox2.List(i, 0)).Range("D7:D307")
' j'aimerais que ca me donne les valeurs en D7:D307 de la premier onglet selectionné lors de la 1ere boucle...
i = i + 1
Next i
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Sécrétion en fonction du temps"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Jours"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Sécrétion µg/ml"
.DisplayBlanksAs = xlInterpolated
.PlotVisibleOnly = True
.SizeWithWindow = False
End With
Application.ShowChartTipNames = True
Application.ShowChartTipValues = True
End Sub

Configuration: Windows XP Internet Explorer 6.0