listbox-multiselection: le retour?

Bonjour,
J'ai vu des questions similaires dans le forum mais aucune ne marche sur mon cas particulier.

J'ai deux listbox: List1 et List2.
List1 est en mode multiselect 2 - Extended (pour d'autres utilisations)
List2 est en mode "none 0", classement alphabetique (sorted).
En gros List2 est une sous-liste de List1.

En clickant sur un element de List2, je souhaiterais voir le meme element apparaitre sur List1.

Pas de problème si LIST1 n'est pas en mode multiselect-2-extended. Alors, les 2 lignes suivantes sont suffisantes:
A$ = List2.Text
List1.Text = A$

Je veux la meme chose mais en conservant LIST1 en mode extended.

Merci d'avance,

Sly

Merci bp a vous deux.
Je me suis servi des deux reponses pour composer ma solution.
La reponse de Renfield me paraissait un peu complique par l'usage d'une dll. La reponse de CanisLupus etait tres proche de ce que je voulais, sauf que le texte de List1 n'etait pas mis en surbrillance.

Voici le bout de code qui marche pour moi:

Private Sub List2_Click()
Dim boucle As Integer

'efface toutes les selections precedentes
For boucle = 0 To List1.ListCount - 1
List1.Selected(boucle) = False
Next boucle

'selectionne seulement un element de la List1
For boucle = 0 To List1.ListCount - 1
If List1.List(boucle) = List2.Text Then
List1.ListIndex = boucle
List1.Selected(boucle) = True
Exit For
End If
Next

End Sub

sly63 n'oublies pas de cocher une ou plusieurs reponses comme acceptée ça permet d'aider ceux qui ont le même souci que toi.

It@li@

Pour info, je n'ai utilisé qu'une API : une fonction dispo dans l'une des Dll de Windows....

C'est théoriquement ce qui se fait de plus rapide, surtout si tes listes sont pas mal remplies....

Amusez-vous !
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS