Excel Graphique croisé dynamiqueRésolu

Question

Bonjour,
J'aurai besoin de v&#244;tre aide. Je cherche &#224; identifier les s&#233;ries d'un graphique crois&#233; dynamique. Afin de le mettre en forme de fa&#231;on plus personnel et permanente mes graphiques.
En effet &#224; chaque fois que je choisi un nouveau champ de page, les s&#233;ries changent et lorsque je reviens a un champ de page d&#233;j&#224; mis en place, la mise en page n'est plus la m&#234;me.
Je voudrais donc identifier les s&#233;ries avec des noms, et non pas ordre d'arriv&#233; comme le fait Excel.

Avez-vous une id&#233;e ???
Merci d'avance.

michelxld · Accepted Answer

bonjour

cet exemple permet de boucler sur les serie d'un graphique pour en recuperer les noms

Dim i As Integer
'boucler sur les series dans le 1er graphique de la Feuil1
For i = 1 To Feuil1.ChartObjects(1).Chart.SeriesCollection.Count
'lister le nom des series dans le 1er graphique de la Feuil1
MsgBox Feuil1.ChartObjects(1).Chart.SeriesCollection(i).Name
'
'pour changer la couleur des series
Feuil1.ChartObjects(1).Chart.SeriesCollection(i).Border.ColorIndex = i
'
Next i

Effectivement , les mises en forme personnalis&#233;es des graphiques crois&#233;s dynamiques ne sont pas conserv&#233;es lors des r&#233;actualisations de donn&#233;es . pour automatiser la mise &#224; jour du format tu pourrais par exemple utiliser l'evenement Chart_Calculate

bon apres midi
michel

patou287 · Answer

Est-il possible maintenant d'int&#233;grer maintenant des donn&#233;es suppl&#233;mentaire dans les l&#233;gendes ?
Style l'&#233;volution par rapport &#224; la semaine pr&#233;cedente ?

Merci d'avance.

michelxld · Answer

rebonjour

je suis d&#233;sol&#233; mais je ne comprend pas ta derniere question . peux tu presciser ta demande ?

bonne soiree
michel

patou287 · Answer

En gros je cherche &#224; montrer l'&#233;volution du graphique, d'une semaine &#224; l'autre.
Je me demandais si il &#233;tait possible d'ajouter dans la l&#233;gende des s&#233;ries l'&#233;volution (ex: +5%). ??

michelxld · Answer

bonsoir

tu n'as pas pr&#233;cis&#233; quel type de graphique tu utilises et si tu veux comprarer des serie differentes ou les points d'une meme serie

sinon cet exemple permet d'afficher l'&#233;volution en pourcentage des points d'une s&#233;rie par rapport aux points pr&#233;c&#233;dents

Sub afficherEvolutionPourcentage_EnFonctionDuPointPrecedent()
'remarque : les labels ne seront pas mis &#224; jour automatiquement
'si les donn&#233;es sont modifi&#233;es dans le tableau
Dim j As Integer
Dim X As Single, Y As Single
Dim Resultat As String


On Error Resume Next
'suppression des Labels existants
Feuil1.ChartObjects(1).Chart.SeriesCollection(1).DataLabels.Delete
On Error GoTo 0
'affichage des Labels (Ordonn&#233;es pour en extraire les valeurs
Feuil1.ChartObjects(1).Chart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowValue


'boucler sur les point de la 1ere serie ( en dehors du premier point )
For j = 2 To Feuil1.ChartObjects(1).Chart.SeriesCollection(1).Points.Count


X = Feuil1.ChartObjects(1).Chart.SeriesCollection(1).Points(j).DataLabel.Characters.Text 'valeur du point
Y = Feuil1.ChartObjects(1).Chart.SeriesCollection(1).Points(j - 1).DataLabel.Characters.Text 'valeur du point precedent


'insere le pourcentage pour chaque point de la serie
'cette ligne est plac&#233;e avant la ligne "Resultat = Format((X / Y) - 1, "0.00%")" et permet ainsi
'de ne rien afficher pour le 1er point
Feuil1.ChartObjects(1).Chart.SeriesCollection(1).Points(j - 1).DataLabel.Characters.Text = Resultat


'calcul le pourcentage entre le point et le point de la semaine precedente
Resultat = Format((X / Y) - 1, "0.00%")
Next j


'affiche le pourcentage pour le dernier point de la serie
Feuil1.ChartObjects(1).Chart.SeriesCollection(1).Points(j - 1).DataLabel.Characters.Text = Resultat
End Sub

bonne soiree
michel

Excel Graphique croisé dynamique

5 réponses

Discussions similaires