une macro et plusieur shapes

[genevieve]

Bonjour,
j'ai plusieur shapes ( rectangle, cercle...) de la boite d'outil dessin .je veux leur affecter la même macro , mais dans cette macro je veux réccuperer le nom du shape sur lequel j'ai clicker .


merci

 

[Hervé]

Bonjour

Ce code permet de récupérer le texte indiquer dans le shape qui à lancer la macro:

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

et celui ci son nom :
MsgBox ActiveSheet.Shapes(Application.Caller).Name

salut
Hervé