chartspace

J

jack

Guest
Bonjour le forum

J'ai modifié une application de Michel Xld à propos des chartspaces
Je souhaiterais en apporter d'autrs mais je coice
Est il possible de faire en sorte d'avoir les légendes dans le USF c'est à dire la date et les couleurs qui correspondent ( ex le vert pour le 24/10/05 => en selectionnant la date et la couleur les deux soient notées en légende)et d'avoir sur le graphique les valeurs du tableau (Ex 67 pour le lundi et 24/10/05) merci pour votre aide toujours aussi précieuse

Slts
Jack [file name=exempleUtilisationChartSpace_20060126123227.zip size=16064]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exempleUtilisationChartSpace_20060126123227.zip[/file]
 

Pièces jointes

  • exempleUtilisationChartSpace_20060126123227.zip
    15.7 KB · Affichages: 30

MichelXld

XLDnaute Barbatruc
bonjour Jack

j'espere que cette adaptation répondra à ta demande


bon apres midi
MichelXld [file name=UtilisationChartSpace_affichageLegende.zip size=13189]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/UtilisationChartSpace_affichageLegende.zip[/file]
 

Pièces jointes

  • UtilisationChartSpace_affichageLegende.zip
    12.9 KB · Affichages: 179

MichelXld

XLDnaute Barbatruc
rebonjour Jack

en relisant ton message je viens de m'apercevoir que tu souhaites aussi afficher les valeurs associées aux séries

dans ce cas tu peux ajouter

With Cht
.SetData C.chDimCategories, C.chDataLiteral, Tableau
'ajout de la légenge pour chaque serie
.SeriesCollection(x).Caption = Cells(j + 2, 7)
.SeriesCollection(x).DataLabelsCollection.Add
.SeriesCollection(x).SetData C.chDimValues, C.chDataLiteral, Plage
.SeriesCollection(x).Interior.Color = 50000 * (j + 1)
End With



bon apres midi
MichelXld

Message édité par: michelxld, à: 28/01/2006 19:08
 

Discussions similaires

Réponses
2
Affichages
520

Statistiques des forums

Discussions
312 235
Messages
2 086 476
Membres
103 227
dernier inscrit
maloalek