ListBox données vers TextBox

Version imprimable

28/02/2015, 17h21
UDSP50

ListBox données vers TextBox

bonjour à tous,

dans mon formulaire j'ai une ListBox1 de 4 colonnes
les données sont incrémentées par le rowsource de la propriété de ma ListBox1 : --> Données!i7:l28

ça, ça marche bien.

j'ai sur mon userform, 4 TextBox
TextBox1
TextBox2
TextBox3
TextBox4

j'aimerai lorsque je clique sur une des lignes de ma ListBox1 que s'inscrive respectivement dans chaque TextBox le mot de chaque colonne de la ligne sélectionnée

Auriez vous possibilité de m'aider car de ce que j'ai pu lire j'ai pas réussi à adapter un code

Grand merci

bises a vous

bonjour UDSP50 et le forum

un essai

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub ListBox1_Click()
  With ListBox1
    TextBox1 = .List(.ListIndex, 0)
    TextBox2 = .List(.ListIndex, 1)
    TextBox3 = .List(.ListIndex, 2)
    TextBox4 = .List(.ListIndex, 3)
 
 
  End With
 
End Sub

pascal

Code:

1
2
3
4
5
6
7
8
Private Sub ListBox1_Click()
With ListBox1
    TextBox1.Text = .Column(0, .ListIndex)
    TextBox2.Text = .Column(1, .ListIndex)
    TextBox3.Text = .Column(2, .ListIndex)
    TextBox4.Text = .Column(3, .ListIndex)
End With
End Sub