Discussion :

[hocine]

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 :

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

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

comment dois je procéder?
MERCI

[ouskel'n'or]

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

[steakalive]

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 :

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

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

).

[hocine]

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.

[SilkyRoad]

bonsoir


Tu peux également affecter cette macro à ta forme :

Code :

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

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

[hocine]

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