Discussion :

[coconini94]

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

[Nicolas JACQUIN]

Bonjour,
Voici un exemple
@+

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Shapes noms.xlsm

[Zekraoui_Jakani]

Essayez ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Patrice740]

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)..

[coconini94]

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

[Nicolas JACQUIN]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+

[coconini94]

bonjour

un grand merci Nicolas JACQUIN

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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