Discussion :

[chanoir]

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

[patricktoulon]

bonjour

fait une recherche dans les contributions tu a exactement ce que tu cherche

et je dirais même que ta 2 Emme boucle n'est pas nécessaire inclue bouton dans la classe dans la boucle qui le créé
Au plaisir

[chanoir]

j'avais inclus au départ ma liaison classe-bouton dans la boucle de création mais je me suis dit qu'au lieu de faire x fois le meme travail, valait mieux le faire une seule fois sur tous les boutons, comme quoi la premiere idée parfois... en tout cas merci, je vais rechercher ça dans les contributions.
Je marquerai cette discussion en "résolue" des que j'aurai trouvé.

[chanoir]

ça y est, problème résolu:
En fait plusieurs petites erreurs-

j'ai passé la déclaration de la variable MonBoutonCom en public dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim MonBoutonCom() As ClSBouton

j'ai repassé ma liaison boutoncommande>module de classe au sein de la boucle de creation du bouton, sans oublier de redimensionner ma variable

...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ReDim Preserve MonBoutonCom(0 To i)
Set MonBoutonCom(i) = New ClSBouton
Set MonBoutonCom(i).MonBouton = MonBoutonIci

et voili!
Merci pour le coup de main.