double click pour envoyer un element d'une list a une autre

[bichon]

Helo le forum,

Je suis de retour pour vous jouer un mauvais tour lol bon je deconne
alors ma question est la suivante
j'aimerai si possible que quelqu'un me donne un exemple de procédure pour
qu'un element contenu dans une premiere liste, si on clique 2 fois dessus il aille
dans la 2 ème liste par magie lol
voila si quelqu'un peut m'aider ce serai coooooollll
merci


bichon

 

[Yo]

salut,
Peux-tu poster ton classeur.
Est-ce toujour ton meme programme ?

 

[fahd]

utilise l'evenement "ListBox1_Click()"

 

[bichon]

oui yo c'est toujours pareil
je n'ai aucun debut de prog donc voila

 

[A-binouze_drinker_among_others]

je crois qu il y a des exemples dans les anciens messages.

bon courage

 

[Yo]

Re-Salut bichon,
L'evenement à utiliser est l'evenement "ListBox1_DblClick()".

J'ai bricole un truc sur un ancien classeur que tu avais poste.
Si tu double-cliques sur la listbox du haut, ça vient rajouter la valeur dans la listbox du bas . Ce qui etait fait avant quand tu cliquais sur le bouton "Sélectionner".

Dis-moi si ça te convient.

 

[bichon]

c impec yo
genial merci
si je rajoute l'algo de tri dans la procédure ca ferai comme si je cliker sur le bouton sélectionner c bien ca?

 

[Yo]

J'ai juste rajoute ça dans ton code:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
CommandButton7_Click
End Sub

lorsque tu doubles clique dans la listbox, ça lance CommandButton7_Click , c'est à dire :

Private Sub CommandButton7_Click()
If ListBox1.ListIndex >= 0 Then
' ListBox2.AddItem ListBox1.ListIndex & " " & ListBox1.List(ListBox1.ListIndex)
ListBox2.AddItem ListBox1.List(ListBox1.ListIndex)
Else
Message
End If
TriLB2 '<------------ Lance le tri de la ListBox2
End Sub

Donc ta listbox2 est triée automatiquement.

 

[bichon]

ok yo no pb
encore merci merci
bonne continuation