Discussion :

[manufer]

Bonjour à tous,

Voilà je cherche à générer un objet "textbox" automatiquement après avoir cliqué sur un bouton,

et cela doit se faire à l'infini sans limite.

J'ai bien trouver un tuto sur ce site:

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

mais il me fait passer par un module de classe,

Alors que moi je souhaite que mon code soit contenu dans l'userform voir dans dans un module standard.

Avez-vous une idée svp ?

[unparia]

Bonjour

Alors que moi je souhaite que mon code soit contenu dans l'userform voir dans dans un module standard

Tu peux toujours ajouter dynamiquement un contrôle activex.
En utiliser les évènements ne sera par contre pas possible comme tu l'entends (sans module de classe).

[patricktoulon]

bonsoir
ou alors ajouter ton textbox et écrire dynamiquement le code de son évènement mais c'est un truc de fou si ca doit se répéter indéfiniment donc module classe

apres tu peut ecrire le code de ta classe en commentaire dans le code de ton userform et le réimplanter dans un module classe dynamiquement

j'avais fait cela pour un demandeur il y a pas mal de temps mais on devrait pouvoir retrouver la discussions
l'intérêt de cette méthode et d'avoir un module userform transportable

[manufer]

J'ai trouvé un petit bout de code sur ce lien:

http://silkyroad.developpez.com/VBA/UserForm/#LIV-H

Qu'en pensez-vous ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
    Dim Obj As Control
 
    Set Obj = Me.Controls.Add("forms.Textbox.1")
    With Obj
        .Name = "monTextBox"
        .Left = 140
        .Top = 30
        .Width = 50
        .Height = 20
    End With
 
    MsgBox Obj.Name & " ajouté dans l'UserForm."
End Sub

Cela ne résout pas tout le problème mais il permet d'avancer un peu non ?

Problème, j'ai l'impression qu'il crée les textbox les uns sur les autres et non au dessous dans ma combobox,

Donc à chaque fois qu'un textbox est crée, il cache le précedent.

Avez-vous une piste pour remédier à ça ?

[unparia]

Donc à chaque fois qu'un textbox est crée, il cache le précedent.

Et tu t'en étonnes ? Vraiment ?
Rien d'étonnant puisque tu donnes les mêmes propriétés de positionnement (140, 30, 50,20) à chacun d'eux ! Ils se trouvent tous au même endroit et avec les mêmes dimensions.

Une piste pour y remédier ? --->> un compteur de positionnement, soit vertical, soit horizontal, selon ce que tu cherches à faire.

Cela ne résout pas tout le problème mais il permet d'avancer un peu non ?

Pas vraiment. Tu te retrouves avec des textboxes sans vraiment pouvoir les utiliser totalement.

[Theze]

Bonjour,

Voici une piste avec un module de classe pour la gestion des évènements (ici, pour l'exemple, un seul, l'évènement "Change()" ).

Le code ci-dessous est à mettre dans le module du formulaire et les variables doivent être en tête de module :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Dim Txt() As New Classe1
Dim Haut As Long
Dim I As Long
 
Private Sub CommandButton1_Click()
 
    Dim Obj As Control
    Dim MargeH As Integer
    Dim MargeG As Integer
    Dim H As Integer
    Dim L As Integer
    Dim Larg As Integer
 
    MargeH = 10 'espace entre contrôles
    MargeG = ComboBox1.Left 'idem ComboBox
 
    H = ComboBox1.Height 'idem ComboBox
    L = ComboBox1.Width 'idem ComboBox
 
    'si pas encore initialisé
    If Haut = 0 Then Haut = ComboBox1.Top
 
    'céation du contrôle ActiveX
    Set Obj = Me.Controls.Add("forms.Textbox.1")
 
    'calcul du top
    Haut = Haut + H + MargeH
 
    'positionnement
    With Obj
 
        .Left = MargeG
        .Top = Haut
        .Width = L
        .Height = H
 
    End With
 
    'ajout dans le tableau pour la gestion des évènements
    I = I + 1
    ReDim Preserve Txt(1 To I)
    Set Txt(I).GroupeTxt = Obj
 
    'ajout de la barre verticale sur la Form
    Me.ScrollBars = fmScrollBarsVertical
    Me.ScrollHeight = Haut
 
End Sub

et celui-ci est à mettre dans un module de classe nommé Classe1 (nom par défaut !) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Public WithEvents GroupeTxt As MSForms.TextBox
 
Private Sub GroupeTxt_Change()
 
    'ici, créer le code nécessaire pour ton utilisation...
 
    'pour le test...
    MsgBox "Le TextBox porte le nom '" & GroupeTxt.Name & "' et sa valeur est : " & GroupeTxt.Text
 
