Discussion :

[macx56]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[casefayere]

Bonjour,

un exemple au hasard, à toi de corriger

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub PROGBOUTON()
 Application.DisplayAlerts = False
j = ActiveSheet.Index
    ActiveWindow.SelectedSheets.Delete
 Application.DisplayAlerts = True
End Sub

[macx56]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[casefayere]

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