Creer un tableau d ecriture dynamique dans un userform

Version imprimable

01/11/2016, 17h58
rampage92

Creer un tableau d ecriture dynamique dans un userform

Bonjour a tous,

J aurai besoin de passer en ecriture dans un userform, c est a dire que je voudrais pouvoir ecrire un texte dans une espece de listbox. Est ce possible ? Ou existe t il une solution alternative comme generer un tableau de Textbox dynamique ?

Merci pour votre aide
01/11/2016, 18h21
parmi

Bonjour,

On n'écrit pas dans un listbox, mais on peut le faire dans un textbox en modifiant éventiuellement ses propriétés MultiLine à True et EnterKeyBehavior à True.
Ce qui permet d'utiliser la touche Enter pour sauter à la ligne.

Pour la gestion des textbox, tu peux passer par une classe.
Regarde dans les tutos; il y a de bons exemples.
01/11/2016, 18h25
rampage92

tu as un lien ?

Crée un nouveau projet

Insère un module, un Userform et un module de classe

Dans le module "Standard", tu mets

Code:

Public Coll As Collection

Dans le module de classe (nommé clsBouton), tu mets

Code:

1
2
3
4
5
Public WithEvents Bouton As MSForms.CommandButton
 
Private Sub Bouton_Click()
    MsgBox Bouton.Name
End Sub

Dans le Userform, tu mets

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
Private Sub UserForm_Initialize()
    PlacerBoutons
End Sub
 
Sub PlacerBoutons()
    Dim I As Long, J As Long, Idx As Long
    Dim Gauche As Long, Haut As Long
    Dim Obj As Control
    Dim Cl As clsBouton
 
    Set Coll = New Collection
 
    Gauche = 18
    Haut = 36
 
    For I = 0 To 5
        For J = 0 To 6
            Idx = Idx + 1
            Set Obj = Me.Controls.Add("forms.CommandButton.1")
            With Obj
                .Name = "Bouton" & Idx
                .Left = Gauche + (J * 24)
                .Top = Haut + (I * 24)
                .Width = 24
                .Height = 24
                .Font.Bold = True
                .Font.Size = 8
                .Caption = Idx
            End With
 
            Set Cl = New clsBouton
            Set Cl.Bouton = Obj
            Coll.Add Cl
        Next
    Next
End Sub

Lorsque tu affiches le Userform, tu peux cliquer un bouton et voir son nom s'afficher.
Chacun a le sien...

Mais comme tu n'as pas vraiment expliqué ce que tu cherches à faire, ce n'est peut-être pas la meilleure avenue dans ton cas...

01/11/2016, 19h46
rampage92

En fait je voudrais créer une liste dynamique de TextBox ...
01/11/2016, 20h24
parmi

Utilise le même code en gérant la quantité et la location de ceux-ci.
Et tu n'as qu'à changer forms.CommandButton.1 par forms.Textbox.1 dans le Userform ainsi qu'en début de classe
Et enlève le .Caption = Idx qui ne fait plus de sens pour un Textbox.

c'est peu commun comme demande
(ecrire dans une listbox )

et oui c'est possible
prends un userform met lui une listbox
dans le code du module userform met lui ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 13 Then
        If ListBox1.ListIndex = ListBox1.ListCount - 1 Then
            ListBox1.AddItem ""
            ListBox1.ListIndex = ListBox1.ListCount - 1
        Else
            ListBox1.ListIndex = ListBox1.ListIndex + 1
        End If
    Else
        ListBox1.List(ListBox1.ListIndex, 0) = ListBox1.List(ListBox1.ListIndex, 0) & ChrW(KeyAscii)
    End If
End Sub
Private Sub UserForm_Activate()
    ListBox1.MatchEntry = 2
    ListBox1.AddItem "": ListBox1.ListIndex = ListBox1.ListCount - 1
End Sub

avec la condition " If KeyAscii = 13 Then" on pourrait jumeler avec tab par exemple si multi colonne
enfin bref c'est encore les idées loufoques a la Patrick
bien le bonsoir

02/11/2016, 11h04
rampage92

Merci pour ton aide, cependant je n arrive pas a effacer en cas d'erreur. Peux tu maider ?

@parmi : Peux tu ecrire le code stp j'ai essaye de faire exactement ce que tu as fait ca ne compile pas : "User defined type not defined"

Merci
02/11/2016, 11h13
parmi

Quel code au juste ?
Je t'ai déjà mis ce qui était nécessaire.

Et si tu mettais le tien en expliquant où tu l'as mis ? et sur quelle ligne apparaît l'erreur ?
As-tu nommé ta classe comme dans le code ?
02/11/2016, 11h16
rampage92

Ton explication etait tres claire. En fait a la place d un bouton, j'aimerai afficher des useforms. Peux tu me mettre le code ?

1 pièce(s) jointe(s)

voila la next version
on peut supprimer un item avec la touche supp
ou revenir sur le texte avec la touche del(fleche gauche)

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
Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 46 Then
        With ListBox1
            .List(.ListIndex, 0) = ""
            tableau = .List
            .Clear
            For i = 0 To UBound(tableau)
                If tableau(i, 0) <> "" Then .AddItem tableau(i, 0)
            Next
        End With
    End If
End Sub
Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    With ListBox1
        If KeyAscii = 8 Then KeyAscii = 0: .List(.ListIndex, 0) = Mid(.List(.ListIndex, 0), 1, Len(.List(.ListIndex, 0)) - 1)
        If KeyAscii = 13 Then
            If ListBox1.ListIndex = ListBox1.ListCount - 1 Then
                ListBox1.AddItem ""
                ListBox1.ListIndex = ListBox1.ListCount - 1
            Else
                ListBox1.ListIndex = ListBox1.ListIndex + 1
            End If
        Else
            ListBox1.List(ListBox1.ListIndex, 0) = ListBox1.List(ListBox1.ListIndex, 0) & ChrW(KeyAscii)
        End If
    End With
End Sub

voila
Pièce jointe 223859