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
le probleme cela me genere bien la sub mais ca me ferme ma userform
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
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
Partager