VBA Ajouter commandButton et le code qui va avec

Septembre 2016


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

A voir également :

Ce document intitulé «  VBA Ajouter commandButton et le code qui va avec  » issu de CommentCaMarche (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.