Discussion :

[rampage92]

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

[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.

[rampage92]

tu as un lien ?

[parmi]

Crée un nouveau projet

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

Dans le module "Standard", tu mets

Code :

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

Public Coll As Collection

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

Code :

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

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 :

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
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...

[rampage92]

En fait je voudrais créer une liste dynamique de TextBox ...

[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.

[patricktoulon]

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 :

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
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

[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