creer un checkbox avec du code dedans

Version imprimable

Bonjour a tous

je creer un checkbox avec le code suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 framechoisi=1
cpt2=1
 
Set Obj = Controls("framee" & framechoisi).Controls.Add("forms.CheckBox.1")
 
       With Obj
            .Name = "selectionrecherche" & cpt2
            .Object.Caption = ""
            .Height = 18
            .Left = 6
            .Top = 18 * place
            .Width = 329
            .BackColor = &HFFFFFF
            .ForeColor = &HFFFFFF
            .FontSize = 14
            .TextAlign = 2
            .BackStyle = 0
      End With

Ce que je n'arrive pas a faire c'est d'introduire dans ce checkbox qui vient d'etre creer un code vba
Est il possible de le faire?

Bonjour,

A adapter et tester

Code:

1
2
3
4
5
6
  Code = "Private Sub " & "selectionrecherche" & Cpt2 & "_Click()" & Chr(10)
 
  Code = Code & "End Sub"
    With ActiveWorkbook.VBProject.VBComponents(forms.CheckBox1.CodeName).CodeModule
     .InsertLines .CountOfLines + 1, Code
    End With

17/02/2014, 15h57
norman5

merci pour la reponce
ou je doit ecrire le code a rentrer dans le checkbox?
17/02/2014, 17h00
defluc

A la suite du code que tu as donné
17/02/2014, 18h35
norman5

Excuse moi d insister mais peut tu me faire un exemple avec creation+insertion de code dans la checkbox?
Desole je n'arrive pas a trouver...
18/02/2014, 09h11
defluc

Envoie le classeur et je complèterai le code.

heu...je n'arrive pas a envoyer le fichier (fichier incompatible)
voila 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
25
 
Private Sub CommandButton1_Click()
'creation
framechoisi = 1
cpt2 = 1
 
Set Obj = Controls("framee" & framechoisi).Controls.Add("forms.CheckBox.1")
 
       With Obj
            .Name = "selectionrecherche" & cpt2
            .Object.Caption = ""
            .Height = 18
            .Left = 6
            .Top = 18 * place
            .Width = 329
            .BackColor = &HFFFFFF
            .ForeColor = &HFFFFFF
            .FontSize = 14
            .TextAlign = 2
            .BackStyle = 1
      End With
 
'code a inserer dans la check
Controls("framee" & framechoisi).Controls("selectionrecherche" & cpt2).BackColor = &HE0E0E0
end sub

Merci et desole de ne pas avoir reussi a envoyer le fichier