[VBA] Application.Caller défectueux

Question

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

thev · Answer

Private Sub CommandButton1_Click()
MsgBox CommandButton1.Name
End Sub

Yoyan25 · Answer

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 ?

yoyan25 · Answer

Pas d'autres idées ? 

Merci

Polux31 · Answer

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

[VBA] Application.Caller défectueux

4 réponses

Votre réponse

Discussions similaires

Newsletters