Discussion :

[EvaristeGaloisBis]

Bonjour,
J'ai créé dynamiquement des labels sur une userform. J'aimerai pouvoir attribuer du code pour l'evement click() sur les labels créer.
J'ai ajouté dans un premier temps les parties de codes suivantes en dur :

Code :

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

1
2
3
private sub MonLabel_click()
  MsgBox "Coucou"
end sub

Or il se trouve que les labels ne réagissent pas du tout aux stimulii. Pourquoi?

Cette non réaction me gène un peu. J'avais dans l'idée de rajouter dynamiquement le code derrière mais je suis refroidi. J'aimerai savoir si lorsque je rajouterai dynamiquement le code le problème s'en ira. Et dans le cas contraire comment faire?

@micalement,

[ouskel'n'or]

Regarde ici si l'exemple donné par fring te conviendrait... mais je pense que oui

[EvaristeGaloisBis]

j'ai tenté de faire quelque chose par moi même mais je ne comprends pas pourquoi j'ai une erreur.
le code est le suivant :

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
Sub EncodeLeBouton(ByRef stNomLabel As String)
'rajoute le code lier au label
 
Dim x As Integer
Dim stMonCode As String
With ThisWorkbook.VBProject.VBComponents(ctmaframe).CodeModule
    .CreateEventProc "Click", stNomLabel 
    x = .ProcStartLine(stNomLabel & "_Click", vbext_pk_Proc)
 
    stMonCode = "InscritContact " & stNomLabel 
    .InsertLines x + 2, stMonCode
End With
 
'ferme la fenetre vba
Application.VBE.MainWindow.Visible = False
 
End Sub

Mon erreur m'indique : gestionnaire d'évenement non valide. Pourquoi? °_° je ne vois pas du tout...

[fring]

Supposons que tu as créer 5 Labels, Label1 à Label5

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
Sub creation_code()
Dim i As Byte, Col As New Collection
 
For i = 1 To 5
    Col.Add "Private Sub Label" & i & "_Click()"
    Col.Add "MsgBox " & """Vous venez de cliquer sur le Label " & i & ""
    Col.Add "End sub"
Next
 
With ActiveWorkbook.VBProject.VBComponents("UserForm1").CodeModule
    For i = 1 To Col.Count
        nextLine = .CountOfLines + 2
        .insertlines nextLine, Col.Item(i)
    Next
End With
 
End Sub

[EvaristeGaloisBis]

Mais il me semble que ça ne gènère pas l'evement clickable.

[fring]

Ahh bin s'il te semble, tu dois probablement avoir raison, ne perd surtout pas ton temps à essayer ce qu'on te propose.