PB dans création Userform Dynamiquement

Version imprimable

Bonjour,
J'ai un soucis pour renommer un Userform que je crée dynamiquement.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private CreationUF() Dim UF As Object Dim L As MSForms.Label Dim CB As MSForms.CommandButton Dim TBox As MSForms.TextBox On Error GoTo Fin '---- Crée dynamiquement un UserForm ---- Set UF = ThisWorkbook.VBProject.VBComponents.Add(3) With UF .Properties("Caption") = "UserForm à la volée" .Properties("Height") = 240 .Properties("Width") = 520 .Properties("Name") = "DoubleChamp" End With ... Fin: End sub
çà plante sur la ligne 15 --.Properties("Name") = "DoubleChamp"--
quelqu'un a une idée, je voudrais résoudre ce PB car j'ai un UF à créé avec un Cinquantaine de textbox et label.
c'est chaud !
Je suis sur MAC, mais je ne pense pas que ce soit pour cela.

Bonjour,

Code:

1
2
3
4
5
6
With UF
        .Caption = "UserForm à la volée"
        .Height = 240
        .Width= 520
        .Name = "DoubleChamp"
 End With

02/10/2017, 13h09
patyom

Bonjour dysorthographie,
Merci pour la rapidité mais cela ne marche pas.

n'y a-t-il pas un moyen de rajouter le nom que l'on veut mettre dans la ligne 10 ? (dans le SET dans la création)

j'avoue je ne comprends pas trop la ligne 10, surtout le "(3)" ?
02/10/2017, 13h22
joe.levrai

Bonjour,

en préambule, une procédure, même privée, est toujours appelée Sub.
Private CreationUF() n'existe pas, mais Private Sub CreationUF() oui

je ne comprend pas pourquoi tu veux nommer un Userform crée à la volée. Le but d'une création à la volée est de l'utiliser et d'ensuite le détruire ... dans des contextes bien définis et maîtrisés (contextes fort rares pour des besoins basiques)
si d'aventures un userform porte déjà ce nom, c'est le débogage assuré, que ta gestion d'erreur va laisser mourir
au final, tu vas empiler les userform (Userform1, Userform2 etc...) à chaque utilisation de la procédure

pourquoi ne pas créer en dur ton userform, quitte ensuite à le customiser dynamiquement s'il faut ajuster le nombre et le contenu des contrôles ?
ou alors, passer cet objet en variable publique lors de sa création, utiliser cette variable au lieu d'un nom de userform ... et prévoir sa destruction dans différentes configurations ? (fin de traitement, fermeture du classeur, ouverture etc...)

à mon sens, la conception de ton projet ne tiens pas assez robustement la route

l'argument (3) de la méthode add de la collection VBComponents est simplement la valeur d'un module "userform", l'aide en ligne ou le tutoriel sur la manipulation du VBE présente sur ce site t'apportera pas mal d'éclairages là dessus ;)
02/10/2017, 13h33
patyom

La créée en dur c'est ce que j'ai fait, j'ai créé dynamiquement mes labels et text box cà marche très bien, mais (y a tjrs un mais) je dois mettre des lignes dans le code du UserForm pour les contrôles de saisies dans les TextBox qui ne doivent accepter que du numérique et dont le chiffre ne doit pas dépasser 13.
Ca, à la limite c'est simple à inclure pour le premier passage mais pour les passages suivants je vais créer des doublons dans le code (genre "private Textbox1_Keypress( ...)).

Tu comprends mon problème de vouloir passer par une création d'UF et Suppression ensuite.

Pas simple

Un additif : il faudrait que je puisse vérifier dans la liste des Userfom et supprimer tous les userfoms qui commencent par "Userform" en veillant que les userforms créés en dur ne commencent par par ce texte, bien entendu. Là, je ne sais pas faire
02/10/2017, 13h38
joe.levrai

Si tu souhaites un procédé dynamique pour simplement effectuer le contrôle de tes saisies de textbox, tu as deux solutions pratiques :

