[VBA] Application.Caller défectueux

yoyan25 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je dispose d'un bouton (commandbutton) sur une feuille Excel 2003, j'aimerais que lorsque je clique dessus une msgbox apparaisse avec le nom du bouton.
J'ai essayé le code suivant :

Private Sub CommandButton1_Click()
MsgBox Application.Caller
End Sub

Cela me donne une erreur : incompatibilité de type

Y a t-il une erreur dans mon code ? Avez-vous une autre méthode ?

Merci d'avance

4 réponses

thev Messages postés 1986 Date d'inscription   Statut Membre Dernière intervention   713
 
Private Sub CommandButton1_Click()
MsgBox CommandButton1.Name
End Sub
0
Yoyan25
 
Merci thev pour ta réponse, mais ce que je cherche en fait c'est d'obtenir : commandbutton1, donc je peut pas l'utiliser dans la fonction.

Tu as une autre idée ?
0
yoyan25 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Pas d'autres idées ?

Merci
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Ce que t'as donné Thev est correct. commandButton1.Name te bien le nom de ton contrôle commandButton.

Si tu veux obtenir l'intitulé, c'est à dire le texte qui apparait sur le bouton, il faut faire :

MsgBox commandButton1.Caption

0