Discussion :

[norman5]

Bonjour a tous

je creer un checkbox avec le code suivant:

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

[defluc]

Bonjour,

A adapter et tester

Code :

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

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

[norman5]

merci pour la reponce
ou je doit ecrire le code a rentrer dans le checkbox?

[defluc]

A la suite du code que tu as donné

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

[defluc]

Envoie le classeur et je complèterai le code.