Discussion :

[bosk1000]

bonjour a tous

comment faire pour que lorsque je clique sur un choix dans une zone de liste, le mot choisis aille aliment une combox, et une valeur qui se trouve avec vient alimenter une textbox

la zone de liste "list_operation"
textbox "pvht"
combobox "boxref"

le code de la zone de liste est :

Code :

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

1
2
3
4
5
 
list_operation.ColumnHeads = True 'en tete de colone
list_operation.ColumnCount = 3 ' nombre de colone a afficher
list_operation.ColumnWidths = "80;80"
list_operation.RowSource = "extraction!d2:E" & Range("extraction!a65536").End(xlUp).Row ' etendue de la liste a fficher

dans la colonne D se trouve le pvht, et dans la E la boxref

merci pour votre aide

[rvtoulon]

Slt, bosk1000
une première piste: dans un userform sur double click d'une ligne d'une listbox, on alimente une combo avec la première colonne de la ligne sélectionnée et on alimente un textbox avec la deuxième colonne de la ligne sélectionnée.

Code :

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

1
2
3
4
5
6
7
8
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
i = Me.ListBox1.ListIndex
'j'alimente ma combobox avec le contenu de la première colonne
'de la listbox
Me.ComboBox1.AddItem (Me.ListBox1.Column(0, i))
'Je donne a la textbox la valeur de la 2ème colonne de la listbox
Me.TextBox1 = Me.ListBox1.Column(1, i)
End Sub

A+

[bosk1000]

merci pour ton aide

j'ai adapté ton code

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub list_operation_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
I = Me.list_operation.ListIndex
'j'alimente ma combobox avec le contenu de la première colonne
'de la listbox
Me.pvht.AddItem (Me.list_operation.Column(0, I))
'Je donne a la textbox la valeur de la 2ème colonne de la listbox
Me.boxref = Me.ListBox1.Column(1, I)
End Sub

mais je beug sur additem

quand je double clique
j'obtiens le message
erreur de compilation
membre de méthode ou données introuvable

[mercatog]

textbox "pvht"
combobox "boxref"

Me.pvht.AddItem (Me.list_operation.Column(0, I))
'Je donne a la textbox la valeur de la 2ème colonne de la listbox
Me.boxref = Me.ListBox1.Column(1, I)

le .Additem pour la combo

[bosk1000]

rien ne change

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub list_operation_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
I = Me.list_operation.ListIndex
'j'alimente ma combobox avec le contenu de la première colonne
'de la listbox
Me.pvht.AddItem (Me.list_operation.Column(0, I))
'Je donne a la textbox la valeur de la 2ème colonne de la listbox
Me.boxref.AddItem = Me.ListBox1.Column(1, I)
End Sub

le focus est sur le premier additem

[bosk1000]

je ne me permettrais pas de te critiquer

ça fonctionne impeccablement
donc ce n'était pas un additem dont j'avais besoins

merci