Salut à tous,

J'ai créé dans un useform des controls dynamiques (checkbox), et je souhaite leur affecter à chacun un évènement Click.
Ces évènements doivent donc être créés dynamiquement, mais en suivant le tutorial de SilkyRoad disponible ici, je tombe sur une erreur inédite (pour moi) : "Programmatic access to VBProjet is not trusted".

Mon 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
Dim x As Integer
Dim EvtClick As String
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
     .CreateEventProc "Click", "CK2_" & Collec.Item(i)
     x = .ProcStartLine("CK2_" & Collec.Item(i) & "_Click", vbext_pk_Proc)
     .InsertLines x + 2, EvtClick
End With
'Spécifie le contenu de la macro qui sera associée l'évènement
EvtClick = "Sub " & "CK2_" & Collec.Item(i) & "_Click()" & vbCrLf
EvtClick = EvtClick & "If CK2_" & Collec.Item(i) & ".Value = True Then" & vbCrLf
EvtClick = EvtClick & "MsgBox 'Ok'" & vbCrLf
EvtClick = EvtClick & "Else" & vbCrLf
EvtClick = EvtClick & "MsgBox 'Ko'" & vbCrLf
EvtClick = EvtClick & "End If" & vbCrLf
EvtClick = EvtClick & "End Sub"
Merci d'avance