comment insérer un bouton dans une feuille à partir d'une macro

[ericTA]

Bonjour à tous,
A partir d'une macro je crée une nouvelle feuille et je cherche à faire apparaitre un bouton "BoutonLancer" (avec une certaine police, couleur,...) pour lancer une macro.

Private Sub BoutonLancer_Click()
Lancer.show
End Sub

Je ne trouve pas comment faire.
j'ai essayé :
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=436.861313868613, Top:=40.5109489051095, _
Width:=67.8832116788321, Height:=21.8978102189781).Select
Mais impossible de changer ni le nom, ni la police,...
Help
Merci d'avance
Eric

 

[pierrejean]

Re : comment insérer un bouton dans une feuille à partir d'une macro

Bonjour ericTA

Teste ceci

NB: ce n'est pas le même type Bouton

Sub Macro3()
    ActiveSheet.Buttons.Add(279, 60.75, 160.5, 62.25).Select
    Selection.OnAction = "Macro2"
    Selection.Characters.Text = "Bouton lancer"
    With Selection.Characters(Start:=1, Length:=13).Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With
End Sub

 

[ericTA]

Re : comment insérer un bouton dans une feuille à partir d'une macro

Merci pour cette réponse rapide,
Ca marche super bien
mais il y a-t-il un moyen de changer la couleur du bouton ?
Merci d'avance.
Eric

 

[pierrejean]

Re : comment insérer un bouton dans une feuille à partir d'une macro

Re

Je crains bien que non