Userform dynamique, récupération des données

Version imprimable

Bonjour,

Je cherche à créer un userform avec un nombre de textbox non défini à l'avance.

J'ai pour l'instant écrit ça:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub User() CompteUser.Show nbAff = CompteUser.nombreMagA If nbAff <> 0 Then Login.Height = 130 + nbAff * 20 Login.Caption = "Logins des Affiliés" Login.LoginValid.Top = Login.Height - 50 For I = 1 To nbAff Set TB = Login.Controls.Add("Forms.Textbox.1") TB.Top = 50 + 20 * I TB.Left = 15 TB.Width = 165 Next Login.Show End If End Sub
CompteUser est un useform qui permet d'avoir nbAff.
Login est le useform dynamique. Il s'affiche bien, je peux remplir mes textbox, pas de problème.
Par contre, je n'ai aucune idée de comment je vais pouvoir récupérer les info dans les textbox. Est ce qu'elles auront des ID par défaut?

D'avance merci pour votre aide.

28/08/2013, 17h59
EngueEngue

Msdn dit :

Code:

UserForm1.Controls.Add("Forms.Label.1", titre, True)

Suffira de lui filer le titre

ça marche! :) Merci beaucoup EngueEngue
Parfait pour une suite de textbox. Maintenat je complique le problème avec un jeux de nom/prenom/mail que j'essaie de récupérer. Voila ce que j'ai fait:

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
 
If nb <> 0 Then
    Unload Login
    Login.Height = 130 + nb * 20
    Login.Caption = "Logins pour le siège"
    Login.LoginValid.Top = Login.Height - 50
    For I = 1 To nb
        TextBox1 = "prenomBox" & I
        TextBox2 = "nomBox" & I
        TextBox3 = "mailBox" & I
        Set TB1 = Login.Controls.Add("Forms.Textbox.1", TextBox1, True)
        TB1.Top = 50 + 20 * I
        TB1.Left = 15
        TB1.Width = 50
        Set TB2 = Login.Controls.Add("Forms.Textbox.1", TextBox2, True)
        TB2.Top = 50 + 20 * I
        TB2.Left = 67
        TB2.Width = 50
        Set TB3 = Login.Controls.Add("Forms.Textbox.1", TextBox3, True)
        TB3.Top = 50 + 20 * I
        TB3.Left = 117
        TB3.Width = 50
    Next
    Login.Show
    For Each Ctrl In Login.Controls
        CtrlName = Ctrl.Name
        If InStr(CtrlName, "prenomBox") = 1 Then
           Prenom = Ctrl.Text
        End If
        If InStr(CtrlName, "nomBox") = 1 Then
           Nom = Ctrl.Text
        End If
        If InStr(CtrlName, "mailBox") = 1 Then
           Mail = Ctrl.Text
        End If
        MsgBox (Prenom & " " & Nom & " " & Mail)
    Next
    Unload Login
End If

ça ne sort pas encore, mais j'y travaille. Si vous avez un protips, je suis preneur :D
D'avance merci

J'ai trouvé :)

J'ai fait comme ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
For J = 1 To nb
        For Each Ctrl In Login.Controls
            CtrlName = Ctrl.Name
            box = "prenomBox" & J
            If InStr(CtrlName, box) = 1 Then
                Prenom = Ctrl.Text
            End If
            box = "nomBox" & J
            If InStr(CtrlName, box) = 1 Then
                Nom = Ctrl.Text
            End If
            box = "mailBox" & J
            If InStr(CtrlName, box) = 1 Then
                Mail = Ctrl.Text
            End If
            If Prenom <> "" And Nom <> "" And Mail <> "" Then
                MsgBox (Prenom & " " & Nom & " " & Mail)
                Prenom = ""
                Nom = ""
                Mail = ""
            End If
        Next
    Next

Merci et bonne journée :)