Bonjour,

Je vois que tu es toujours en galère avec tes rectangles colorés.

Comme on te l'as déjà dit, il suffit quelque fois d'enregistrer une macro pour que la lumière soit.
Je vais t'expliquer comment je procède.

Par exemple, je dessine un rectangle "Rectangle 1", puis j'enregitre une macro "Macro1" (Menu Outils Macro Nouvelle Macro)
Clic droit sur le rectangle, Format de la forme automatique...
Je change la couleur du fond, la bordure...Je ferme la boite de dialogue.
J'arrete l'enregistrement de Macro1, Editeur Visual Basic, Module1 (ou Module2...),et je recupère le code

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 18/02/2008
'
'
ActiveSheet.Shapes("Rectangle1").Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 11
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
End Sub

C'est pas bien compliqué. Maintemant je veux afficher certaines propriété de ce rectangle quand je clic dessus.

Je crée une macro qui s'appelle Rectangle1_QuandClic(), atention à l'orthographe, le nom est important car il fait référence à un évènement prédéfini.

Sub Rectangle1_QuandClic()
'pour repondre à ta question j'affiche le nom
'mais je ne vois pas trop l'interet de connaitre le nom de l'obet
MsgBox ActiveSheet.Shapes("Rectangle 1").Name

'Accessoirement voici la couleur de l'objet
ActiveSheet.Shapes("Rectangle 1").Select
MsgBox Selection.ShapeRange.Fill.ForeColor.SchemeColor
End Sub

Je vais dans ma feille excel, clic droit sur rectangle1, Affecter une macro -> Rectangle1_QuandClic()
C'est terminé. Quand je passe sur le rectangle, le curseur change. Je clic dessus et les messages programmés s'affichent.

J'espère que ça t'avencera un peu. Salut.

Essaye cela :

Sub ShapeClick()

Dim NomShape As String
NomShape = Application.Caller

Msgbox NomShape

End Sub

Tu affectes la macro aux objets désirés

Merci à ChrisKang dans une autre discussion !