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 : Sélectionner tout - Visualiser dans une fenêtre à part
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