Discussion :

[UDSP50]

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

[grisan29]

bonjour UDSP50 et le forum

un essai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gnain]

Ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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