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
| With ListBox1
UserForm8.TextBox1.Tag = ListBox1.List(ListBox1.ListIndex, 1)
UserForm8.TextBox1.Text = ListBox1.List(ListBox1.ListIndex, 1)
UserForm8.TextBox2.Tag = ListBox1.List(ListBox1.ListIndex, 2)
UserForm8.TextBox2.Text = ListBox1.List(ListBox1.ListIndex, 2)
UserForm8.TextBox3.Tag = ListBox1.List(ListBox1.ListIndex, 3)
UserForm8.TextBox3.Text = ListBox1.List(ListBox1.ListIndex, 3)
UserForm8.TextBox4.Tag = ListBox1.List(ListBox1.ListIndex, 4)
UserForm8.TextBox4.Text = ListBox1.List(ListBox1.ListIndex, 4)
UserForm8.TextBox5.Tag = ListBox1.List(ListBox1.ListIndex, 5)
UserForm8.TextBox5.Text = ListBox1.List(ListBox1.ListIndex, 5)
UserForm8.TextBox6.Tag = ListBox1.List(ListBox1.ListIndex, 6)
UserForm8.TextBox6.Text = ListBox1.List(ListBox1.ListIndex, 6)
UserForm8.TextBox7.Tag = ListBox1.List(ListBox1.ListIndex, 7)
UserForm8.TextBox7.Text = ListBox1.List(ListBox1.ListIndex, 7)
UserForm8.CheckBox1.Tag = ListBox1.List(ListBox1.ListIndex, 8)
UserForm8.CheckBox1.Value = ListBox1.List(ListBox1.ListIndex, 8)
UserForm8.TextBox9.Tag = ListBox1.List(ListBox1.ListIndex, 9)
UserForm8.TextBox9.Value = ListBox1.List(ListBox1.ListIndex, 9)
End With |
Partager