Excel & VB - Récupérer le nom objet cliqué

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 !

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.

Oui merci pour ton aide !

Le problème c'est que j'ai bien compris la procédure d'enregistyrement de macro pour récupérer tous les paramètres de mon rectangle.

En fait j'ai une 30 aine de rectangle chacun avec une couleur et motifs différents.

J'ai une macro assigné pour tous les rectangles (1 à 30).

Et je voudrais que cette macro récupere les paramètres du rectangle cliqué pour les transférer vers un autre rectangle que j'aurais dessiné préalablement (et qui est blanc à l'origine).

Ceci pourra éviter de faire une macro pour chaque rectangle de couleur et de motif spécifique ... : (on évite tout ca :)
Sub Rectangle1_QuandClic()
...
End Sub

Sub Rectangle2_QuandClic()
...
End Sub
...
...
...
Sub Rectangle29_QuandClic()
...
End Sub
Sub Rectangle30_QuandClic()
...
End Sub

Comme ca je n'ai qu'une macro qui récupere le nom du rectangle cliqué qui récupere la couleur et le motif de ce rectangle et qui permet de colorier un autre rectangle grace à ces paramètres récupérés ...

Ca doit pas être bien compliqué pourtant ??? Mais trop pour moi pour l'instant.

Merci à tous et surtout à Amigo :)

Cool, est ce que qqn aurait les termes à utiliser pour récupérer non pas le nom, mais la position et les dimensions de mon rectangle de la même manière?