Comment créer un UserForm dynamique

Bonjour

J'ai créé un programme avec des userforms statiques permettant de stocker les valeurs inscrises dans des textbox et combobox dans différentes cellules.

Ce programme fonctionne, mais j'aimerai maintenant créer un userform dynamique, qui s'adapterai en fonction d'un choix (déterminé lui par une liste déroulante d'un userform statique).


Je bloque a l'étape "userform dynamique", je ne sais pas comment le réaliser, malgré de nombreuses recherches... quelqu'un pourrait m'aider ? merci !:D

Bonjour,

Je te mets un peu de lecture :

http://silkyroad.developpez.com/VBA/VisualBasicEditor/
http://silkyroad.developpez.com/VBA/UserForm/
http://silkyroad.developpez.com/VBA/ControlesUserForm/

Bonjour,

J'ai déjà parcourru ces tutos, je pense que les réponses y sont présentes mais je ne les comprend pas..
voici un exemple de code :

"Voici une solution pour ajouter une série de CheckBox dynamiquement dans un UserForm, et gérer les évènements de ces nouveaux contrôles à partir d'un module de classe."

Code:

---

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

'-------------------------------------- 'Procédure de création des CheckBoxs à placer dans l'UserForm. 'L'UserForm doit préalablement contenir un bouton nommé CommandButton1   Option Explicit   Private Sub CommandButton1_Click() Dim Obj As Control Dim Cl As Classe1 Dim i As Integer   Set Collect = New Collection   For i = 1 To 3 'boucle pour la création des CheckBox Set Obj = Me.Controls.Add("forms.Checkbox.1") With Obj .Name = "moncheckbox" & i .Object.Caption = "le texte" & i .Left = 140 .Top = 30 * i + 10 .Width = 50 .Height = 20 End With   'ajout de l'objet dans la classe Set Cl = New Classe1 Set Cl.ChkBx = Obj Collect.Add Cl Next i   End Sub

---

j'ai tester ce code il ne fonctionne pas et je ne comprend pas pourquoi...