Pb de graphiques

Bonjour tout le monde,

j'ai un pb au niveau des graphes
voila

j'ai un table qui contient le résultat d'une devision des valeurs de types double
par la suite j'utilise ce tableau comme source de données pour mon graphe

Code:

---

1 2 3 4 5 6 7 8

...................... Chart_Tab_Cri_L(indice) = (TabReqCovCri(ii, 2) / TabReqCovCri(ii, End_Tab_Cri)) .........................................   .SeriesCollection.NewSeries .SeriesCollection(1).XValues = Chart_date() 'Abscisses .SeriesCollection(1).Values = Chart_Tab_Cri_L() 'Ordonnées .SeriesCollection(1).name = "Low"

---

une fois que j'arrive a cette ligne de code

Code:

---

.SeriesCollection(1).Values = Chart_Tab_Cri_L() 'Ordonnées

---

ca m'affiche l'erreur suivante

Citation:

---

Unable to set the values property of the Series class

---

en consultant le contenu du tableau j'ai des valeurs de ce type
1.648351644654698E-02

comment faire pour résoudre mon pb

bonsoir

Peux tu montrer ta procédure complète ?
Comment alimentes tu tes tableaux Chart_Tab_Cri_L et Chart_date ?

bonne soirée
michel

en faite pour alimenter mon tableau je fais une boucle for sur un autre tableau qui contient les données

Code:

---

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

For ii = Deb To UBound(TabReqCovCri)   Chart_date(indice) = Format(TabReqCovCri(ii, 0), "mmm-yyyy")   If (TabReqCovCri(ii, End_Tab_Cri) <> Empty) Then   Chart_Tab_Cri_L(indice) = (TabReqCovCri(ii, 2) / TabReqCovCri(ii, End_Tab_Cri))   End if indice = indice + 1 Next     Charts.Add With ActiveChart   .SeriesCollection.NewSeries .SeriesCollection(1).XValues = Chart_date() 'Abscisses .SeriesCollection(1).Values = Chart_Tab_Cri_L() 'Ordonnées .SeriesCollection(1).name = "Low"   .ChartType = xlLineMarkers End With

---

voila tout par contre si je multiplie le resultat de ma dévision par 100
j'ai plus d'erreur
comment résoudre le pb sans utiliser ((TabReqCovCri(ii, 2) / TabReqCovCri(ii, End_Tab_Cri))
*100)