hello a ceux qui ont la solution , les autre aussi

je creer des contols dynamiquement par code
et je souhaiterai leur adjoindre une fonction
j ai fait un truc comme ca

PrixDesignation" & niveau = mon control

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Dim NextLine As Integer
    Dim strCode As String
    strCode = "Private Sub PrixDesignation" & niveau & "_Click()" & Chr(13) & Chr(13)
    strCode = strCode & "msgbox " & Chr(34) & "texte change" & Chr(34)
    strCode = strCode & Chr(13) & "End Sub" & Chr(13)
 
    With ThisWorkbook.VBProject.VBComponents("PrixDesignation" & niveau).CodeModule
        NextLine = .CountOfLines + 1
        .InsertLines NextLine, strCode
    End With
le probleme cela me genere bien la sub mais ca me ferme ma userform
attention tout ce passe dans un userform sous excel bien evidement

merci infiniment de me mettre sur une piste
si je trouve je posterai la solution