Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

incorporer le texte d'un bouton dans une macro VBA

  • Initiateur de la discussion Initiateur de la discussion nicopat
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

N

nicopat

Guest
Bonjour,

Je souhaite créer une macro qui insère un texte dans une cellule A1.
Ce texte sera fonction du texte contenu dans le bouton auquel la macro sera affectée.

Par exemple, si j'applique la macro à un bouton contenant le texte "10%", après avoir cliqué sur ce bouton, la cellule A1 contiendra "10%". Si j'applique cette macro à un autre bouton contenant "Paul", après avoir cliqué sur ce bouton, la cellule A1 contiendra "Paul".

Quelqu'un sait-il comment rédiger cette macro?

Merci
 
Re : incorporer le texte d'un bouton dans une macro VBA

Bonjour,

sans plus de précisions, peut-être:
Code:
Private Sub CommandButton1_Click()
    Range("A1") = CommandButton1.Caption
End Sub

A+
 
Re : incorporer le texte d'un bouton dans une macro VBA

Merci pour votre aide,

Cependant, je ne parviens pas à utiliser cette macro car cela ne semble pas être une macro à part entière : quand je la colle dans mon module, la macro n'apparaît pas dans la liste des macros.
 
Re : incorporer le texte d'un bouton dans une macro VBA

Merci Pierrejean,

cela me va très bien :
Sub Clavier()
ActiveSheet.Shapes.Range(Array(Application.Caller)).Select
Range("a1") = Selection.Characters.Text
End Sub



Une question supplémentaire cependant :
maintenant, la cellule destination n'est plus systématiquement A1.
- disons que la cellule destination par défaut est b2, puis lorsqu'on active de nouveau cette macro :
- si b2 contient déjà du texte, alors la cellule destination est c2
- si b2 et c2 contiennent déjà du texte, alors la cellule destination est d2
- etc...

Cela revient à identifier la première cellule vide parmi b2 et les cellules à droite de b2.
Autrement dit, je souhaterais incorporer dans la macro "Clavier" ci-dessus l'équivalent de :

DerLgn = .Range("b" & Rows.Count).End(xlUp).Row + 1

... mais à l'orizontal (au lieu de vertical).

J'espère être claire 😕

Merci pour votre aide

Nicole
 
Dernière modification par un modérateur:
Re : incorporer le texte d'un bouton dans une macro VBA

Je joins un exemple car ma demande n'est peut-être pas claire : le fichier joint présente une macro qui répond à ma demande initiale.

Maintenant, je souhaiterais modifier cette macro pour que :
la cellule destination par défaut est b2, puis lorsqu'on active de nouveau 1 des boutons auxquels cette macro est affectée :
- si b2 contient déjà du texte, alors la cellule destination est c2
- si b2 et c2 contiennent déjà du texte, alors la cellule destination est d2
- etc... horizontalement vers la droite...
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Réponses
29
Affichages
661
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…