Creation Graph Excel : pb avec SeriesCollection(1).Values

Salut,:P
J'esssaye de creer un graphe (Courbes) en vb.net et je galère (:aie:) sur la ligne suivante :

Code:

---

appExcel1.ActiveChart.SeriesCollection(1).Values = "=Graphes!R1C2:R23C2"

---

Le message d'erreur est le suivant :

Citation:

---

Impossible de définir la propriété Values de la classe Series

---

Pour info, voici 1 partie du bloc de code concerné :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

... sRange = xlSheet1.Cells(iPosInitMO, 1).Address() & ":" & xlSheet1.Cells(iPosFinPresta, 3).Address() sRange = Replace(sRange, "$", "") appExcel1.Range(sRange).Select() appExcel1.Charts.Add() appExcel1.ActiveChart.Name = sNomGraphe appExcel1.Charts(sNomGraphe).ChartType = Excel.XlChartType.xlLineMarkers appExcel1.ActiveChart.SetSourceData(Source:=xlSheet1.Range(sRange), PlotBy:=Excel.XlRowCol.xlColumns) appExcel1.ActiveChart.SeriesCollection.NewSeries() sTemp = "=Graphes!" & "R" & iPosInitMO & "C2:" & "R" & iPosFinMO & "C2" appExcel1.ActiveChart.SeriesCollection(1).Name = "=""MO""" appExcel1.ActiveChart.SeriesCollection(1).Values = sTemp sTemp = "=Graphes!" & "R" & iPosInitMO & "C3:" & "R" & iPosFinMO & "C3" appExcel1.ActiveChart.SeriesCollection(2).Values = sTemp appExcel1.ActiveChart.SeriesCollection(2).Name = "=""Limite MO""" sTemp = "=Graphes!" & "R" & iPosInitPresta & "C2:" & "R" & iPosFinPresta & "C2" appExcel1.ActiveChart.SeriesCollection(3).Values = sTemp appExcel1.ActiveChart.SeriesCollection(3).Name = "=""Presta""" sTemp = "=Graphes!" & "R" & iPosInitPresta & "C3:" & "R" & iPosFinPresta & "C3" ...

---

Je précise que la ligne juste avant la ligne qui plante passe sans problème :

Code:

---

appExcel1.ActiveChart.SeriesCollection(1).Name = "=""MO"""

---

