double click dans list box

[Jean Marc]

Bonjour le forum

ai vu un post il y a quelques temps sur le sujet mé impossible de remettre la main dessus :sick:

j'ai un UserForm qui m'affiche une liste sur 3 colonnes N°, Date et nom
j'aimerais par un double click dans la liste box pouvoir afficher la date en F9 dans ma feuille Synt
mé suis incapable de mettre le code en place !!
je m'en remets donc a vous

merci bcp

JM

 

[Moa]

Salut Jean-Marc !

Un truc du genre :

Private Sub TextBox1_DblClick(ByVal Cancel as MSForms.ReturnBoolean)
Range('F9') = Userform1.TextBox1.Value
End Sub

@ +++

Moa

 

[Jean Marc]

Bonjour Moa re le forum
bien évidemment ça fonctionne pas !!
je te joins tout le code de mon UF
dis moi ou est l'erruer moi je m'en sors pas !!
merci bcp
JM

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets('Récap').Range('F9') = UserForm1.TextBox1.Value
End Sub


Private Sub UserForm_Initialize()
initlistbox
End Sub

Public Sub initlistbox()
Dim c As Range
Dim x As Byte
Dim a As Integer
ListBox1.Clear
Sheets('Récap').Activate
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = '90;70;50;0'
x = 0
For Each c In Range('A2:A' & Range('A65536').End(xlUp).Row)
If c <> '' Then
a = c.Row
ListBox1.AddItem Cells(a, 1)
ListBox1.List(x, 0) = Cells(a, 1).Text
ListBox1.List(x, 1) = Cells(a, 2).Text
ListBox1.List(x, 2) = Cells(a, 4).Text
ListBox1.List(x, 3) = a
x = x + 1
End If
Next c
End Sub

 

[Denis]

Bonjour Jean Marc, Moa et le Forum
en fait, Jean Marc, tu as un listbox, donc :
Sheets('Récap').Range('F9') =UserForm1.ListBox1.Value
Bon courage et à +
Denis

 

[Jean Marc]

re le forum

merci Denis
j'avais essayé mé sans succès
normal j'avais ça :

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
au lieu de ListBox !!!

dans l'exemple que tu m'as donné il me renvoie la 1ère colonne de ma listbox
comment Récupérer le 3ème et 4ème valeur ?

merci pour l'aide
JM

 

[Denis]

Re Bonjour à tous
sachant que la première colone du ListBox est numérotée 0
tu as :
Me.ListBox1.List(Me.ListBox1.Listindex,1) pour la 2 ème colonneMe.ListBox1.List(Me.ListBox1.Listindex,2) pour la 3 ème colonne
etc
Bon courage et à +
Denis

 

[Jean Marc]

Re le forum

ai même pas pris le temps de te remercier Denis
j'étais lancé dans mon truc grace a tes infos et suis presque au bout !

avec un peu de retard je te dis merci !!

JM