1) créer une classe personnalisée dans laquelle le contrôle va s'effectuer sur les textbox
==> je suis navré mais je ne maîtrise pas du tous les modules de classe, d'autres pourront te proposer des pistes

2) peut importe le nombre de textbox : tu met un bouton de validation de tes saisies
ça déclenche une procédure qui va boucler sur tous les contrôles du Userform, et vérifier (dans le cas d'un contrôle TextBox) si la saisie est valide

que tu ai 1 ou 200 textbox, tout sera donc géré dans une seule procédure maître

mais, encore une fois, nous n'avons pas connaissance des tenants et aboutissants de ton projet, nous nous limitons donc à donner des solutions pratiques qui ont déjà fait leurs preuves.
02/10/2017, 13h44
patyom

J'avais bien envisager ta solution 2 mais le prog va être utilisé par des personnes qui ne connaissent pas le monde PC alors le contrôle tout de suite sur le champ de saisie s'impose.
Les classes, je ne maitrise pas trop, c'est peut-être la solution, je ne sais pas.
02/10/2017, 13h52
joe.levrai

Une discussion proposant diverses pistes de Classes pour piloter des TextBox
https://www.developpez.net/forums/d1...dynamiquement/

Je ne peux aller plus loin, comme déjà souligné, je n'ai pour l'heure jamais réussi à dégager le temps nécessaire pour maîtriser les classes, après maints échecs :mrgreen:

1 pièce(s) jointe(s)

tan que tu n'as pas enregistrer ton classeur tu ne peux pas modifier le nom du UserForm!

https://www.developpez.net/forums/d1513990/logiciels/microsoft-office/excel/macros-vba-excel/reunir-userform-module-classe-seul-module-exportable/#post8222128

Code:

1
2
3
4
5
Sub test()
Dim Usf As New Classe1
MsgBox Usf.Value("TOTO")
Set Usf = Nothing
End Sub

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
#If VBA7 Then  
     Private Declare PtrSafe Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
    Private Declare PtrSafe Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
    Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#Else
    Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
    Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
    Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If
Private Const SC_CLOSE = &HF060&
Private Const MF_BYCOMMAND = &H0&
 Dim hwnd As Long, Style As Long
Public Usf As Object
Private Nom As String
Public Dico As Object
Public TypeObjet As String
Public WithEvents Bouton As MSForms.CommandButton
Public WithEvents Text As MSForms.TextBox
Public WithEvents FRM As MSForms.Frame
Public WithEvents MultiPage As MSForms.MultiPage
 
 
 
 
Private Function NewControl(Controle As String, Page As Integer)
If Dico.EXISTS(Name) = True Then NewControl = Nothing: Exit Function
 Select Case TypeObjet
    Case "UserForm"
        Set NewControl = Usf.Controls.Add(Controle)
    Case "Frame"
        Set NewControl = FRM.Controls.Add(Controle)
    Case "MultiPage"
        Set NewControl = MultiPage(Page).Add(Controle)
    End Select
End Function
'Initialise la collection
Private Sub Class_Initialize()
 Set Dico = CreateObject("Scripting.dictionary")
End Sub
Public Sub NewTxt(Name As String, TxtDefaut As String, Width As Double, Height As Double, Left As Double, Top As Double, Optional Page As Integer = 0)
Dim obj
Set obj = NewControl("forms.Textbox.1", Page)
If TypeName(obj) = "Nothing" Then Exit Sub
Dim cls As New Classe1
  Set cls.Text = obj
 Set cls.Usf = Usf
    With cls.Text
        .Name = Name
        .Text = TxtDefaut
        .Width = Width
        .Height = Height
        .Left = Left
        .Top = Top
    End With
 
 
   Dico.Add Name, cls
   Set cls = Nothing
End Sub
'permet de créer un UserForm
Private Sub NewUsf(Caption As String, Width As Double, Height As Double, Name)
On Error Resume Next
ThisWorkbook.VBProject.VBComponents.Remove _
ThisWorkbook.VBProject.VBComponents(ThisWorkbook.VBProject.VBComponents(Name).Name)
On Error GoTo 0
With ThisWorkbook.VBProject.VBComponents.Add(3)
ThisWorkbook.Save
   Nom = .Name
End With
ThisWorkbook.VBProject.VBComponents(Nom).Name = Name
 Nom = Name: VBA.UserForms.Add Nom
 
   Set Usf = UserForms(UserForms.Count - 1)
 TypeObjet = "UserForm"
With Usf
    .Caption = Caption
    .Width = Width
    .Height = Height
   End With
 
End Sub
'Ouvre le UserForm
Public Sub Show()
 
 
NewUsf "toto", (120 * 2) + 100, (30 * 7) + 5 + (5 * 5)
NewFrme "Fram1", "toto", (18 * 2) + 100, (30 * 7) + 3 + (5 * 5), 3, 3
NewMulitPage "MulitPage1", "toto", (110 * 2) + 100, (30 * 7) + 3 + (5 * 5), 3, 3, 7, 0, "Bouton 1", "Bouton 2", "Bouton 3", "Bouton 4", "Bouton 5", "Bouton 6", "Bouton 7"
 
For I = 1 To 7
    Dico("MulitPage1").NewFrme "Fram" & I, "toto", (18 * 2) + 100, (30 * 7) + 3 + (5 * 5), 3, 3, I - 1
  Dico("MulitPage1").Dico("Fram" & I).NewBouton "Bouton" & I, "Bouton " & I, 100, 30, 20, 30 * 5
Next
Usf_Initialize
Usf.Show
End Sub
Public Function Value(Name As String)
 
 
NewUsf "toto", (120 * 2) + 100, (30 * 7) + 5 + (5 * 5), Name
NewFrme "Fram1", "toto", (18 * 2) + 100, (30 * 7) + 3 + (5 * 5), 3, 3
NewMulitPage "MulitPage1", "toto", (110 * 2) + 100, (30 * 7) + 3 + (5 * 5), 3, 3, 7, 0, "Bouton 1", "Bouton 2", "Bouton 3", "Bouton 4", "Bouton 5", "Bouton 6", "Bouton 7"
 
For I = 1 To 7
    Dico("MulitPage1").NewFrme "Fram" & I, "toto", (18 * 2) + 100, (30 * 7) + 3 + (5 * 5), 3, 3, I - 1
  Dico("MulitPage1").Dico("Fram" & I).NewBouton "Bouton" & I, "Bouton " & I, 100, 30, 20, 30 * 5
Next
Usf_Initialize
Usf.Show
Value = Usf.Tag
Unload Usf
End Function
Public Sub NewMulitPage(Name As String, Caption As String, Width As Double, Height As Double, Left As Double, Top As Double, Nb As Integer, Page As Integer, ParamArray Onglets())
Dim obj
Set obj = NewControl("forms.MultiPage.1", Page)
If TypeName(obj) = "Nothing" Then Exit Sub
 Dim cls As New Classe1
 
 Set cls.Usf = Usf
  Set cls.MultiPage = obj
 
   n = cls.MultiPage.Pages.Count
  n = Nb - n
 For I = 1 To n
    cls.MultiPage.Pages.Add
  Next
  For I = 0 To UBound(Onglets)
   cls.MultiPage.Pages(I).Caption = CStr(Onglets(I))
  Next
    cls.TypeObjet = "MultiPage"
 
    With cls.MultiPage
        .Name = Name
        '.Caption = Caption
        .Width = Width
        .Height = Height
        .Left = Left
        .Top = Top
    End With
 
 
   Dico.Add Name, cls
   Set cls = Nothing
End Sub
Public Sub NewFrme(Name As String, Caption As String, Width As Double, Height As Double, Left As Double, Top As Double, Optional Page As Integer = 0)
Dim obj
Set obj = NewControl("forms.frame.1", Page)
If TypeName(obj) = "Nothing" Then Exit Sub
 Dim cls As New Classe1
 Set cls.Usf = Usf
  Set cls.FRM = obj
    cls.TypeObjet = "Frame"
 
    With cls.FRM
        .Name = Name
        .Caption = Caption
        .Width = Width
        .Height = Height
        .Left = Left
        .Top = Top
    End With
 
 
   Dico.Add Name, cls
   Set cls = Nothing
End Sub
'Permet d'ajouter un bouton
Public Sub NewBouton(Name As String, Caption As String, Width As Double, Height As Double, Left As Double, Top As Double, Optional Page As Integer = 0)
Dim obj
Set obj = NewControl("forms.CommandButton.1", Page)
If obj = True Then Exit Sub
 Dim cls As New Classe1
 Set cls.Usf = Usf
 Set cls.Bouton = obj
    With cls.Bouton
        .Name = Name
        .Caption = Caption
        .Width = Width
        .Height = Height
        .Left = Left
        .Top = Top
    End With
 
 
   Dico.Add Name, cls
   Set cls = Nothing
 
 
End Sub
 
 
'permet de supprimer le UserForm
Private Sub Class_Terminate()
Dim I As Integer
 Set Dico = Nothing
If Nom <> "" Then
    Set VBComp = ThisWorkbook.VBProject.VBComponents(Nom)
    ThisWorkbook.VBProject.VBComponents.Remove VBComp
End If
End Sub
'L'evennement Click Bouton7 ferme le UserForm
Private Sub Bouton_Click()
Usf.Tag = Bouton.Caption
Usf.Hide
End Sub
'code se déclenchant à l'ouverture de Userform1
Private Sub Usf_Initialize()
Dim hSysMenu As Long
Dim MeHwnd As Long
    MeHwnd = FindWindowA(vbNullString, Usf.Caption)
    If MeHwnd > 0 Then
        hSysMenu = GetSystemMenu(MeHwnd, False)
        RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
    Else
        MsgBox "Handle de " & Usf.Caption & " Introuvable", vbCritical
    End If
 
End Sub

Bonjour,

Robert et Joe : :plusser:

Pour Joe, voici une bonne piste avec une classe TextBox (exemple reprenant à la fois les textbox créés en mode création + 1 créé dynamiquement au clic sur CommandButton1) :
Beaucoup plus simple à mettre en oeuvre...

Module de classe nommé ClasseTB :

Code:

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Public WithEvents TextBoxEvents As MSForms.TextBox
'Didier Gonard
Private Sub TextBoxEvents_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If InStr("1234567890,-", Chr(KeyAscii)) = 0 Or TextBoxEvents.SelStart > 0 And Chr(KeyAscii) = "-" _
     Or InStr(TextBoxEvents.Value, ",") <> 0 And Chr(KeyAscii) = "," Then
      KeyAscii = 0
   End If
End Sub

Module de l'Userform :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Dim MesTB(3) As New ClasseTB
 
Private Sub CommandButton1_Click()
Dim Ctl As Control
    Set Ctl = Me.Controls.Add("forms.Textbox.1", "TB_Dynamique1", True)
    Set MesTB(3).TextBoxEvents = Ctl
End Sub
 
Private Sub UserForm_Activate()
    Set MesTB(0).TextBoxEvents = TextBox2
    Set MesTB(1).TextBoxEvents = TextBox5
    Set MesTB(2).TextBoxEvents = TextBox7
End Sub

Cool, pijaku

J'ai testé ta solution, vraiment simple et efficace.

En fait, à chaque fois que tu crées une textbox tu lui attribues, par la classeTB, tous les éléments de contrôle de saisie, et tu n'a pas à les inclure dans le code de l'UserForm.
L'idée de mettre toutes les Textbox en table -MESTB(3)- et pas mal du tout. Je n'ai pas testé la récupération de la saisie.

Astucieuse l'affaire, je me suis fait un prog d'essai et ça marche très bien. Bravo

Dans le post j'avais des PB pour ôter les user forms qui se créaient lors d'un bug et que je ne pouvais pas supprimer

voilà ce que j'ai fait pour m'en sortir, il y quand même une condition : tous les VBComponents du projet que je veux garder ne doivent pas commencer par "UserForm", donc les userforms en "dur" doivent être renommés.
Mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub ListeForms() IsFormLoad "UserForm" End Sub Private Sub IsFormLoad(vName As String) Dim uf As Object For Each uf In ThisWorkbook.VBProject.VBComponents If Left(uf.Name, 8) = vName Then EffaceUserFormDer uf.Name End If Next uf End Sub Sub EffaceUserFormDer(MonUserForm As String) 'Suppression des Userforms commencant par "UserForm" ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents(MonUserForm) End Sub
Merci

1 pièce(s) jointe(s)

Bonjour,
un variante de ma solution!
Code:

1 2 3 4 5 6 7 8 9 Sub test2() Dim Usf As New Classe1 Usf.AddNew "UserForm", "Cheval", "UserForm", "toto", (120 * 2) + 100, (30 * 7) + 5 + (5 * 5), 10, 50 For I = 1 To 20 Usf.AddNew "Textbox", "txt" & I, "UserForm", Format(I, "000000"), (150), 18, 10, (10 * I) + (18 * I - 1) Next Usf.Usf.Show Set Usf = Nothing End Sub
a terme je compter gérer tous les type de contrôle ainsi que le code associé!

il sera possible de décrire et le formulaire et le code associé dans une feuille Excel! je n'est pas baucoup de temps pour le moment mais je m' colle le plus ridement possible!

pour se servir d' un userform après l'avoir créé dynamiquement tu ne peut pas te servir du vbcomponent

il faut que tu refasse après l'ajout

set uf="nom que tu lui a donné dans la création "

uf ne sera plus un vbcomponent mais un userform et donc ces propriétés accessibles y compris add pour ajouter des controls a l'intérieur

j'ai eu le même soucis dans une classe récemment j'ai résolu mon soucis comme ca

pour info

j'ai testé ton simple code dans un Module standard et il fonctionne par contre dans un module classe NON!!!!!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private CreationUF() Dim UF As Object Dim L As MSForms.Label Dim CB As MSForms.CommandButton Dim TBox As MSForms.TextBox On Error GoTo Fin '---- Crée dynamiquement un UserForm ---- Set UF = ThisWorkbook.VBProject.VBComponents.Add(3) With UF .Properties("Caption") = "UserForm à la volée" .Properties("Height") = 240 .Properties("Width") = 520 .Properties("Name") = "DoubleChamp" End With ... Fin: End sub

par contre comme ca il fonctionne dans une classe

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim UF As Object
Dim L As MSForms.Label
Dim CB As MSForms.CommandButton
Dim TBox As MSForms.TextBox
Dim usf As UserForm
Function addnewuserform()
    Set UF = ThisWorkbook.VBProject.VBComponents.Add(3)
    With UF
        .Properties("Caption") = "UserForm à la volée"
        .Properties("Height") = 240
        .Properties("Width") = 520
        .Properties("Name") = "DoubleChamp"
    End With
End Function

et on l'appel comme ca dans un module standard

Code:

1
2
3
4
Dim cl As New Classe1
Sub test_classe()
  cl.addnewuserform
End Sub

03/10/2017, 13h09
patyom

Bonjour patricktoulon,

Tu refais un SET de l'UF créé(ici : DoubleChamp) à l'endroit ou tu as mis les "...", c'est çà ?

Code:

Set UF = "DoubleChamp"

1 pièce(s) jointe(s)

un exemple concret pour que tu puisse bien faire la difference entre vbcomponent et Userform
ce ci ne fonctionnera pas car vbcomponent n'a pas de propriété "controlsadd"
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 Dim UF As Object Dim L As MSForms.Label Dim CB As MSForms.CommandButton Dim TBox As MSForms.TextBox Dim usf As UserForm Function addnewuserform() Set UF = ThisWorkbook.VBProject.VBComponents.Add(3) With UF .Properties("Caption") = "UserForm à la volée" .Properties("Height") = 240 .Properties("Width") = 520 .Properties("Name") = "DoubleChamp" Set Obj = .Controls.Add("forms.CommandButton.1", "Up" & k) With Obj .Name = "Up" & k .Caption = "+" .Left = 12 .Top = Toop .Width = 18 .Height = 18 End With End With End Function
preuve a l'appui l'userform est bien créé mais pas le control "up"

Pièce jointe 316540

pour être honnête avec toi si le nom de l'userform est important pour toi afin de t'en servir n'importe ou dans le classeur
a ta place je mettrais le userform directement a la base même vide et modifierais ses propriétés et ajouterais dynamiquement ses controls

tu n'a plus a te soucier de son existence ou pas
a méditer

03/10/2017, 13h22
patyom

pijaku,
J'ai inclus ta ClasseTB dans mon projet et Rajouté 2 lignes dans mon projet :
1 ligne pour déclarer la table : Global MesTB(8,100) as New ClasseTB (que j'ai mise dans un module à part)
l'autre ligne : Set MewTB(i,j).TextBoxEvents = ObjT
' l'ObjT étant déclaré comm çà ---> (Set ObjT = UserForm1.Controls.Add("forms.Textbox.1)

et çà roule du tonnerre.

La table MesTB(i,j) est là pour garder en mémoire les différents contrôles de saisie de chaque TextBox qui ont été créées automatiquement (pour info)

quel gain de temps et de prise de tête.
03/10/2017, 13h58
patricktoulon

re

re
Attention patyom

Code:

' l'ObjT étant déclaré comm çà ---> (Set ObjT = UserForm1.Controls.Add("forms.Textbox.1)

a condition que l'userform ajouté porte bien ce nom

si l'ors de l'ajout userform1 existe déjà il ne portera pas ce nom

autrement dis si dans l'avenir tu veux modifier en dur ton fichier dans le code il faudra prendre soin de nommer autrement tes userforms éventuels sinon c'est le crash

encore une fois si j'ai un conseil c'est de le mettre d'office vide et d'en faire ce que tu en veux après dans un M standard ou classe comme tu veux

moins de code ,moins de gestion d'erreur, et possibilité de le prendre dans une variable object dans tout le classeur y compris le module classe

Code:

set usf=DoubleChamp

et basta plus de soucis
03/10/2017, 15h02
patyom

ok patricktoulon,

Je vais essayer de faire comme tu dis dans un petit programme que j'avais créé pour test mais pour le "Big" prog que j'étais en train d'écrire dans lequel j'ai créé un UserFrom (DoubleChamp) en "Dur" dans lequel j'ai créé des labels et des text box (pour total des 120 à 300, tout dépend de ce l'utilisateur a choisi) pour ne pas tout re modifier de nouveau la solution de Pijaku en additionnant une classe et avec très peu de code en plus me parait plus simple à mettre en place.

Mais je retiens ta solution dès lors que, si j'ai ensuite des userforms à créer, j'aime bien l'idée de les créer et de les supprimer.

Je te remercie d'avoir "apporté un peu d'eau à mon moulin", je passe de programmation en "SWIFT 3" à VBA, parfois je me mélange un peu les crayons mais c'est grisant.
11/10/2017, 11h19
patyom

Merci à vous, j'ai intégré les classes pour chaque Type d'élément (commandButton, listbox,labels ...) comme me l'a suggérer Pijaku et mis les userforms en Dur (vide) solution de patricktoulon et çà me va très bien.

Ma petite Appli touche avance, maintenant il faut que je sécurise l'affaire.

Merci à vous, j'ai appris pas mal de choses.