Bonjour

J'ai un petit souci concernant l'affectation de mon evenement "clic" sur les commandbutton créés dynamiquement.
En lisant le code en pas à pas , l'affectation semble se faire, mais une fois les boutons créés, le clic n'y fait rien. Voici mon morceau de code en cause:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Dim MonBoutonCom() As ClSBouton
Dim MonTableau() As String, MonNom As String, cel As Object, histo As String
Dim MonBoutonIci As MSForms.CommandButton
Dim ctrl As Control
 
.....
For i = 1 To compteur
                MonNom = "CommandButton" & i
                Set MonBoutonIci = USFTouteBrigade.Frame1.Controls.Add("Forms.CommandButton.1")
                With MonBoutonIci
                    .Name = MonNom
                    .Top = 10
                    .Width = 120
                    .Height = 18
                    .Left = decalage
                    .Caption = Replace(MonTableau(i), "/", "")
                End With
            decalage = decalage + 138
            Next i
       End If
 
       i = 1
    'on attribue a tous les boutons la classe clsbouton
 
    For Each ctrl In USFTouteBrigade.Frame1.Controls
        If TypeOf ctrl Is MSForms.CommandButton Then
            ReDim Preserve MonBoutonCom(0 To i)
            Set MonBoutonCom(i) = New ClSBouton
            Set MonBoutonCom(i).MonBouton = ctrl
            i = i + 1
        End If
    Next ctrl
....
et dans mon module de classe ClsBouton:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Public WithEvents MonBouton As MSForms.CommandButton
 
Private Sub MonBouton_Click()
    MsgBox "coucou"
End Sub
c'est pas du Shakespeare je l'avoue...

Enfin bref je suis bloqué depuis quelques heures sans arriver à comprendre mon erreur. Merci pour votre aide