Création de CheckBox aléatoire

[Christian]

Salut à tous

C'est la première fois que je viens ici et je vais essayer d'être clair !

Lors du chargement d'un Userform, je souhaite qu'apparaisse de 1 à n CheckBox (Non prévus à la conception du Userform)
Pour cela pas de problème avec : Controls.Add("Forms.CheckBox.1")

Ou cela ce corse, c'est :
1) comment affecter l'événement "Click" au(x) 1 à n CheckBox créés(s)?
2) et ou est-ce que j'écris ce qui ce passera quand je cliquerai sur ce(s) 1 à n CheckBox

(Dans l'aide Excel97 en ma possession, j'ai bien trouvé : CreateEventProc, qui soit disant Crée une procédure d'événement, mais à force de lire l'aide je n'y comprend + rien ....

Merci

Christian

 

[@+Thierry]

Salut Christian,

J'ai un peu essayé de faire ceci, il faut écrire directement dans le module... Avec ce genre de code :

Sub MacroCommandButton1()
Dim x As Integer

With ThisWorkbook.VBProject.VBComponents("UserForm1").CodeModule
x = .CountOfLines
.InsertLines x + 1, "Sub CommandButton1_Click()"
.InsertLines x + 2, "MsgBox ""Bye Bye"",VBinformation "
.InsertLines x + 3, " Unload Me"
.InsertLines x + 4, "End Sub"
End With

End Sub

Mais je me suis arrété là... Par contre je te conseille de faire un tour chez John Walk sur cette page Creating a UserForm Programmatically (il y a même une démo téléchargeable free)

Bonne soirée
@+Thierry

PS attention toutefois aux limites de XL 97