Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub workbook_newsheet(ByVal Sh As Object) Dim Obj As Object Dim Code As String Sh.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 Module1.MAJMacro" & 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
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _ Link:=False, DisplayAsIcon:=False, Left:=200, Top:=100, Width:=100, Height:=35)
Obj.Name = "BoutonTest"