Discussion :

[moicwill]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daka]

Pour changer son intitulé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CommandButton1.Caption = "bip bip !"

Pour lui attribuer une procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é...

[moicwill]

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.

[SilkyRoad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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