Bonjour Ludo, le Forum
Ce genre de code WithEvents est ce que je suis en train d'appronfondir sur des Modules de Class, mais de là à le générer automatiquement, je ne me suis en fait jamais encore retrouvé à un tel besoin...
La difficulté majeure dans cette éventualité sera d'écrire dans deux endroit bien distincts du VBProject, le Module du UserForm lui-même mais aussi et surtout dans un Module de Class... Tout en synchronisant les Informations...
Dans un premier temps, quoique que l'idée soit interressante, je vais t'orienter vers une solution basic plus facile et plus rapide (pour moi aussi !! lol)
Donc une fois ton UserForm généré, si tu ne l'as pas nommé autrement il devrait se nommer UserForm1. Comme tu dis savoir générer tes 10 Labels nommés 'Label1, Label2, Label3, ... etc Label10' donc il te suffira d'enchainer cette procédure :
Citation:
Sub MyLabelClicks()
Dim x AsInteger
Dim L AsByte
With ThisWorkbook.VBProject.VBComponents('UserForm1').C odeModule
For L = 1 To 10
x = .CountOfLines
.InsertLines x + 1, 'Sub Label' & L & '_Click()'
.InsertLines x + 2, 'MsgBox ''Label Numero ' & L & ''
.InsertLines x + 3, 'End Sub'
Next
EndWith
EndSub
|
Bonne Fin de Journée
[ol]@+Thierry[/ol]