Je pensais que la propriété Values n'existait pas en .net pour SeriesCollection (existe en VB car code issue d'une macro dans Excel) mais dans la msdn, la propriété Name n'existe apparement pas non plus ?:calim2:
(http://msdn.microsoft.com/fr-fr/libr...rs(VS.80).aspx)

Voilà, donc après moults recherches (infructueuses evidement:cry:) j'éspère que quelqu'un ici pourra m'aider...
Merci d'avance:ccool:

Salut,
SeriesCollection est... une collection (je sais, je sais... :mouarf:), autrement dit, ce type propose des méthodes de type ensembliste (add, count...).
Chaque item de cette collection est de type Series
Les méthodes proposées par ce type se trouvent ici : http://msdn.microsoft.com/fr-fr/libr...ffice.11).aspx

Y figurent les propriétés Name et Values.
Cette dernière est peut être mal renseignée ou peut être as-tu une version d'excel interop différente (plus ancienne) de celle qui est sur le lien MSDN...

Merci de ton aide Nikoko34 :ccool:
Par contre, j'avoue que je ne sais pas comment utiliser tes infos...

J'ai essayé en modifiant comme ça :

Code:

---

1 2 3 4

appExcel1.ActiveChart.Series.NewSeries() appExcel1.ActiveChart.Series(1).Name = "=""MO""" appExcel1.ActiveChart.Series(1).Values = sTemp

---

mais il me dit que Le membre public 'Series' du type 'Chart' est introuvable

De +, pour les lignes suivantes il n'y avait pas de problème :

Code:

---

1 2 3

appExcel1.ActiveChart.SeriesCollection.NewSeries() appExcel1.ActiveChart.SeriesCollection(1).Name = "=""MO"""

---

Le pb était sur la ligne :

Code:

---

1 2	appExcel1.ActiveChart.SeriesCollection(1).Values = "=Graphes!R1C2:R23C2"

---

En fait je mettais la valeur dans une variable de type :

Code:

---

1 2	sTemp = "=Graphes!" & "R" & iPosInitMO & "C2:" & "R" & iPosFinMO & "C2" appExcel1.ActiveChart.SeriesCollection(1).Values = sTemp

---

Mais en fouinant sur le net, j'ai vu des exemples (en VB et pas .net malheureusement) où la variable utilisée était de type Range, ce qui donne :

Code:

---

1 2 3 4 5

Dim sTemp as Excel.range sTemp = xlSheet1.Range(xlSheet1.Cells(iPosInitMO, 2).address(), xlSheet1.Cells(iPosFinMO, 2).address()) ... appExcel1.ActiveChart.SeriesCollection(1).Values = sTemp

---

Mais il me mets le message d'erreur suivant :

Citation:

---

Le type ne correspond pas. (Exception de HRESULT : 0x80020005 (DISP_E_TYPEMISMATCH))

---

:calim2:

J'avoue être un peu (bcp;))perdu sur le sujet.
Si tu pouvais m'éclairer encore un peu + stp... ;)

Est ce que par hasard ton chart ne serait-il pas un pivot chart ?
Car MSDN dit à propos de la propriété Values, que

Citation:

---

For PivotChart reports, this property is read-only.

---

je t'avoue que j'étais tombé la dessus en recherchant des solutions sur le net, mais sans trop y faire y gaffe...sans doute parce que je ne sais pas quels graphes sont dans la catégorie Pivot Charts ?! :?
Ce que j'utilise c'est 1 graphique de "courbes" :

Code:

---

appExcel1.Charts(sNomGraphe).ChartType = Excel.XlChartType.xlLineMarkers

---

Sachant que je peux utiliser la propriété Name sans problème, peut-être que le problème viendrais de là effectivement...

Comme je ne sais pas trop comment determiner si mon Chart est 1 PivotChart ou pas, j'ai testé de lire plutot que d'écrire la valeur "values" :

Code:

---

1 2 3

Dim sTemp as system.object 'si je mets Excel.Range ça plante sTemp = = appExcel1.ActiveChart.SeriesCollection(1).Values

---

Il me retourne 1 system.array avec toutes les valeurs selectionnées lors de la création du graphique...
Je sais qu'il y +sieurs possibilités de Graphique de Courbes, mais même en essayant d'autres versions de graph de courbes, le résultat du code obtenu (en macro) me donne 1 chart de type :

Code:

---

appExcel1.Charts(sNomGraphe).ChartType = Excel.XlChartType.xlLineMarkers

---

ce qui ne change donc rien à mon problème...

:help:

En relisant sur la msdn :

Citation:

---

Returns or sets an array of x values for a chart series. The Values property can be set to a range on a worksheet or to an array of values, but it cannot be a combination of both.

---

j'ai testé avec un tableau de valeur plutot qu'un range :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim sTemp2() as double   ReDim Preserve sTemp2(0) sTemp2(0) = 148 ReDim Preserve sTemp2(1) sTemp2(1) = 166.5 ReDim Preserve sTemp2(2) sTemp2(2) = 447.7   appExcel1.ActiveChart.SeriesCollection(1).Values = sTemp2

---

et il passe sur la dernière ligne sans problème cette fois...

Le chart que j'utilise accepte donc bien la propriété Values en Lecture ET en Ecriture.
Ce qui plante c'est donc bien le "formatage" des valeurs en type Excel.Range...(sans en être sur )

Peut être le problème réside dans la façon de nommer les cellules (RxCy).

Est ce que tu as essayé la codification lettre pour colonne et chiffre pour ligne ?

Ce ne sont que des pistes...

J'ai testé avec :

Code:

---

appExcel1.ActiveChart.SeriesCollection(1).Values = xlSheet1.Range("B1:B22")

---

mais il plante quand même :

Citation:

---

"13 : Le type ne correspond pas. (Exception de HRESULT : 0x80020005 (DISP_E_TYPEMISMATCH))"

---

Et pourtant si je met xlSheet1.Range("B1:B22") dans une variable de type Excel.Range il n'y a aucun problème, et si je reprends ce qui est dit dans la msdn :

Citation:

---

Returns or sets a collection of all the values in the series. This can be a range on a worksheet or an array of constant values, but not a combination of both. Read/write Object.

---

1 Range est acceptable comme valeur...
Donc :koi:

Finalement, j'ai trouvé comment faire ...

Code:

---

1 2 3 4 5 6

Dim sSerieMO As Excel.Series ... sSerieMO = appExcel1.ActiveChart.SeriesCollection(1) sSerieMO.Name = "=""MO""" sSerieMO.Values = xlSheet1.Range(xlSheet1.Cells(iPosInitMO, 2).address(), xlSheet1.Cells(iPosFinMO, 2).address())

---

et ça passe comme ça...

Après moults recherches et tentatives, enfin :chin:

Et surtout un grand merci à toi Nikoko34 :ccool: parce que j'étais mal barré avec mes appExcel1.ActiveChart.SeriesCollection(1).Values :?

De rien, c'est quand même toi qui a trouvé la réponse. :)

Effectivement, en relisant ta solution, je m'aperçoit que c'est évident : quand on veut mettre à jour un item d'une collection, il faut passer par un intermédiaire.
En pseudo code, ça fait un truc comme ça...:

Code:

---

1 2 3 4

Dim TempItem as ItemType TempItem = MyCollection.Item(i) TempItem.MyProperty = <Nouvelle valeur> MyCollection.Item(i) = TempItem

---