De: J@C <chaussar@cybercable.fr>
Objet: Re: pb de couleur de graphique
Date : lundi 8 novembre 1999 21:34

On suppose que le graphique s'appelle Graphique1 dans la feuille Feuil1
On a, quelque part dans Feuil1  une liste des &eacute;tiquettes du graphique (plage
de cellules nomm&eacute; "palette"), chaque fond de cellule &eacute;tant de la couleur
correspondant à l'&eacute;tiquette (Format / cellules / motif pour choisir la
couleur).

En recopiant la macro ci-dessous dans un module du classeur, on peut adapter
la couleur de chaque tranche de camembert en fonction du nom de l'&eacute;tiquette


    Sub couleur_des_yeux_de_zaza()
    sheets("feuil1").ChartObjects("Graphique 1").Activate
    For Each ppt In ActiveChart.SeriesCollection(1).Points
    &eacute;tiq = ppt.DataLabel.Caption
    sheets("feuil1").range("palette").Select
    Selection.Find(What:=&eacute;tiq, After:=ActiveCell).Activate
    couleur = ActiveCell.Interior.ColorIndex
    sheets("feuil1").ChartObjects("Graphique 1").Activate
    ppt.Interior.ColorIndex = couleur
    Next
    sheets("feuil1").Cells(1).Select
    End Sub

pour chaque tranche de camembert (ppt), la macro recherche le nom de
l'&eacute;tiquette (&eacute;tiq = ppt.DataLabel.Caption)
puis va chercher dans "palette" la couleur correspondant ("couleur")
avant de l'affecter à la tranche de camembert (ppt.Interior.ColorIndex =
couleur)

C'est un peu compliqu&eacute; ???
mais c'est tellement joli... un camembert de toutes les couleurs

J@C



lener cordier <lenercordier@pictime.fr> a &eacute;crit dans le message :
#EZ2CyfK$GA.213@cppssbbsa02.microsoft.com...
> Bonjour,
> Dans un graphique (un camembert &eacute;clat&eacute;), j'aimerais que la couleur de mes
> segments soit fonction de la l&eacute;gende et non pas al&eacute;atoire. J'ai une base
de
> donn&eacute;s avec les correspondances entre couleurs et l&eacute;gendes mais je
n'arrive
> pas à la mettre en relation avec mon graphique.
>
> J'en demande trop ?
> En tous cas, merci d'avance.
> C&eacute;dric.
>
>