Changer texte d'un objet en VBA

Bonjour à tous,

Je sollicite votre aide pour la manipulation d'objets en VBA.

Sur mon fichier exemple , j'arrive à déplacer la bannière, mais je ne trouve pas, par exemple, pour changer le texte.

J'ai essayer d'ajouter un espion sur celle-ci, mais j'obtiens dans la fenêtre espion le message:

"expression non définie par le contexte".

J'ai aussi testé pas mal de solutions (text....; characters...), sans aucun résultat.

Je vous remercie d'avance.

Amicalement

Bonjour

Essaye :

Sheets(1).Shapes("banniere_1").Select
Selection.Characters.Text = "TEST"

Amicalement

Nad

Bonjour,

salut Nad

ou

ActiveWorkbook.ActiveSheet.Shapes("banniere_1").TextFrame.Characters.Text = "Mon_Nouveau_Texte_ici!"

Cordialement

Bonjour Amadeus

Je préfère ton code ; de cette façon le shape n'est pas sélectionné.

Amicalement

Nad

Bonsoir,

Merci Nad, Amadeus.

Il me semble que j'avais essayé la solution de Nad, mais sans sélectionner l'objet, et cela ne marche pas.

Il est vrai que la solution d' Amadéus permet de ne pas sélectionner l'objet.

Amicalement