Evénement de contrôle dynamique

[lolo]

Bonsoir à toutes & tous,

Dans une macro je crée un contrôle checkbox dynamique (c'est-à-dire que ce contrôle est créé par le programme de la macro et n'existe pas "en dur" dans la macro). Comment puis-je gérer l'événement Click associé à ce contrôle pendant l'exécution de la macro ?

D'avance Merci.

 

[michel]

bonsoir lolo

l'exemple ci dessous créée un checkbox dans la feuille active et associe une macro evenementielle "Click"


Sub Ajout_CheckBox_et_Macro()
Dim Obj As OLEObject
Dim Code As String
Dim NextLine As String

Set Obj = ActiveSheet.OLEObjects.Add("Forms.CheckBox.1")
With Obj
.Left = 100
.Top = 100
.Width = 30
.Height = 30
End With

Code = "Sub Checkbox1_Click()" & vbCrLf
Code = Code & "Msgbox ""Le forum XLD""" & vbCrLf
Code = Code & "End Sub"

With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
NextLine = .CountOfLines + 1
.InsertLines NextLine, Code
End With

End Sub


bonne soirée
michel