[Résolu par Danreb] Recuperer le nom du bouton

[Hieu]

Bonjour,

Comment récupérer le nom du bouton ?

J'avais vu application.caller, mais ça ne me renvoie pas "TOTO" ?

 

[Dranreb]

Bonjour.

Sub mlkm()
Range("a1") = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
End Sub

 

[Hieu]

Merci !!