Récupérer le nom d'un objet

laurent950

XLDnaute Accro

• 27 Février 2013

• #2

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

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 27 Février 2013

• #3

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

 

Vote positif 0 Vote négatif

Grand Chaman Excel

XLDnaute Impliqué

• 27 Février 2013

• #4

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

Bonjour,

Ceci peut-être (Application.Caller) ?

VB:

Sub Bouton1_Clic()
    MsgBox Application.Caller
End Sub

A+

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Accro

• 27 Février 2013

• #5

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

 

Dernière édition: 27 Février 2013

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Février 2013

• #6

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

Bonsoir à tous

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

Code:

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

 

Dernière édition: 27 Février 2013

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 27 Février 2013

• #7

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.

 

Vote positif 0 Vote négatif