VBA, Graphique : Toujours à propos des ranges discontinus ..

**CCHEVALIER** · 27/09/2005, 17h00

Bonjour,

Je bute sur certains miracles d'Excel ... J'ai une série de donnée qui pointe sur un range discontinu. Je sais de quel range il s'agit.

J'ai une string "formule" qui vaut :

=SERIES("BONDS ASW",('[MonClasseur.xls]Mafeuille'!$I$23,'[MonClasseur.xls]Mafeuille'!$I$25:$I$27),('[MonClasseur.xls]Mafeuille'!$M$23,'[MonClasseur.xls]Mafeuille'!$M$25:$M$27),1)

lorsque j'affecte cette string comme formule à ma série, ca marche impecable. L'instruction est :
MonGraph.chart.seriescollection(maserie).formula=formule

Maintenant, lorsque je prend une formule un peu plus longue :
=SERIES("BONDS ASW",('[MonClasseur.xls]Mafeuille'!$I$23,'[MonClasseur.xls]Mafeuille'!$I$25:$I$27,'[MonClasseur.xls]Mafeuille'!$I$30),('[MonClasseur.xls]Mafeuille'!$M$23,'[MonClasseur.xls]Mafeuille'!$M$25:$M$27,'[MonClasseur.xls]Mafeuille'!$M$30),1)

ca ne marche plus ! (error : couldnt set the formula property ...).
Pourtant la formule est presque la meme ! J'ai juste rajouté un point ! (I30,M30) !!!!

Mieux: quand on fait cette modif directement sur la feuille Excel, à la main, la ca marche ...

Si quelqu'un a une idée, merci !

**CCHEVALIER** · 27/09/2005, 17h19

Non je vois pas

Je separe mes ranges par des virgules, et j'ai entre 2 parenthèse l'ensemble des ranges pour l'axe des abscice puis entre 2 autres parenthèses l'ensemble des ranges pour l'axe des ordonnées.

Dans le premier cas j'ai 2 ranges pour les abscice, 2 pour les ordonnées.
Dans le second cas j'ai 3 ranges pour les abscice, 3 pour les ordonnées.

**CCHEVALIER** · 27/09/2005, 17h31

Merci et désolé parce que c'est vrai que ca fait mal aux yeux.

Je vois 3 parenthèses ouvrantes :
- Une après SERIES
- Une après BONDS ASW",
- Une après Mafeuille'!$I$30),

et 3 fermantes
- une à la fin
- une juste avant la fin
- une après Mafeuille'!$I$30

Soit j'ai bon soit je suis vraiment fatigué

Faut dire que je me prend la tete depuis ce matin avec ces histoires

j'ai pas mal avancé et je suis pas loin du but

**SfJ5Rpw8** · 27/09/2005, 17h58

il faudrai que tu nous montre un peu + de ton code ... création de la chaîne.... etc..etc ...

car chez moi cela marche avec ta chaîne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro1()
'
' 
'
     ActiveChart.SeriesCollection(1).Formula = "=SERIES(""BONDS ASW"",('[MonClasseur.xls]Mafeuille'!$I$23,'[MonClasseur.xls]Mafeuille'!$I$25:$I$27,'[MonClasseur.xls]Mafeuille'!$I$30),('[MonClasseur.xls]Mafeuille'!$M$23,'[MonClasseur.xls]Mafeuille'!$M$25:$M$27,'[MonClasseur.xls]Mafeuille'!$M$30),1)"
 
 
End Sub

**CCHEVALIER** · 27/09/2005, 18h35

Merci d'avoir testé chez toi.
je te donne ma ligne exacte :

snapGraph.Chart.SeriesCollection(SeriesName).Formula = "=SERIES(""BONDS ASW"",('[RVTSnapshotView.xls]Iboxx Snapshot View'!$I$23,'[RVTSnapshotView.xls]Iboxx Snapshot View'!$I$25:$I$27,'[RVTSnapshotView.xls]Iboxx Snapshot View'!$I$30),('[RVTSnapshotView.xls]Iboxx Snapshot View'!$M$23,'[RVTSnapshotView.xls]Iboxx Snapshot View'!$M$25:$M$27,'[RVTSnapshotView.xls]Iboxx Snapshot View'!$M$30),1)"

Celle ci ne marche pas. (J'avais auparavant changé les noms pour vous simplifier la tache).

Par contre cette ligne ci marche tres bien:

snapGraph.Chart.SeriesCollection(SeriesName).Formula = "=SERIES(""BONDS ASW"",('[RVTSnapshotView.xls]Iboxx Snapshot View'!$I$23,'[RVTSnapshotView.xls]Iboxx Snapshot View'!$I$25:$I$27),('[RVTSnapshotView.xls]Iboxx Snapshot View'!$M$23,'[RVTSnapshotView.xls]Iboxx Snapshot View'!$M$25:$M$27),1)"

C'est pile poil la meme, sauf que j'ai enlevé les derniers ranges.

Pour info, Snapgrah est un chartobject public, c'est le graphique de ma feuille Iboxx Snapshot View
SeriesName est une string qui vaut "Bonds ASW", c'est le label de mes series ...

C'est fou que la meme ligne marche chez toi et pas chez moi (j'ai fait copier coller de ta ligne pour etre sur ...)

**SilkyRoad** · 27/09/2005, 18h42

bonsoir

il me semble que pour les formules graphique "=SERIES ..." , le nombre de carateres dans la barre de formules est limité à 255

j'ai compté 335 caracteres dans ta formule

=SERIES(""BONDS ASW"",('[RVTSnapshotView.xls]Iboxx Snapshot View'!$I$23,'[RVTSnapshotView.xls]Iboxx Snapshot View'!$I$25:$I$27,'[RVTSnapshotView.xls]Iboxx Snapshot View'!$I$30),('[RVTSnapshotView.xls]Iboxx Snapshot View'!$M$23,'[RVTSnapshotView.xls]Iboxx Snapshot View'!$M$25:$M$27,'[RVTSnapshotView.xls]Iboxx Snapshot View'!$M$30),1)

bonne soiree
michel

**CCHEVALIER** · 27/09/2005, 18h42

J'ai cru un moment que c'etait ma string Formule qui était trop grande, mais ca semble pas etre ca.
Merci encore à tous les 2 et si vous avez la moindre idée, n'hésitez pas