Discussion :

[alexandre.g]

Bonjour à tous,

Je bloque sur un problème relativement basique.
J'ai un graphique avec une zone de texte (différente de son titre) que je souhaite modifier en VBA.

Pour la créer pas de soucis j'utilise le code :

Code :

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

1
2
ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 8, 9, 90, 20).Select
Selection.Characters.Text = "Ceci est un essai"

Néanmoins pour accéder à l'objet j'essaie un code du type :

Code :

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

ActiveSheet.ChartObjects("NomGraphique").Chart.Shapes("ZoneTexte").Characters.Text = "Texte de remplacement"

Mais cela n'abouti pas, et je ne trouve pas la bonne doc.
Quelqu'un ?

[Nako_lito]

est ce que tu peux mettre ton fichier en ligne stp ?

A première vue je dirais de sortir le .characteres.text a la fin et mettre juste .text.

Mais je pourrais faire des tests avec ton fichier

[mercatog]

Pour ajouter et nommer une Textbox à un objet graphique de la feuille Feuil1

Code :

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

1
2
3
4
5
'Créer et nommer
With Worksheets("Feuil1").ChartObjects(1).Chart.Shapes.AddTextbox(msoTextOrientationHorizontal, 8, 9, 190, 20)
    .Name = "MaZoneDeTexte"
    .TextFrame.Characters.Text = "Ceci est un essai"
End With

Pour modifier le text

Code :

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

1
2
'Modifier
Worksheets("Feuil1").ChartObjects(1).Chart.Shapes("MaZoneDeTexte").TextFrame.Characters.Text = "Texte de remplacement"

[alexandre.g]

Merci à vous deux.

La solution de mercatog est simple et efficace !