bonjour à tous,

voilà j'ai créé des checkbox en dynamique, mais je n'arrive pas à récupérer l'évènement "click" individuellement pour chaque checkbox.

Voici mon code

Dans un module de classe : "classe1"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Public WithEvents ess As CheckBox
 
Private Sub ess_click()
'ici je recupère bien tous mes évènement click
 
End Sub
Dans le code de mon userform

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
16
Option Explicit
Dim cgroup() As New Classe1
Public i As Integer
 
Private Sub CommandButton1_Click()
 
i = i + 1
ReDim Preserve cgroup(1 To i) As New Classe1
Set cgroup(i).ess = Controls.Add("Forms.checkbox.1", "toto", True)
With cgroup(i).ess
.Move i * 10, i * 20
.Visible = True
 
End With
 
End Sub

Si quelqu'un peux m'aider, merci