End Sub

Les TextBox que tu va créer dynamiquement vont se positionner les uns sous les autres et alignés à ton ComboBox nommé "ComboBox1" (adapter dans le code si différent !) et de même taille.
Pour l'évènement "Change()" et pour le test, quand tu vas entrer une valeur dans un des TextBox, une boite de message va apparaître et te donner le nom du TextBox et le texte qu'il contient

[manufer]

Merci pour cette réponse mais je me rend compte que je ne peux pas utiliser de combobox,

Je voulais tout faire à l'intérieur mais c'est assez compliqué et inaproprié.

je voudrai créer 5 textbox de même taille les uns à coté des autre dans un frame

et au click d'un CommandButton1 cinq nouveau textbox se crée juste en dessous avec les mêmes dimensions que ceux du dessus.

Cela créerai plusierus étages de textbox à chaque click et je positionnerai le CommandButton1 au niveau de l'étage le plus bas.

vous avez des pistes svp pour ce truc assez complexe je pense ?

[Theze]

Re,

Je regarde demain matin si j'ai le temps pour te pondre un squelette de ce que tu as besoin !

[Theze]

Bonjour,

Donc voici les TextBox dans un cadre nommé Frame1 (nom par défaut) avec cinq par ligne à chaque clic sur le bouton "CommandButton1" :

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
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
 
Dim Txt() As New Classe1
Dim Haut As Long
Dim I As Long
 
Private Sub CommandButton1_Click()
 
    Dim Obj As Control
    Dim MargeH As Integer
    Dim MargeG As Integer
    Dim Gauche As Integer
    Dim H As Integer
    Dim L As Integer
    Dim Larg As Integer
    Dim J As Integer
 
    MargeH = 10 'espace entre contrôles
    MargeG = MargeH
 
    H = 20
    L = 100
 
    'calcul du top
    If Haut = 0 Then Haut = MargeH Else Haut = Haut + H + MargeH
 
    For J = 1 To 5
 
        'céation du contrôle ActiveX
        Set Obj = Me.Frame1.Controls.Add("forms.Textbox.1")
 
        'si début de ligne
        If J = 1 Then Gauche = MargeG
 
        'positionnement
        With Obj
 
            .Left = MargeG
            .Top = Haut
            .Width = L
            .Height = H
 
        End With
 
        'pour le déplacement vers la droite
        MargeG = MargeG + L + MargeH
 
        'ajout dans le tableau pour la gestion des évènements
        I = I + 1
        ReDim Preserve Txt(1 To I)
        Set Txt(I).GroupeTxt = Obj
 
    Next J
 
    With Frame1
 
        .ScrollBars = 2
        .ScrollHeight = Haut + MargeH + H
 
    End With
 
End Sub

[Invité]

Bonjour

Voilà je cherche à générer un objet "textbox" automatiquement après avoir cliqué sur un bouton,

et cela doit se faire à l'infini sans limite.

A un moment tu vas quand même être limité par la taille de ton UserForm, je ne vois pas l'intérêt de ta démarche.

Philippe

[Theze]

Bonjour Philippe,

Avec la ScrollBar verticale il aura accès à tous les TextBox (testé sur 100 lignes donc 500 TextBox) mais selon le nombre la gestion va être super coton !!!

[manufer]

Salut Theze,

J'essaie ça tout de suite Merci beaucoup.

Salut Philippe,

Je pense que je vais largement dépasser le millier et cela me permet de ne pas avoir de limite définit.

[Invité]

Re

Salut Philippe,

Je pense que je vais largement dépasser le millier et cela me permet de ne pas avoir de limite définit.

Je pense que tu devrais revoir ta stratégie et expliquer pourquoi tu veux faire cela, car avec ce nombre de contrôle et suivant ce que tu veux en faire cela risque de ramer sérieusement.

Philippe

[pijaku]

Bonjour,

@Philippe JOCHMANS :

Je pense que tu devrais revoir ta stratégie et expliquer pourquoi tu veux faire cela

D'autant plus qu'avec 5 textbox et 5 listbox (par exemple), voir juste avec 5 combobox selon ce que l'on veux faire, tu fais largement le taf...

[patricktoulon]

Bonjour a tous
salut Franck on a eu la même idée

pourrais tu me dire comment et/ou si c'est possible de laisser un control (label/textbox) apparent sur une listbox jusqu'à présent j'ai toujours penser cela impossible

[unparia]

voir juste avec 5 combobox selon ce que l'on veux faire, tu fais largement le taf...

