Microsoft 365 graphique en anneau

[gwena2b]

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

 

[vgendron]

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 & "%"

 

[gwena2b]

Merci beaucoup ça marche impec