Générer plusieurs ListBox dynamiquement depuis une ListeBox

Version imprimable

Bonjour,

Lors de la sélection d'une des lignes d'une ListeBox, je génère sur le formulaire une TextBox.
Cela fonctionne bien.

Par contre, la position en hauteur TOP est identique à la valeur de l'index du select de la ligne de la listBox

Mon souhait est peu importe la position de la ligne sélectionnée dans la listbox Créera une TextBox sur la 1er ligne prévue à cette effet dans le formulaire
la seconde sélection créera le TextBox en dessous de la 1er TextBox. etc...

Il semble que ce soit cette variable qui faut incrémenter différemment --> .Top = 130 + (j) * 15 --> mais diférents test ne donnent rien

voici le code pour plus de clarté

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
 
 
Private Sub ListBox_ARO_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
Dim i As Integer
Dim J as integer
Dim ctrl As Control
 
    For i = 0 To ListBox_ARO.ListCount - 1
j = 1
        If ListBox_ARO.Selected(i) Then
j = j + 1
            'Label Nom Arôme
            Set ctrl = Me.Controls.Add("Forms.Label.1")
            With ctrl
                .Height = 12
                .Width = 234
                .Left = 24
                .Top = 130 + (j) * 15
                .Caption = Select_Nom_Arome & ListBox_ARO.List(i, 2)
                .Name = "Lab_" & Select_Nom_Arome & ListBox_ARO.List(i, 2)
                .TabIndex = i
                .Font.Name = "Verdana"
                .Font.size = 10
            End With
 
            ' TextBox Dosage Arôme
            Set ctrl = Me.Controls.Add("Forms.TextBox.1")
            With ctrl
                .Height = 18
                .Width = 24
                .Left = 264
                .Top = 126 + (j) * 21
                .Name = "TB_" & Select_Nom_Arome & ListBox_ARO.List(i, 2)
                .TabIndex = i
                .Font.Name = "Verdana"
                .Font.size = 10
            End With
 
            'Label symbôle %
            Set ctrl = Me.Controls.Add("Forms.Label.1")
            With ctrl
                .Height = 12
                .Width = 12
                .Left = 289
                .Top = 130 + (j) * 15
                .Caption = "%"
                .TabIndex = i
                .Font.Name = "Verdana"
                .Font.size = 10
            End With
 
            ' TextBox Quantité dû au dosage Arôme
            Set ctrl = Me.Controls.Add("Forms.TextBox.1")
            With ctrl
                .Height = 18
                .Width = 30
                .Left = 310
                .Top = 126 + (j) * 21
                .Name = "TB_Q_" & Select_Nom_Arome & ListBox_ARO.List(i, 2)
                .TabIndex = i
                .Font.Name = "Verdana"
                .Font.size = 10
            End With
 
            'Label ml
            Set ctrl = Me.Controls.Add("Forms.Label.1")
            With ctrl
                .Height = 12
                .Width = 12
                .Left = 342
                .Top = 130 + (j) * 15
                .Caption = "ml"
                .TabIndex = i
                .Font.Name = "Verdana"
                .Font.size = 10
            End With
        End If
 
    Next i
 
    ' lecture du nom de control type TextBox & Label
    Dim Ob As Control
    For Each Ob In Me.Controls
 
        If TypeOf Ob Is MSForms.TextBox Then
           ' MsgBox Ob.Name
            Debug.Print Ob.Name
        End If
        If TypeOf Ob Is MSForms.label Then
           ' MsgBox Ob.Name
            Debug.Print Ob.Name
        End If
    Next
 
 
End Sub

