Discussion :

[Invité]

Bonjour,

J'effectue des saisies dans des textboxs, je voudrais avec un bouton les transférer dans une listbox.

M'inspirant des certains fichiers et tutoriel, je suis parvenu à faire ceci sur l'userform2, à l'initialisation sa listbox est vide.

Par contre celui qui me concerne, à l'initialisation sa listbox n'est pas vide (propriété rowsource= bd qui est une plage dynamique nommée).

Je n'ai pas compris pourquoi, ça fonctionne pour l'un et pas pour l'autre. C'est surement en rapport avec la source de la listbox.

Si c'est ça, alors quelle serait la bonne solution pour y parvenir.

En fait, je voudrais rajouter des items à la listbox en utilisant un bouton. Puis avant de fermer l'userform, transférer toute la listbox sur la feuille.

en vous remerciant.

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
Private Sub CmdValider_Click()
    i = UserForm2.ListBox1.ListCount
 
    UserForm2.ListBox1.AddItem
    UserForm2.ListBox1.Column(0, i) = TextBox1
    UserForm2.ListBox1.Column(1, i) = TextBox2
    UserForm2.ListBox1.Column(2, i) = TextBox3
 
    'vider textboxs------------
    For i = 1 To 3
        UserForm2.Controls("textbox" & i) = ""
    Next
 
    UserForm2.TextBox1.SetFocus
 
End Sub
 
Private Sub UserForm_Initialize()
'UserForm2
    With ListBox1
        .ColumnCount = 3
        .ColumnWidths = "50;50;50"
    End With
End Sub

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
Private Sub CmdExit_Click()
    Unload Me
End Sub
 
Private Sub CmdVersListBox_Click()
    i = UserForm1.ListBox1.ListCount
 
    UserForm1.ListBox1.AddItem
    ListBox1.Column(0, i) = TextBox1
    ListBox1.Column(1, i) = TextBox2
    ListBox1.Column(2, i) = TextBox3
    ListBox1.Column(3, i) = TextBox4
    ListBox1.Column(4, i) = TextBox5
    ListBox1.Column(5, i) = TextBox6
    ListBox1.Column(6, i) = TextBox7
    ListBox1.Column(7, i) = TextBox8
    ListBox1.Column(8, i) = TextBox9
    ListBox1.Column(9, i) = TextBox10
    ListBox1.Column(10, i) = TextBox11
    ListBox1.Column(11, i) = TextBox12
    ListBox1.Column(12, i) = TextBox13
 
    For i = 1 To 13
        Controls("textbox" & i) = ""
    Next
 
    'ListBox1.Selected(ListBox1.ListCount - 1) = True       'selectionner dernière item de la listbox
 
    TextBox3.SetFocus
 
End Sub