XL 2010 Graphique histogramme avec valeur et pourcentage %

[Guy_M]

Bonjour,

Voir pièce jointe

Dans un graphique en histogramme présentant des valeur, je souhaite faire apparaître au dessus de chaque barre un pourcentage par rapport à une valeur de référence (la première barre).

J'ai trouvé une solution avec des courbe et en déplaçant les étiquettes de valeur et masquant la légende. J'ai pu le faire parce que je n'ai que 4 données, mais je souhaiterai pouvoir le faire avec une quarantaine de données.

Auriez-vous une solution à me proposer plus efficiente que celle que j'ai trouvé

Par avance, je vous remercie de vos réponses.
A bientôt
Guy M

 

[Gardien de phare]

Bonjour,

A tester, mettre la macro dans un module et l'exécuter après avoir activé le graphique et gardé uniquement les séries en batons.

Sub etiq()
With ActiveChart
For i = 2 To .SeriesCollection.Count
    For j = 1 To .SeriesCollection(i).Points.Count
        With .SeriesCollection(i).Points(j)
        .HasDataLabel = True
        If j = 1 Then
            k = j
        Else
            k = j + 1
        End If
        .DataLabel.Text = Format(ActiveSheet.Cells(2, k + 3).Value, "00.0%")
        End With
    Next
Next
End With
End Sub