[VB NET] Probleme avec Excel.Chart

Question

Salut,

J'ai un probleme avec le .SeriesCollection du Excel.Chart...
 Voici mon code : 

Dim app As New Excel.Application()

Dim Book As Excel.Workbook

Dim doc As Excel.Worksheet

Dim oChart As Excel.Chart


Book = app.Workbooks.Add

doc = Book.Worksheets.Add

oChart = xlsBook.Charts.Add


With oChart

.ChartType = Excel.XlChartType.xlXYScatterLines
 
.SetSourceData(xlsdoc.Range("A4:B8"), PlotBy:=xlsdoc.Columns)


.SeriesCollection(1).XValues = xlsSerie.Range("B4:B8")

.SeriesCollection(1).Values = xlsSerie.Range("A4:A8")


...et la c'est le drame!!! Il aime pas le SeriesCollection...
J'ai essayé de lui affecter differente valeurs comme "Feuille4!R1C1... mais rien ne marche.

Si quelqu'un a deja rencontrer ce probleme, ce serait cool de me tenir au courant...

Merci d'avance

jesalini · Answer

Salut,

la réponse arrive tardivement mais elle m'aurait bien aidé étant débutant. Je poste donc ce que j'ai fait.

Il faut déclarer l'objet Series Collection.

Le code donne ça : 

Dim app As New Excel.Application()
Dim Book As Excel.Workbook
Dim doc As Excel.Worksheet
Dim oChart As Excel.Chart
Dim Series as Excel.SeriesCollection

Book = app.Workbooks.Add
doc = Book.Worksheets.Add
oChart = xlsBook.Charts.Add
Series = CType(oChart.SeriesCollection, Excel.SeriesCollection)

With oChart
.ChartType = Excel.XlChartType.xlXYScatterLines
.SetSourceData(xlsdoc.Range("A4:B8"), PlotBy:=xlsdoc.Columns)
Series.NewSeries()
Series.item(1).XValues = doc.Range("B4:B8")
Series.item(1).Values = doc.Range("A4:A8")

[VB NET] Probleme avec Excel.Chart

1 réponse

Votre réponse

Discussions similaires