VBA Ajouter commandButton et le code qui va avec
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
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.