(j'espère que l'explication n'est pas confuse)

une idée ? merci ...

29/03/2019, 21h16
unparia

Bonjour

Citation:

j'espère que l'explication n'est pas confuse

pas vraiment "confuse", mais par contre "incomplète".
Quel est le conteneur de ces contrôles (feuille de calcul ou userform) ?

EDIT : le code que tu montres met par ailleurs en évidence que la listbox en cause est multiselect
On ne sait par contre pas si elle est affichée dans sa totalité ou s'il faut la "dérouler" pour en lire tous les articles.
Qu'as-tu prévu pour ce qui est de l'affichage de tes contrôles ajoutés en cas de déroulements de la listbox ?

Tout est possible, mais tu risques assez de mettre en place ainsi une petite usine à gaz. Quelle en serait l'utilité (histoire de déterminer si le jeu en vaut vraiment la chandelle) ?
29/03/2019, 23h42
unparia

Héla !
que fait cette réinitialisation systématique à 1 de la valeur de J au sein de ta boucle for i ?
Elle n'a rien à faire là et fait que tous tes contrôles sont l'un au dessus de l'autre, à un .top = 130 + 2 * 15
30/03/2019, 07h41
Invité

4 pièce(s) jointe(s)

Le conteneur est UserForm "Creation_Liquide"
La ListBox cible, sur laquelle on double clique pour sélectionner, affiche 5 lignes.
Sur cette ListBox on ne peut sélectionner, par double clic, une ligne après l'autre.

Les controls TextBox et Label sont générer par un double clic sur une des ligne de la ListBox , sur le formulaire "Creation_Liquide".
Je pense bloquer au nombre de 4 sélections (une fois après l'autre)

Pièce jointe 462392 Pièce jointe 462396 Pièce jointe 462400 Pièce jointe 462402

On constate que lors de chaque double clic, le Control TextBox & label se position en TOP en fonction de son numéro dans la ListeBox ... (L'espace entre arôme 2 et 4 et pour l'arôme 3 si je double clic dessus)

J'aimerai qu'ils se placent les un en dessous des autres sans espace.
30/03/2019, 07h51
unparia

- Ces précisions n'apportent aucun éclairage sur l'utilité d'une telle démarche (l'utilisation des données dans tes contrôles ajoutés dynamiquement) *****
- relis mon dernier message au sujet de la réinitialisation à 1 de ta variable j au sein de ta boucle for i

***** en tout état de cause, une simple listbox multicolonnes suffirait à y stocker ce que tu stockes ainsi dans tes contrôles ajoutés dynamiquement. Cette listbox pourrait être créée en mode création (plutôt que dynamiquement) et rendue visible ou invisible en tant que de besoin. Ce serait, de très loin, nettement plus agile ainsi !
30/03/2019, 13h08
Invité

Le TextBox % doit être remplie par l'utilisateur pour donner une quantité ml dans la TextBox suivante. Cette quantité devra être vérifiée/comparée par rapport à la quantité issue de l'article sélectionné dans la ListeBox.

La variable j est supprimée. Lors du double clic, les contrôles sont générés selon i.
Donc si je double click sur la 3ème ligne, les contrôles est généré en 3ème position sur le formulaire.

le but, par exemple :
la 3ème ligne sélection, affichée en 1er position
la 1er. ligne sélection, affichée en 2ème position
la 5ème ligne sélection, affichée en 3ème position

puis le nombre de sélection soit limité à 4 maximum
30/03/2019, 13h16
unparia

Cela ne répond toujours pas à la question posée quant à l'utilité finale
Et cela peut parfaitement faire l'objet d'articles d'une listbox multiligne alimentée par tes sélections ...

Et toujours aucune réaction en ce qui concerne ce sur quoi j'ai appelé ton attention (ton J réinitialisé à 1 au sein de ta boucle for i)

Bien. Je laisse maintenant ma place à d'autres.

voici le code qui fonctionne comme je le souhaite. je pense que des amélioration peuvent être faites.

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
 
 
Private Sub ListBox_ARO_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
Dim i As Integer
Dim ctrl As Control
 
' --> Limiter le nombre de sélection
Static nb As Integer
Dim choisi As Integer
Dim max As Integer
max = 4                     ' nombre maxi de sélections autorisées
 
choisi = ListBox_ARO.ListIndex
 
If ListBox_ARO.Selected(choisi) = False Then nb = nb - 1: Exit Sub
If nb >= max Then ListBox_ARO.Selected(choisi) = False: MsgBox "   " & max & " arômes autorisés ...", vbInformation, "Stunam! Vap"
' MsgBox "nb ?   : " & nb    ' commence par Zéro
nb = nb + 1
 
 
' --> Génère des controles dynamiquement dans une frame
    For i = 0 To ListBox_ARO.ListCount - 1
 
        If ListBox_ARO.Selected(i) Then
 
            'Label Nom Arôme
            Set ctrl = Me.Frame1.Controls.Add("Forms.Label.1")
            With ctrl
                .Height = 12
                .Width = 234
                .Left = 24
                .Top = 6 + nb * 21  '.Top = 10 + nb * 21
                .Caption = Select_Nom_Arome & ListBox_ARO.List(i, 2)
                .Name = "Lab_" & Select_Nom_Arome & ListBox_ARO.List(i, 2)
                .TabIndex = i
                .Font.Name = "Verdana"
                .Font.size = 10
            End With
 
            ' TextBox Dosage Arôme
            Set ctrl = Me.Frame1.Controls.Add("Forms.TextBox.1")
            With ctrl
                .Height = 18
                .Width = 24
                .Left = 264
                .Top = nb * 21  '.Top = 4 + nb * 21
                .Name = "TB_D_" & Select_Nom_Arome & ListBox_ARO.List(i, 2)
                .object.Value = ""
                .TabIndex = i
                .Font.Name = "Verdana"
                .Font.size = 10
            End With
 
            'Label symbôle %
            Set ctrl = Me.Frame1.Controls.Add("Forms.Label.1")
            With ctrl
                .Height = 12
                .Width = 12
                .Left = 289
                .Top = 6 + nb * 21        '.Top = 10 + nb * 21
                .Caption = "%"
                .TabIndex = i
                .Font.Name = "Verdana"
                .Font.size = 10
            End With
 
            ' TextBox Quantité dû au dosage Arôme
            Set ctrl = Me.Frame1.Controls.Add("Forms.TextBox.1")
            With ctrl
                .Height = 18
                .Width = 30
                .Left = 310
                .Top = nb * 21               '.Top = 4 + nb * 21
                .Name = "TB_Q_" & Select_Nom_Arome & ListBox_ARO.List(i, 2)
                .TabIndex = i
                .Font.Name = "Verdana"
                .Font.size = 10
            End With
 
            'Label ml
            Set ctrl = Me.Frame1.Controls.Add("Forms.Label.1")
            With ctrl
                .Height = 12
                .Width = 12
                .Left = 342
                .Top = 6 + nb * 21              '.Top = 10 + nb * 21
                .Caption = "ml"
                .TabIndex = i
                .Font.Name = "Verdana"
                .Font.size = 10
            End With
            ' Dimensionnement automatique de la Frame1
            If nb = 0 Then
                Me.Frame1.Height = 42
                'MsgBox "0 - La ligne sélectionnée " & ListBox_ARO.List(i, 2) & " à le numéro ListIndex : " & ListBox_ARO.ListIndex
            ElseIf nb = 1 Then
                Me.Frame1.Height = 62
                'MsgBox "1 - La ligne sélectionnée " & ListBox_ARO.List(i, 2) & " à le numéro ListIndex : " & ListBox_ARO.ListIndex
            ElseIf nb = 2 Then
                Me.Frame1.Height = 82
                'MsgBox "2 - La ligne sélectionnée " & ListBox_ARO.List(i, 2) & " à le numéro ListIndex : " & ListBox_ARO.ListIndex
            ElseIf nb = 3 Then
                Me.Frame1.Height = 122
                'MsgBox "3 - La ligne sélectionnée " & ListBox_ARO.List(i, 2) & " à le numéro ListIndex : " & ListBox_ARO.ListIndex
            End If
        End If
 
    Next i
 
    ' -->  Identification du nom des controles type TextBox & Label
    Dim Ob As Control
    For Each Ob In Me.Controls
 
        If TypeOf Ob Is MSForms.TextBox Then
           ' MsgBox Ob.Name
            Debug.Print Ob.Name
        End If
        If TypeOf Ob Is MSForms.label Then
           ' MsgBox Ob.Name
            Debug.Print Ob.Name
        End If
    Next
 
    ' -->  Identification Numéro ListIndex de la sélection
    For i = 0 To ListBox_ARO.ListCount - 1
         If ListBox_ARO.Selected(i) = True Then
            ' 2 est la 3éme colonne du tableau Arôme - Numéro de l'index
            'MsgBox "La ligne sélectionnée " & ListBox_ARO.List(i, 2) & " à le numéro ListIndex : " & ListBox_ARO.ListIndex
         End If
    Next i
 
 
End Sub

j'ai posé une classe pour l'objet TextBox

L'événement ne fonctionne que sur le dernier TextBox généré

code sur le formulaire

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
 
Option Explicit
 
Private Sub ListBox_ARO_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
Dim obj As Control
Dim Cl As Nom_Cl
Set Collect = New Collection
 
...
 
 Set obj = Me.Frame1.Controls.Add("Forms.TextBox.1")
            With obj
                .Height = 18
                .Width = 24
                .Left = 264
                .Top = nb * 21
                .Name = "TB_D_" & nb
                '.object.text = .Name            ' Affiche le Nom du control dans la TextBox
                .object.Value = ""
                .TabIndex = i
                .Font.Name = "Verdana"
                .Font.size = 10
 
            End With
            Set Cl = New Nom_Cl
            Set Cl.TBox = obj
            Collect.Add Cl
 
            ...
            End Sub

code sur le module

Code:

1
2
3
 
Option Explicit
Public Collect As Collection

code sur la classse

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Option Explicit
 
Public WithEvents TBox As MSForms.TextBox
 
Private Sub TBox_Change()
 
    'affiche nom & valeur de l'objet
    MsgBox "Nom de l'objet TextBox  " & Me.TBox.Name & vbCrLf _
           & "Valeur contenue  " & Me.TBox.Value
 
    'uniquement des chiffres
    If Not IsNumeric(Me.TBox) And Me.TBox <> "" Then
        MsgBox "introduire uniquement un valeur numérique!", vbExclamation, "Stunam! Vap"
        Me.TBox.Value = ""
    End If
 
End Sub

quelqu'un à une idée svp...

31/03/2019, 12h51
Invité

1 pièce(s) jointe(s)

voici le fichierPièce jointe 462700

quand tu classe des control a l'aide d'un object collection
le dimage doit se faire en haut de module et ou public

Code:

1
2
dim collect as new collection ' haut de module  userform 
dim maclasse as nomdelaclasse 'en haut de module userform( PAS "AS NEW omdelaclasse e" mais ( AS nomdelaclasse)

pour le classement
exemple :

Code:

1
2
3
4
5
6
7
8
for i=x to y 
set tavariablecontrol=me.controls.add(.......)
 
'apres!!!! la creation 
set cla=new maclasse' et c'est ici le NEW !!!!!!! et pas en haut de module !!!!! sinon tu change juste le control dans une seule instance de classe ce qui fait que tu te retrouve avec seulement le dernier 
set cla.tavariablecontrol=toncontrolitéré ' tu lui met ton control
set collect .add maclasse'tu l'ajoute a ta collection 
next i