modifier le texte d'une shape par un clic

Salut,
j'ai un objet Shape sur ma feuil2, et je souhaiterai qu'en cliquant dessus, l'utilisateur puisse modifier le texte, sans passer par le clique droit de la souris/modifier le texte.

Code:

---

1 2 3

set mydocument=worksheets(2) mydocument.shape(4).?

---

comment dois je procéder?
MERCI

Tu devrais jeter un oeil à cet excellent tuto écrit par ce non moins excellent fring... http://fring.developpez.com/vba/excel/zonetxt/, y'a tout ce que tu veux sur les zones de texte ;)
Bonne soirée

Bonjour,

Vous pourriez essayer d'affecter une macro au shape,
celle-ci appelant un userform (ex : userform1.show),
ce dernier composé d'un textbox et d'un bouton,
ce bouton recuperant le texte saisi dans la textbox et l'affectant au shape
(ex :

Code:

---

1 2	activesheet.shapes("Wordart 1").select Selection.shaperange.texteffect.text=userform1.textbox.value

---

).

Salut,
je vous remercie pour vos réponses, je vais les essayées après.
Pour le moment j’aimerai vous éclaircir un petit point, le Shape ce n’est pas une zone de texte mais j’ai utilisé Insertion/ Formes.
Donc je ne sais pas si votre astuces pour zone de texte serait le même que pour la Forme inserer.
En attendant que j'esssaye vos astuces.
Acceptez mes sincères remerciements.

bonsoir


Tu peux également affecter cette macro à ta forme :

Code:

---

1 2 3 4 5

Sub MiseA_Jour() ActiveSheet.Shapes(Application.Caller). _ TextFrame.Characters.Text = _ InputBox("Saisissez une donnée:") End Sub

---

bonne soirée
michel

Merci michel,
je crois que je vais opté pour votre solution.
Merci.