couleur de courbes

[Rémi]

Bonjour à tous,

Je souhaite tracer 2 courbes (nuage de points) ayant la même couleur, voici le bout du code que j'ai fait:

Sheets('Graphique').Select

ActiveChart.ChartArea.Select


ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(k).Select
ActiveChart.SeriesCollection(k).Name = WS.Name

ActiveChart.SeriesCollection(k).Values = Sheets(WS.Name).Range('F' & Fcell & ':F' & LastLine)
'MsgBox (WSmax)
ActiveChart.SeriesCollection(k).XValues = Sheets(WS.Name).Range('G' & Fcell & ':G' & LastLine)
ActiveChart.SeriesCollection(k).Select
col = Selection.Interior.ColorIndex

MsgBox (col)


k = k + 1

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(k).Select
ActiveChart.SeriesCollection(k).Name = '% cell_' & WS.Name
ActiveChart.SeriesCollection(k).Values = Sheets(WS.Name).Range('H' & Fcell & ':H' & LastLine)
ActiveChart.SeriesCollection(k).XValues = Sheets(WS.Name).Range('G' & Fcell & ':G' & LastLine)
ActiveChart.SeriesCollection(k).Select
With Selection.Interior
.ColorIndex = col
End With

col2 = Selection.Interior.ColorIndex
MsgBox (col2)

Le problème est que d'une part,les courbes générées n'ont pas la même couleur, et que le chiffre revoyé par les MsgBox sont les même:-4105...

Si quelqu'un peut me filer un coup de main...

Merci d'avance

 

[MichelXld]

bonjour Rémi

cet exemple permet d'attribuer la couleur bleue à chaque serie


For X = 1 To 3
ActiveChart.SeriesCollection.NewSeries
Set Plage = _
Feuil1.Range(Feuil1.Cells(Debut, X).Address & ':' & Feuil1.Cells(Fin, X).Address)

With ActiveChart.SeriesCollection(X)
.Values = Plage
.Name = 'LeNom'
.Border.ColorIndex = 5
End With

Next i



bon week end
MichelXld

 

[Rémi]

Bonjour MichelXld,

Merci pour le post précédent,

En fait, ce que je cherche à faire, c'est récupérer la couleur d'une courbe, et l'attribuer à une autre...

Ton exemple me permet d'attribuer la couleur, mais comment peut on récupérer la couleur d'une courbe déjà tracée (si celà est possible..)


Merci d'avance pour toute info!

Rémi

 

[MichelXld]

bonjour Rémi

pour recuperer l'index couleur de la 1ere serie dans le graphique actif , tu peux utiliser

MsgBox ActiveChart.SeriesCollection(1).Border.ColorIndex



bonne journée
MichelXld

 

[Rémi]

Re bonjour MichelXld


En fait le problème est le même qu'a mon premier post, la MsgBox me retourne '-4105'...

Je ne comprends pas...

Si tu as une idée

Merci de ton aide

 

[MichelXld]

rebonjour Rémi

chez moi la macro fonctionne sans soucis
tu peux tester le classeur joint


bonne journée
MichelXld [file name=indexCouleurSerieGraphique.zip size=8378]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/indexCouleurSerieGraphique.zip[/file]

 

[MichelXld]

rebonjour

en relisant ton premier message , je viens de m'apercevoir que tu travailles sur un graphique en nuage de points . dans ce cas tu peux tester


MsgBox ActiveChart.SeriesCollection(1).MarkerBackgroundColorIndex


Pour récupérer la couleur d'arrière-plan du 2eme point dans la premiere serie d'un graphique en nuage de points

MsgBox ActiveChart.SeriesCollection(1).Points(2).MarkerBackgroundColorIndex


bonne journée
MichelXld

Message édité par: michelxld, à: 26/09/2005 12:29

 

[Rémi]

Re-bonjour,

Je viens de tester ton fichier, effectivement ça marche...

Si je créer un noub=veau fichier avec les même lignes de code, ça marche aussi...

Mais dans mon fichier, ça marche pas!...

Je n'y comprends rien, peu importe la couleur de la courbe, il me renvoie en permanence '-4105'... c'est étrange...

En tout cas merci de ton aide...

 

[Rémi]

voici un fichier joint contenant l'erreur... [file name=test2_20050926154731.zip size=50672]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test2_20050926154731.zip[/file]