Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 graphique en anneau

gwena2b

XLDnaute Nouveau
Bonjour à tous
j'ai mis en place un graphique en anneau. En cellule A1, j'ai une valeur et en cellule A2 j'ai mis une formule : 100-A1
Un collègue de travail m'a créé un code vba qui doit mettre a jour mon graph en anneau en tenant compte de la nouvelle valeur de A1 et en l'affichant au centre en rajoutant "/100".
Mais lorsque je change la valeur en A1, j'ai un message d'erreur.
Pour que le graphique se mettre a jour en fonction de cette nouvelle valeur, je suis obligé de cliquer sur débogage du message d'erreur mais la mention "/100" n'apparait toujours pas"
Avez vous une solution pour éviter ce message d'erreur.
Merci d'avance.
Cordialement
 

Pièces jointes

  • Test_graph_anneau.xlsm
    28.3 KB · Affichages: 7

vgendron

XLDnaute Barbatruc
Bonjour
la dernière ligne de code est incorrecte: à remplacer par
Me.ChartObjects(1).Chart.Shapes("TextBox 1").TextFrame.Characters.Text = value & "/100"

sinon, pour que ce soit plus court à l'affichage autant mettre des %
Me.ChartObjects(1).Chart.Shapes("TextBox 1").TextFrame.Characters.Text = value & "%"
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…