Discussion :

[nssop]

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 !

[QuestVba]

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/

[nssop]

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 :

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
'--------------------------------------
'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...