bonjour Xavier
tu peux essayer :
Sub CreationCommandButtonEtMacroAssociée()
Dim oOLE As OLEObject
Dim X As Byte
Dim Code As String
Dim NextLine As String
Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=340, Top:=30, Width:=100, Height:=30)
'Left position bouton par rapport au bord gauche de la feuille
'Top position bouton par rapport au haut de la feuille
'Width largeur bouton
'Height hauteur bouton
X = ActiveSheet.OLEObjects.Count 'compter le nombre de boutons existants dans la feuille
'option nommer l'objet
oOLE.Name = "CommandButton" & X
'texte sur le bouton
ActiveSheet.OLEObjects(X).Object.Caption = "Le Forum XLD " & X
Code = "Sub CommandButton" & X & "_Click()" & vbCrLf
Code = Code & "Msgbox ""Bonjour le forum XLD""" & vbCrLf
Code = Code & "End Sub"
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
NextLine = .CountOfLines + 1
.InsertLines NextLine, Code
End With
End Sub
j'en profite pour recaser la macro qui ne t'a pas servi ce matin …;o)
bonne soiree
MichelXld