Discussion :

[maximeriv]

Bonjour à toutes et à tous,

je vous écris car je n'arrive pas à régler mon problème.

J'ai une macro qui créé des graphiques pour chaque ligne (chaque "x") d'une feuille Excel. J'aimerai ajouter deux informations au graph, contenus dans une textbox.

J'ai ajouté cette ligne à mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 100, 20).TextFrame.Characters.Text = "=Fonctionnel!R" & x & "C4"

Pour récupérer le contenu de la cellule R1C4 (du texte) de la feuille "Fonctionnel" mais au lieu de ça, ça m'écrit FonctionnelR1C4 dans la textbox.

Avez-vous une idée ? J'aimerai ensuite récupérer une valeur numérique pour l'ajouter, soit dans la même box, soit dans une seconde.

Bonne journée !

[Jean-Philippe André]

Salut,

en pointant sur la valeur en tant que telle, tu dois faire évoluer de ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 100, 20).TextFrame.Characters.Text = "=Fonctionnel!R" & x & "C4"

devenant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 100, 20).TextFrame.Characters.Text = Worksheets("Fonctionnel").Range("D" & x).Value

il se peut que le symbole "=" doive être présent, dans ce cas l'ajouter.

[maximeriv]

Bonjour

Merci beaucoup ça fonctionne ! J'ai réussi à rajouter du texte avant donc c'est niquel.

Maintenant il faut que je trouve comment modifier la police etc...

Si j'ai bien compris je dois ajouter une ligne de code : TextBox.FontSize puis mes paramètres ?

Merci encore