[VBA-E] Comment créer un bouton ds une wksheet par un code vba

Bonjour,

En fait j'arrive a creer un bouton ds une wksheet a partir de mon code VBA (excel).
Ce que j'aimerais savoir, c comment:
- Lui affecter un label (caption)?
- Lui attribuer une procedure qui s'executera a son click.

Merci

PS: j'utilise ce code:

Code:

---

1 2 3

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ , DisplayAsIcon:=False, Left:=120, Top:=178, Width:=60, Height:=35). _ Select

---

Pour changer son intitulé :

Code:

---

CommandButton1.Caption = "bip bip !"

---

Pour lui attribuer une procédure :

Code:

---

1 2 3

Private Sub CommandButton1_Click() 'ce que tu veux qu'il fasse quand tu cliquettes End Sub

---

Pour la suite, je te conseilles de faire des essais avec l'enregistreur de macro. Tu commences l'enregistrement, tu fais les actions que tu veux coder. Tu arrêtes l'enregistrement, et tu vas voir le code généré...

merci pour ta reponse,

mais c pas tout a fait ce ue je veux.

ta solution marche ds le cas ou le bouton est crée "manuellement".
Le mien est créer dynamiquement ds un nvelle créée elle meme dynamiquement.

je ne pense pas que cela soit si simple.

bonjour

cet exemple permet d'ajouter un bouton dans la feuille et d'y associer une macro qui supprime les données des cellules

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Dim Ws As Worksheet, Obj As OLEObject Dim laMacro As String Dim x As Integer   Set Ws = ActiveSheet     Set Obj = Ws.OLEObjects.Add("Forms.CommandButton.1") With Obj .Left = 50 .Top = 50 .Width = 120 .Height = 30 .Object.Caption = "Supprimer données feuille" End With   laMacro = "Sub CommandButton1_Click()" & vbCrLf laMacro = laMacro & "Cells.Clear" & vbCrLf laMacro = laMacro & "End Sub"   With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule x = .CountOfLines + 1 .InsertLines x, laMacro End With

---

bon apres midi
michel