VBA Ajouter commandButton et le code qui va avec

Dernière mise à jour le par lermite222 .

Code relativement simple et qui ne nécessite pas d'explication complémentaire.
Coller ces deux sub dans un module général (Module1 par exemple). 

Sub CréerBouton()   

Dim Obj As Object   
Dim Code As String   

Sheets("Feuil1").Select   

'crée le bouton   
    Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _   
    Link:=False, DisplayAsIcon:=False, Left:=200, Top:=100, Width:=100, Height:=35)   
    Obj.Name = "BoutonTest"   
'texte du bouton   
    ActiveSheet.OLEObjects(1).Object.Caption = "Tester le bouton"   

'Le texte de la macro   
    Code = "Sub BoutonTest_Click()" & vbCrLf   
    Code = Code & "Call Tester" & vbCrLf   
    Code = Code & "End Sub"   
'Ajoute la macro en fin de module feuille   
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule   
        .insertlines .CountOfLines + 1, Code   
    End With   
End Sub   

Sub Tester()   
    MsgBox "Vous avez cliquez sur le bouton test"   
End Sub


Télécharger classeur démo : Ajouter_boutons_et_codes.xls
Cet article est régulièrement mis à jour par des experts sous la
direction de Jean-François Pillou, fondateur de CommentCaMarche.
A voir également
Ce document intitulé « VBA Ajouter commandButton et le code qui va avec » issu de Comment Ça Marche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.