est ta réponse, Patrick.
Une combobox n'est rien d'autre que l'association d'une zone d'édition et d'une listbox.

[patricktoulon]

bonjour jacques
ca repond pas vraioment a ma question
j'ai tres bien compris le procédé de Franck

je veux seulement savoir si c'est possible d'une manière ou d'une autre

d'ailleurs perso pour m'amuser j'en ai fait un avec seulement 1 !!! listbox dans la quelle je peux écrire/modifier dans une colonne ou l'autre sur n'importe quelle ligne (touche enter/bouton )pour ajouter une ligne

[Theze]

Bonjour,

Une combobox n'est rien d'autre que l'association d'une zone d'édition et d'une listbox.

Tout à fait et pour afficher le bouton sur la TextBox :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TextBox1.ShowDropButtonWhen = 2

puis il suffit d'utiliser l'évènement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub TextBox1_DropButtonClick()
'...
End Sub

[patricktoulon]

j'ai encore simplifié mon delire avec ma listbox

voila ce que ca donne

1. touche ENTER > ajoute une ligne
2. touche tab(9) et flèche droit(39) et flèche gauche(37) déplace la sélection de colonne
3. la touche back(8) supprime le dernier caractères
4. le mouse move et down vous indique avec( le guide rougelabel) la colonne ou vous vous trouvez

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
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
Option Explicit
Dim plusHligne
Const widthcolonne = "50 pt;100 pt;120 pt;60 pt;80 pt"
' donc pour les left colonnes c'est  0,50,150,250,310
Dim colwidth
Dim actiVcoL
Dim colleft()
Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   Dim Mot$
    With ListBox1
        Select Case KeyCode
        Case 8
            KeyCode = 0
            Mot = .List(.ListIndex, actiVcoL): .List(.ListIndex, actiVcoL) = Mid(Mot, 1, Len(Mot) - 1)
        Case 9, 39
            KeyCode = 0
            If actiVcoL = 4 Then Exit Sub
            actiVcoL = actiVcoL + 1: repere.Left = .Left + colleft(actiVcoL): repere.Width = colwidth(actiVcoL)
 
        Case 37
 
         KeyCode = 0
            If actiVcoL = 0 Then Exit Sub
            actiVcoL = actiVcoL - 1
            repere.Left = .Left + colleft(actiVcoL): repere.Width = colwidth(actiVcoL)
 
        Case 13
            KeyCode = 0: .AddItem: .Height = IIf(.ListCount * (.Font.Size * 1.25) > 205, 205, .Height + plusHligne)
            .ListIndex = .ListCount - 1
        End Select
    End With
End Sub
Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    With ListBox1
        .List(.ListIndex, actiVcoL) = .List(.ListIndex, actiVcoL) & Chr(KeyAscii)
    End With
End Sub
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Dim i#
    For i = 0 To UBound(colleft)
        If X > colleft(i) Then repere.Left = ListBox1.Left + colleft(i): repere.Width = colwidth(i): actiVcoL = i
    Next
    repere.Caption = "Colonne " & actiVcoL
 End Sub
Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 Dim i#
    For i = 0 To UBound(colleft)
        If X > colleft(i) Then repere.Left = ListBox1.Left + colleft(i): repere.Width = colwidth(i): actiVcoL = i
    Next
    repere.Caption = "Colonne " & actiVcoL
End Sub
Private Sub UserForm_Activate()
    Dim i#, X#
    colwidth = Split(Replace(widthcolonne, " pt", ""), ";")    ' tableau des largeur des colonnes de la listbox
    ReDim colleft(UBound(colwidth)): colleft(0) = 0
    For i = 1 To UBound(colwidth): X = X + Val(colwidth(i - 1)): colleft(i) = X: Next    ' memorisation des left colonnes pour le guide rouge
    With ListBox1: .ColumnCount = 5: .AddItem: .ColumnWidths = widthcolonne: plusHligne = .Font.Size * 1.25: End With
End Sub

vous pouvez a tout momment revenir sur une ligne et la modifier
la ou se trouve le guide rouge c'est la colonne ou vous vous trouvez et vous taper le texte

[pijaku]

Bonjour,
Pour te répondre honnêtement, Patrick, tout ceci est possible juste avec une listbox et un textbox et quelques autres controles simples (scrollbar et frame).
Jacques et moi l'avons réalisé par le passé, seulement ce procédé ne peut pas être dévoilé au grand public car il comporte un composant secret de chez Microsoft.
Cependant, ce que je propose ici c'est d'aligner 5 textbox en ligne avec dessous une listbox comportant 5 colonnes, alimentée au fur et à mesure des saisies des textbox.
Quelque chose de très simple au final...