Récupérer et le coller le nom d'un shape

Bonjour,

Je galère pourtant ce que je cherche me semble très simple :

J'ai plusieurs feuilles. Dans chacune, plusieurs shapes.

Lorsque je clique sur une shape j'ai le nom qui s'affiche dans un msg box :

Sub ShapeClick()

Dim NomShape As String

NomShape = Application.Caller

MsgBox NomShape

End Sub

Or, je souhaite que pour chaque clic, le nom de chaque shap soit copié dans une case, chaque fois différente, d'une feuille X et qu'à chaque clic, les noms se mettent les uns à côté (ou en dessous qu'importe).

des idées ?

Bonjour,

Ci-joint une proposition à tester et adapter.

Lors d'un clic sur une des images (de chaque onglet), ajout d'une ligne dans l'onglet "Recap".

Bouben

bonjour Bouben,

wow ! c'est exactement ça....je n'aurais jamais trouvé !

mille mercis.

J'en profite pour une autre question : est-ce que l'on peut associer du texte (une courte phrase) à une shape, et telle que précédemment récupérer ce texte ?

Hello,

On peut écrire du texte dans une Shape, à voir si cela répond au besoin.

cf PJ, avec du texte dans certaines formes et la récupération ensuite du texte dans le récap.

Bouben

franchement !? je suis admiratif de cette maitrise . J'aurais mis des jours sinon plus à trouver quelque chose se rapprochant de cela.

Merci Bouben !