J'ai commencé un code pour affecter des boutons sur une feuillle. Mais je voudrais y inscrire pour le texte du bouton le nom de la macro associée et la je pêche un peu :
Voici mon début:
Code:
For i = 1 To ActiveSheet.Shapes.Count
If Left(ActiveSheet.Shapes(i).Name, 6) = "Button" Then ActiveSheet.Shapes(i).Select
'Ici inscrire sur le bouton le texte de la macro associée
Next
Re : VBA: Afffecter le texte d'un bouton à sa macro
Bonjour Michel,
Je comprends qu'il s'agit de boutons Formulaires :
Code:
Dim s As Shape
For Each s In ActiveSheet.Shapes
If Left(s.Name, 6) = "Button" Then _
s.TextFrame.Characters.Text = s.OnAction
Next
Ou aussi, sans le nom du fichier :
Code:
Dim s As Shape
For Each s In ActiveSheet.Shapes
If Left(s.Name, 6) = "Button" Then _
s.TextFrame.Characters.Text _
= Mid(s.OnAction, InStr(s.OnAction, "!") + 1)
Next