Récupérer le nom d'un objet

[Magic_Doctor]

Bonsoir,

J'ai un bouton (non ActiveX) sur ma feuille qui s'appelle "Bouton1".
Quand je clique dessus, dans la macro qui est affectée à ce bouton, je voudrais répupérer son nom, autrement dit "Bouton1".
Comment m'y prendre ?

Merci pour tout tuyau.

 

[laurent950]

Re : Récupérer le nom d'un objet

Bonsoir,

Vous avez un fichier avec un bouton ? pour recuper le nom de cette objet ?

laurent

 

[Magic_Doctor]

Re : Récupérer le nom d'un objet

Bonsoir,

Oui, sur la feuille il y a un bouton que j'ai créé, j'ai appelé ce bouton "Bouton1" et j'ai affecté une macro à ce bouton.
Quand je clique sur le bouton, fatalement la macro se déclenche. Je voudrais, dans la macro, récupérer le nom du bouton qui l'a déclenchée, à savoir "Bouton1".

 

[Grand Chaman Excel]

Re : Récupérer le nom d'un objet

Bonjour,

Ceci peut-être (Application.Caller) ?

Sub Bouton1_Clic()
    MsgBox Application.Caller
End Sub

A+

 

[laurent950]

Re : Récupérer le nom d'un objet

Comme cela

ActiveSheet.Shapes.Range(Array("Bouton1")).Select

et pour le nom

MsgBox ActiveSheet.Shapes.Range(Array("Button 2")).Name

laurent

 

[Staple1600]

Re : Récupérer le nom d'un objet

Bonsoir à tous

Test OK avec un Bouton1 (issu de la barre d'outils Formulaire)

Sub Bouton1_QuandClic()
'(inspiré de mikericson-182012)
MsgBox IIf(TypeName(Application.Caller) = "String", "L'objet: " & Application.Caller & " a été cliqué.", "Pas d'objet cliqué")
End Sub

 

[Magic_Doctor]

Re : Récupérer le nom d'un objet

Bonsoir tout le monde,

Un grand merci pour vos interventions.
En effet, le mot magique est : "Application.Caller", que je ne connaissais pas.

Muy buenas noches a todos.