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
Partager