copier ce qui est ecrit dans un bouton!

[nicroq]

Bonjour a tous! et merci pour votre aide!

je souhaiterai savoir si il serait possible de faire en vba ceci:
j'ai un bouton nommé "bouton 1" et je souhaiterai que lorsque je clique sur ce bouton, que la macro permette d ecrire "bouton 1" sur une ligne.

en vous remerciant

 

[Dranreb]

Re : copier ce qui est ecrit dans un bouton!

Bonjour.

Dans votre macro affectée au bouton de formulaire vous pouvez récupérer son nom, c'est Application.Caller.

 

[nicroq]

Re : copier ce qui est ecrit dans un bouton!

ok merci beaucoup!
etant debutant pourriez vous me faire un petit exemple tres rapide?
cordialement

 

[Dranreb]

Re : copier ce qui est ecrit dans un bouton!

Affectez cette macro à plusieurs boutons de formulaire (ne marche pas avec des boutons de commande ActiveX) et cliquez dessus.

Sub MacroCommune()
Dim Nom As String, Sh As Shape, Texte As String
Nom = Application.Caller
Set Sh = ActiveSheet.Shapes(Nom)
Texte = Sh.TextFrame.Characters.Text
MsgBox Nom & ": """ & Texte & """."
End Sub

 

[nicroq]

Re : copier ce qui est ecrit dans un bouton!

merci beaucoup!!
serait il possible de copier le premier mot du bouton dans un cellule et le deuxième mot dans une autre?

 

[nicroq]

Re : copier ce qui est ecrit dans un bouton!

mes deux mots sont séparés par entrée peut etre que cela pourrait vous aider?

 

[Dranreb]

Re : copier ce qui est ecrit dans un bouton!

Probablement séparés par un passage à ligne suivante plutôt.
Dim TSpl() As String: TSpl = Split(Texte, vbLf) vous en renverrait un tableau à deux éléments, TSpl(0) et TSpl(1)

 

[nicroq]

Re : copier ce qui est ecrit dans un bouton!

ok merci barbatruc!
j'aurais une derniere question : serait il possible de copier ces deux mots dans une zone de liste deroulante?

 

[Dranreb]

Re : copier ce qui est ecrit dans un bouton!

De formulaire ? Je ne sais pas trop, jamais fait.
À la propriété List d'un ComboBox d'Userform, oui, je pense.

 

[nicroq]

Re : copier ce qui est ecrit dans un bouton!

oui de formulaire!!

 

[nicroq]

Re : copier ce qui est ecrit dans un bouton!

ou peut etre que tout cela serait plus facile avec des boutons de controles... etant novice je ne connais pas la meilleure solution...