1 pièce(s) jointe(s)
Alimenter Listbox à partir de textboxs
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:
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:
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 |
