Discussion :

[salent9]

Bonjour,

j'ai créé un ListBox et je rentre des valeurs prédéfinis dedans
via:

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
Private Sub UserForm_Initialize()
 
ListBox1.AddItem "info1"
ListBox1.AddItem "info2"
 
end sub
 
mon listbox ne contient donc qu'une seule colonne.
Ce que je désire faire est de manipuler les infos de cette ListBox.. par exemple:
 
sub prog1
 
Dim str As String
str = UserForm1.ListBox1(1, 1).Value     ' syntax pas bonne
UserForm1.TextBox1.value = str
 
end sub

je n'arrive pas à copier une infos du listbox et la recopier dans un textbox par exemple.

merci d'avance de vos réponse !

[rvtoulon]

bonjour,
un exemple qui utilise l'événement double click de la listbox.
un double click sur une des valeurs de la listbox donne au textbox la valeur cliquée :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
 
Me.ListBox1.AddItem "info1"
Me.ListBox1.AddItem "info2"
 
End Sub
 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm1.TextBox1.Value = UserForm1.ListBox1.Value
End Sub