Code de Commandbutton par macro

Version imprimable

Bonjour,

Je dispose d'un code qui permet d'insérer un nouveau bouton dans mon formulaire :
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim Bouton1 As Control Set Bouton1 = UFLF.Controls.Add("Forms.CommandButton.1") With Bouton1 .Name = "BoutonOK" .Caption = "" .Left = 10 .Top = 10 .Width = 18 .Height = 18 .BackColor = &HFF& End With
Est-il possible de "pré"-coder l'action du clic sur ce nouveau bouton ?
Pour être clair, il faudrait qu'une fois crée, il contienne déjà le code sous le Sub BoutonOK_click

Merci par avance,

21/04/2015, 16h15
Invité

Bonjour,

Regardez ici le tutoriel de SilkyRoad.

Cordialement.

Ok, j'ai bien saisi le truc, voici le code :

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
Dim Ws As Worksheet
Dim Obj As OLEObject
Dim laMacro As String
Dim x As Integer
 
Set Ws = Sheets.Add 'Ajoute une nouvelle feuille
 
'ajoute un CommandButton dans la nouvelle feuille
Set Obj = Ws.OLEObjects.Add("Forms.CommandButton.1")
With Obj
    .Name = "monBouton" 'renomme le bouton
    .Left = 50 'position horizontale par rapport au bord gauche de la feuille
    .Top = 50 'position verticale par rapport au bord haut de la feuille
    .Width = 150 'largeur
    .Height = 30 'hauteur
    .Object.Caption = "Supprimer données feuille"
End With
 
'Ajoute la procédure dans la feuille
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
    .CreateEventProc "Click", "monBouton"
    x = .ProcStartLine("monBouton_Click", vbext_pk_Proc)
    .InsertLines x + 2, "Cells.Clear"
End With

Seul "hic" avec ce code du tuto : Il s'agit là d'un bouton ajouté dans un classeur. Je cherche à faire exactement la même chose mais avec un bouton ajouté dans un Userform. J'ai essayé d'adapté le code, en vain :(

Citation:

Envoyé par Bklein51

Seul "hic" avec ce code du tuto : Il s'agit là d'un bouton ajouté dans un classeur. Je cherche à faire exactement la même chose mais avec un bouton ajouté dans un Userform. J'ai essayé d'adapté le code, en vain :(

Le tuto comporte un exemple avec un Userform dans la partie V-A Créer
Code:

1 2 3 4 5 6 7 8 'Extrait du tuto With Usf.CodeModule j = .CountOfLines .InsertLines j + 1, "Sub " & nomListe & "_Click()" .InsertLines j + 2, "If Not " & nomListe & ".ListIndex = -1 Then MsgBox " & nomListe .InsertLines j + 3, "End Sub" End With
Cordialement.

22/04/2015, 09h59
Bklein51

Ok ok, j'avais juste mal lu, autant pour moi !

Je vais tester cela