Nom du SHAPES

[JMG]

Bonjour à tous

je cherche le moyen d'indentifié par macro le nom du Shapes sur lequel je clique

merci de votre aide
A+ JMG

 

[svpcok]

<http://www.ifrance.com/SVPCOK/lirebouton2.xls>
a+

 

[STéphane]

MsgBox ActiveSheet.Shapes(Application.Caller).Name

bye
stephane

ps : mon proxy refuse les site sur free, ifrance, wanadoo, etc

 

[merci]

merci
et pour le texte contenu dans le chape? svp

 

[STéphane]

MsgBox ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text

ça traine aussi quelque part sur mes pages (actioncellule.htm notamment)

bye
stephane

 

[Ti]

Super l'astuce de Application.Caller, je n'y avais jamais pensé ! Bravo Stéphane.

 

[JMG]

Bravo Stéphane
tu me surprend vraiment
Application .Caller
jamais utiliser
cela m'ouvre des possibilitées rarement exploiter sous Excel
merci beaucoup
JMG