Insertion d'une macro dans un bouton via VBA

Bonjour,

J'ai créé une macro dont à la fin elle affiche un bouton, mais je veux intégrer une macro directement à ce bouton à l'aide de mon programme. J'ai déjà chercher sur internet mais il ne donne que la solution manuel...

j'ai donc

Code:

---

1 2	ActiveSheet.Buttons.Add(0, 46, 65.5, 13).Caption = "Calcul" 'Affecter la macro "Calcul_gain" dans le bouton "Calcul" ?

---

Si quelqu'un aurait l’amabilité de m'indiquer la formulation qui va bien afin d'informatiser tous cela, je lui serais très reconnaissant.

Merci d'avance, max.

Bonjour,

un exemple au hasard, à toi de corriger

Code:

---

1 2 3 4 5 6 7 8

Sub ajouter_bt() Dim nom As String ActiveSheet.Buttons.Add(477, 120, 201, 43.5).Select Selection.OnAction = "PROGBOUTON" nom = Selection.Name ActiveSheet.Shapes(nom).Select Selection.Characters.Text = "SUPPRIMER LA FEUILLE" End Sub

---

Code:

---

1 2 3 4 5 6

Sub PROGBOUTON() Application.DisplayAlerts = False j = ActiveSheet.Index ActiveWindow.SelectedSheets.Delete Application.DisplayAlerts = True End Sub

---

Merci, j'ai pu m'inspirer de ton code et j'ai donc fait ceci (pour info, a ceux qui rencontreront le même problème):

Code:

---

1 2 3

ActiveSheet.Buttons.Add(0, 46, 65.5, 13).Select Selection.Caption = "Calcul" Selection.OnAction = "Calcul_gain"

---

Et ça marche, merci casefayere de ta réponse !:D

et bien sur mon code ne pouvait pas te parler, c'est un code apdapté pour mes besoins, l'important est que tu as compris

Bonne continuation