VBA - Graphique : ajouter le total sur barres empilées

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

haleakala

XLDnaute Nouveau
[Résolu] VBA - Graphique : ajouter le total sur barres empilées

Bonjour à tous,

Je travaille actuellement sur un diagramme à barres empilées, et je voudrais ajouter le total de chaque barre sur le graphique en utilisant VBA.

Je sais qu'il existe des méthodes pour rajouter le total en rajoutant une courbe sur le graphique, cependant je souhaiterais le faire via VBA, et comme parfois mes zones sources pour le graphiques sont bien discontinues, gérer une nouvelle courbe par le VBA me semble assez compliqué.

J'ai donc penser rajouter une zone de texte au bout de chaque barre, avec le total. Malheureusement, je ne sais pas comment récupérer la position de la barre ou au moins de la dernière partie de la barre, qui me permettrait de placer correctement la zone de texte avec le total.

Est-ce qqun aurait une idée pour obtenir cette information?

D'autre part, je souhaiterais inverser l'ordre des barres: commencer par A et pas finir par A. Une idée comment je pourrais faire cela avec mon code VBA??

Pour plus de clarté, je mets une copie de mon fichier excel en PJ du message.

merci par avance pour votre aide précieuse!

Cordialement,

Haleakala
 

Pièces jointes

Dernière édition:
Re : VBA - Graphique : ajouter le total sur barres empilées

J'ai trouvé la réponse - Merci le forum OzGrid.

Il s'agit de rajouter dans la boucle case select:
Code:
Case Is = "Total"
            
' colour and format total series
    With sSerie
        .AxisGroup = 2
        .Interior.ColorIndex = xlNone
        .ApplyDataLabels Type:=xlDataLabelsShowValue, _
                        LegendKey:=False, AutoText:=True
    End With
ActiveChart.Axes(xlValue, xlSecondary).Delete

Et ensuite ca marche à merveille!

A plus,

Haleakala
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
438
Réponses
5
Affichages
131
Retour