Graphiques: insérer étiquettes non comprises dans la plage de données?
Le
gterras
Bonjour à tous, j'ai un soucis duquel je ne peux me dépétrer:
Grosso modo, j'ai un graphique en camembert tout simple, du genre:
A B
1 CSP+ 33%
2 CSP- 33%
3 Inactifs 33%
Jusuque là, tout va bien. J'aimerais rajouter aux étiquettes de donnée
d'autre valeurs, qui tiennent sur deux colonnes:
A B C D
1 CSP+ 33% ind. 125
2 CSP- 33% ind. 140
3 Inactifs 33% ind. 89
Les colonnes C et D pourraient être fusionnées mais pour des raisons
je ne peux pas le faire.
J'aimerais donc que mon graphique m'affiche en étiquette de donnée la
CSP, le pourcentage et l'indice (meme si celui-ci n'a rien a voir dans
la composition du graphique).
J'ai tenté de bidouiller les options des sources de données, rajouter
des séries, mais rien n'y fait, je n'arrive pas à avoir quelque chose
de propre. (Excel 2003)
Quelqu'un connaitrait-il la solution?
Merci d'avance de vos réponses.
Greg
Grosso modo, j'ai un graphique en camembert tout simple, du genre:
A B
1 CSP+ 33%
2 CSP- 33%
3 Inactifs 33%
Jusuque là, tout va bien. J'aimerais rajouter aux étiquettes de donnée
d'autre valeurs, qui tiennent sur deux colonnes:
A B C D
1 CSP+ 33% ind. 125
2 CSP- 33% ind. 140
3 Inactifs 33% ind. 89
Les colonnes C et D pourraient être fusionnées mais pour des raisons
je ne peux pas le faire.
J'aimerais donc que mon graphique m'affiche en étiquette de donnée la
CSP, le pourcentage et l'indice (meme si celui-ci n'a rien a voir dans
la composition du graphique).
J'ai tenté de bidouiller les options des sources de données, rajouter
des séries, mais rien n'y fait, je n'arrive pas à avoir quelque chose
de propre. (Excel 2003)
Quelqu'un connaitrait-il la solution?
Merci d'avance de vos réponses.
Greg
Poser une question
Sub commentaire()
ActiveSheet.ChartObjects(1).Activate
On Error Resume Next
ActiveChart.SeriesCollection(1).ApplyDataLabels
Type:=xlDataLabelsShowLabel
On Error GoTo 0
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
Selection.Interior.ColorIndex = 36
Selection.Font.Size = 7
Selection.Text = ActiveSheet.Cells(i + 1, 1) & " " & _
Format(ActiveSheet.Cells(i + 1, 2), "0%") & " " _
& ActiveSheet.Cells(i + 1, 3) & " " & ActiveSheet.Cells(i + 1,
4)
Next i
End Sub
http://cjoint.com/?hxs7IEhiAw
JB
On 23 juil, 18:38, wrote:
vraiment la classe..
On 23 juil, 18:59, JB