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.
Affectez cette macro à plusieurs boutons de formulaire (ne marche pas avec des boutons de commande ActiveX) et cliquez dessus.
VB:
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
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)