Discussion :

[Bklein51]

Bonjour,

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

Code :

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

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,

[Invité]

Bonjour,

Regardez ici le tutoriel de SilkyRoad.

Cordialement.

[Bklein51]

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

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

[Invité]

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 :

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

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.

[Bklein51]

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

Je vais tester cela