histogramme avec affichage pourcentage

[durdurdur]

J'ai un problème qui semble basique dans excel.
J'ai un histogramme empilé (mais pas à 100%), à la place des valeurs de chaque série, j'aimerai y mettre les % de chaque valeur par rapport au total, sans faire d'histogramme 100%.
Comment faire, sans faire de nouveaux calculs ... (mes données étant à droite et à gauche...)
Merci de vos réponses... cela m'éviterait de refaire de nombreux calculs basiques

 

[phlaurent55]

Re : histogramme avec affichage pourcentage

Bonjour durdurdur,

ton fichier en retour......................... mais il a fallu ajouter des calculs suplémentaires

à+

 

[job75]

Re : histogramme avec affichage pourcentage

Bonsoir,

La macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub CommandButton1_Click()
Dim s As Byte, p As Byte, txt As String
For s = 1 To 4
  For p = 1 To 2
    txt = [A2].Offset(s, p)
    If CommandButton1.Caption Like "*pourcent" Then txt = Format(txt / [A7].Offset(, p), "0%")
    Me.ChartObjects("Graphique 1").Chart.SeriesCollection(s).Points(p).DataLabel.Text = txt
  Next
Next
CommandButton1.Caption = "Afficher " & IIf(CommandButton1.Caption Like "*pourcent", "valeur", "pourcent")
End Sub

A+

 

[durdurdur]

Re : histogramme avec affichage pourcentage

merci de votre réponse mais le problème c'est que cette présentation ne met pas en évidence la différence de charges totales entre mes 2 cas: ça m'embête d'avoir un histogramme empilé sur 100%...
Mis à part de mettre manuellement les % pour chaque série.... je ne trouve pas de solution.... Ahhhh!

 

[durdurdur]

Re : histogramme avec affichage pourcentage

Merci Job75!
C'est merveilleux d'avoir la totale maitrise d'excel!
Il me reste plus qu'à comprendre la macro de ouf pour pouvoir la replacer dans mon fichier d'origine!
Une petite traduction en langage courant serait la bienvenue! surtout les s,p et [A2]....
N'hésite pas à m'en dire plus!

 

[job75]

Re : histogramme avec affichage pourcentage

Re,

La macro fait 2 boucles, sur les 4 n° de séries (s) et les 2 points (p).

Puis elle va chercher l'étiquette de donnée DataLabel correspondante.

On calcule txt, valeur qu'on place ensuite dans l'étiquette.

Mais j'ai amélioré l'ensemble. Si l'on modifie les valeurs dans le tableau, la macro recalcule les étiquettes :

Private Sub CommandButton1_Click()
CommandButton1.Caption = "Afficher " & IIf(CommandButton1.Caption Like "*pourcent", "valeur", "pourcent")
Affiche
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Affiche
End Sub

Sub Affiche()
Dim s As Byte, p As Byte, txt As String
For s = 1 To 4
  For p = 1 To 2
    txt = [A2].Offset(s, p)
    If CommandButton1.Caption Like "*valeur" Then txt = Format(txt / [A7].Offset(, p), "0%")
    Me.ChartObjects("Graphique 1").Chart.SeriesCollection(s).Points(p).DataLabel.Text = txt
  Next
Next
Application.OnRepeat "", ""
End Sub

A+