Userform : Listebox multicolonne

[sarah33]

Mon besoin a changé (j'ai résolu une partie de mon problème : Listbox vers ZoneText)
J'ai créé un nouveau fils pour la seconde partie de mon problème; ZoneText vers ListBox
https://www.excel-downloads.com/threads/usf-vba-zonetext-vers-listbox.225243/

Merci

Sarah

 

[grisan29]

Re : Userform : Listebox multicolonne

bonjour sarah33voici un code qui envoie la ligne cliqué dans listbox vers des textbox

Private Sub Listbox1_click()

With ListBox1
    TextBox2 = .List(.ListIndex, 0)
    TextBox3 = .List(.ListIndex, 1)
    TextBox4 = .List(.ListIndex, 2)
    TextBox5 = .List(.ListIndex, 3)
    TextBox6 = .List(.ListIndex, 4)
    TextBox7 = .List(.ListIndex, 5)
    TextBox8 = .List(.ListIndex, 7)
End With
End Sub

Pascal

 

[laetitia90]

Re : Userform : Listebox multicolonne

bonjour sarah33 ,grisan29

peu faire une boucle egalement seulement deplacer tes box sur ton user dans la bonne dans chrono de 2 a 9

Private Sub ListBox1_Click()
  For y = 2 To 9: Me("Textbox" & y) = ListBox1.List(ListBox1.ListIndex, y - 2): Next y
End Sub

ps variable y declarer en byte en debut module

 

[Staple1600]

Re : Userform : Listebox multicolonne

Bonjour à tous

sarah33

Mon besoin a changé

Certes
mais ceci ne changera jamais...
extrait de la charte

2 – Lorsqu’on rentre sur un fil, comme dans la vie de tous les jours, on est poli en disant « Bonjour ».

 

[grisan29]

Re : Userform : Listebox multicolonne

Bonjour Staple1600,laetitia90,sarah33 et le forum
Staple1600 c'est vrai qu'un "bonjour" en début de post donne celui ci plus agréable a lire

Laetitia90 merveilleuse réduction de code

sarah33 en bonus si tu veux ajouter le contenu des textbox dans la listbox2 voici un code a potasser

Private Sub CommandButton1_Click()
ListBox2.ColumnCount = 3
ListBox2.AddItem (TextBox2.Value)
ListBox2.List(ListBox1.ListCount - 1, 1) = TextBox3.Value
ListBox2.List(ListBox1.ListCount - 1, 2) = TextBox4.Value
'etc...........
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
'etc........
End Sub

Pascal