nom d'un bouton

[Seb]

Bonjour,
j'ai créé un bouton auquel j'ai associé une macro mais je voudrais récupérer le texte qui est sur le bouton dans la macro.
Quelqu'un peut-il m'aider ?
Merci.

 

[@Christophe@]

Bonjour Seb

Si je comprends bien ton problème, utilise le code suivant:

Commandbutton1.caption

Cela te permets de récupérer le texte de ton bouton

Bonne journée

@Christophe@

 

[Jon]

si c'est un bouton dessiné avec la barre d'outils formulaire, tu peux simplement faire : ActiveSheet.Buttons("le bouton").Text

 

[Seb]

Ca ne marche pas : j'essaie un : "MsgBox CommandButton1.Caption" pour afficher son nom mais cela fait une erreur.
J'ai créé mon bouton à partir de la barre "Formulaires" de Excel et pas dans une macro. Mais je lui ai affecté une macro.

 

[eric]

Bonjour,

C'est peut-être juste un problème de synthaxe :
msgbox(commandbutton1.caption)

Chez moi, ça marche

Bon WE

 

[@Christophe@]

re

Jon, envoi un fichier, ce serait plus facile je crois

Merci

@Christophe@

 

[Seb]

Désolé Jon mais je ne comprends pas...
ActiveSheet.Buttons("le bouton").Text mais "le bouton" correspond à quoi ??

 

[Seb]

j'ai mis en pièce jointe le fichier que je voudrais modifier.
Merci de m'aider.

 

[@Christophe@]

Re

Tu voudrais donc que si tu pousse sur le boutton A2 que A2 ce marque dans la cellule, si j'ai bien compris

@Christophe@

 

[@+Thierry]

Bonjour ce Fil !!


Je pense que le problème provient du fait que vous ne parlez pas des mêmes boutons dans ce fil !!

Ci-joint une mini démo avec les deux Boutons (FORMULAIRE ou CONTROLE)

Ceci devrait effacer toute confusion

bonne fin d'aprèm
@+Thierry

 

[Seb]

Je voudrais que si on appuies sur A2 on aille sur A2 et si sur A3 on va sur A3.
Mais ce que je n'arrive pas à faire c'est récupérer le nom du bouton sur lequel j'appuie.
Je pourrai faire des lien hypertexte mais je préfère comme ça car il suffit de changer le nom du bouton pour changer de destination.

 

[Jon]

moi j'ai rien confondu !

"le bouton" c'est juste le nom d'un bouton X

et pour ta dernière question, c'est dans les anciens messages, menfin !
MsgBox ActiveSheet.Buttons(Application.Caller).Text

il faut se décarcasser, voudiou !

 

[Seb]

Merci j'ai enfin réussi...avec ActiveSheet.Buttons(Application.Caller).Text.
Bon week-end...

 

[@+Thierry]

Re Coucou,

Je ne parlais pas de toi STéphane pour la Confusion !

Tiens j'avais essayé differents trucs...

Mais le plus simple reste ta méthode STéph !! <<<=== Winner !!! lol

BOn WEek ENd à tOuS et ToUtEs

@+Thierry

 

[@Christophe@]

Re

J'aime bien ta petite démo Thierry, elle est intéressante comme toujours, merci

Bonne soirée

@Christophe@