VBA: Afffecter le texte d'un bouton à sa macro

[MJ13]

Bonjour à tous

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:

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

Merci d'avance 🙂.

 

[job75]

Re : VBA: Afffecter le texte d'un bouton à sa macro

Bonjour Michel,

Je comprends qu'il s'agit de boutons Formulaires :

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 :

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

A+

 

[MJ13]

Re : VBA: Afffecter le texte d'un bouton à sa macro

Bonjour Gérard.

Je comprends qu'il s'agit de boutons Formulaires

Mais tu es devin 😱. En plus, j'aime pas les boutons ActiveX 😱.

Merci beaucoup, c'est super 🙂.