Evènement créé dynamiquement

[zoidy]

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 :

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

[tirex28]

Bonjour,

Outils>Macros>Securite> Cocher "Faire confiance au projet Visual basic"

En anglais ce doit etre quelque chose comme "Trust visual basic project"

Cordialement,

Tirex28/

[zoidy]

Bien vu

Le problème c'est que ce n'est malheureusement pas portable d'un pc a l'autre ca

[tirex28]

Bonjour,

Code :

1
2
3
4
5
6
7
 
Private Sub Workbook_Open()
    Dim vbpName As String
    On Error Resume Next
    vbpName = ThisWorkbook.VBProject.Name
    If vbpName = vbNullString Then MsgBox "Veuillez cocher ..."
End Sub

Le message s'affiche uniquement si l'option est désactivé. Pas top mais j'ai pas mieux.

Cordialement,

Tirex28/

[zoidy]

Merci tirex28

Finalement je laisse tomber la création des événements dynamique vu que je sens que ça va me prendre plus la tête qu'autre chose... surtout que ça ne sert qu'à apporter du confort d'utilisation (donc négligeable )