récupérer le nom d'une forme dans une cellule

bonjour

j'ai créé une carte de France interactive par département , j'ai réussi à récupérer le non d'une forme (département) dans une cellule avec une macro :

Code:

---

1 2 3 4 5 6 7 8

Sub Macro26()   ActiveSheet.Shapes.Range(Array("moselle")).Select Range("K4").Select ActiveCell.FormulaR1C1 = "Moselle"     End Sub

---

afin d'éviter de faire une macro par département je souhaiterais que lorsque je clique sur une forme (département) celui-ci mette le nom de la forme (département) dans la cellule. que la forme active engendre le texte dans la cellule

espérant avoir été clair

merci

Bonjour,
Voici un exemple
@+

Code:

---

1 2 3 4 5

Sub ShapeClick()   MsgBox "Vous avez cliquez sur la région N° " & Application.Caller   End Sub

---

Pièce jointe 591297

Essayez ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub NomsDeFormes()   Dim p As Shape Dim j As Long: j = 4 'début en 4ème ligne   For Each p In ActiveSheet.Shapes ActiveSheet.Cells(j, 11) = p.Name 'j(ème) ligne, colonne K 'MsgBox "La forme est : " & p.Name ' à désactiver (en commentaire) j = j + 1 Next p   End Sub

---

Bonjour,

Je ne vois pas l'intérêt d'inscrire le nom de la forme dans la cellule qui la supporte !
Ça ne fait que sur charger la feuille.
Dans tous les cas, il faudra affecter une macro à chaque forme,
on dispose alors des informations sur cette forme (comme le propose Nicolas)..

bonjour

merci pour vos retour

l'intérêt de mettre le nom dans une cellule est d'avoir ensuite une recherche V me donnant des résultat par département

merci Nicolas JACQUIN mais il ne me faut pas de msgbox

merci Zekraoui_Jakani je récupère bien tous les noms des formes mais tous en même temps hors il me faut uniquement la forme active

Patrice740 je ne veux pas que le nom de la forme s'inscrive dans la cellule qui la supporte !

je vous ai mis une capture d'écran , une fois cliquer sur la forme qui a le nom du département il s'inscrit en K4 et mes recherches V s'inscrivent

merci

Bonjour,

Code:

---

1 2 3 4 5 6

Sub ShapeClick()   'MsgBox "Vous avez cliquez sur la région N° " & Application.Caller Range("K4").Value = "région N° " & Application.Caller   End Sub

---

@+

bonjour

un grand merci Nicolas JACQUIN

je l'ai juste modifié pour avoir que le nom de la forme

Code:

---

1 2 3 4 5 6

Sub ShapeClick()   'MsgBox "Vous avez cliquez sur la région N° " & Application.Caller Range("K4").Value = Application.Caller   End Sub

---

merci beaucoup