J'ai un histogramme empilé (pas un empilé 100%) avec deux séries
représentant des quantités.
Je voudrais que l'étiquette affiche non pas la quantité mais le % que
représente chaque série par rapport à la pile.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
EM
Super, ça marche impec !
Merci beaucoup
"Ellimac" a écrit dans le message de news:1e4101c3739f$f9979100$ Bonjour,
A partir d'un tableau avec 3 séries, la macro suivantes récupère en étiquettes le contenu des cellules E5 à G10 dans lesquelles est effectué le calcul de ratio.
Sub Toto() Range("e5").Select For cpt1 = 1 To 3 'ou nb de séries Set Ser = ActiveSheet.ChartObjects (1).Chart.SeriesCollection(cpt1) Ser.HasDataLabels = True For cpt2 = 1 To Ser.Points.Count Ser.Points(cpt2).DataLabel.Text = Format (ActiveCell.Offset(cpt2 - 1, 0), "0.00 %") Next ActiveCell.Offset(0, 1).Select Next End Sub
Camille
-----Message d'origine----- Bonjour,
J'ai un histogramme empilé (pas un empilé 100%) avec deux séries
représentant des quantités. Je voudrais que l'étiquette affiche non pas la quantité mais le % que
représente chaque série par rapport à la pile.
Merci d'avance pour votre aide.
Emmanuel
.
Super, ça marche impec !
Merci beaucoup
"Ellimac" <PasDePubellimacNiSpam_cremelier@hotmail.com> a écrit dans le
message de news:1e4101c3739f$f9979100$a101280a@phx.gbl...
Bonjour,
A partir d'un tableau avec 3 séries, la macro suivantes
récupère en étiquettes le contenu des cellules E5 à G10
dans lesquelles est effectué le calcul de ratio.
Sub Toto()
Range("e5").Select
For cpt1 = 1 To 3 'ou nb de séries
Set Ser = ActiveSheet.ChartObjects
(1).Chart.SeriesCollection(cpt1)
Ser.HasDataLabels = True
For cpt2 = 1 To Ser.Points.Count
Ser.Points(cpt2).DataLabel.Text = Format
(ActiveCell.Offset(cpt2 - 1, 0), "0.00 %")
Next
ActiveCell.Offset(0, 1).Select
Next
End Sub
Camille
-----Message d'origine-----
Bonjour,
J'ai un histogramme empilé (pas un empilé 100%) avec deux
séries
représentant des quantités.
Je voudrais que l'étiquette affiche non pas la quantité
mais le % que
"Ellimac" a écrit dans le message de news:1e4101c3739f$f9979100$ Bonjour,
A partir d'un tableau avec 3 séries, la macro suivantes récupère en étiquettes le contenu des cellules E5 à G10 dans lesquelles est effectué le calcul de ratio.
Sub Toto() Range("e5").Select For cpt1 = 1 To 3 'ou nb de séries Set Ser = ActiveSheet.ChartObjects (1).Chart.SeriesCollection(cpt1) Ser.HasDataLabels = True For cpt2 = 1 To Ser.Points.Count Ser.Points(cpt2).DataLabel.Text = Format (ActiveCell.Offset(cpt2 - 1, 0), "0.00 %") Next ActiveCell.Offset(0, 1).Select Next End Sub
Camille
-----Message d'origine----- Bonjour,
J'ai un histogramme empilé (pas un empilé 100%) avec deux séries
représentant des quantités. Je voudrais que l'étiquette affiche non pas la quantité mais le % que
