Listbox question

Question

Bonjour &#224; tous
j'ai deux listbox avec d'un c&#244;t&#233; des codes et de l'autre un nom
j'aimerais savoir comment faire pour que quand on s&#233;lectionne un item de la list1
on arrive &#224; s&#233;lectionner automatiquement l'item correspondant de la list2. (en ayant bien s&#251;r les m&#234;mes items de part et d'autre)

MERCI D'avance

FASH

Gobillot · Answer

Est-ce que les deux Listbox ont exactement les m&#234;mes items et au m&#234;me endroit, dans ce cas il est tr&#232;s facile de faire:

    Private Sub List1_Click()
        List2.ListIndex = List1.ListIndex
    End Sub
sinon il faut faire une recherche en parcourant tous les items ou une recherche plus optimis&#233;e si la Listbox est tri&#233;e.

Daniel

cs_ITALIA · Answer

Si les 2 Listes ne sont pas tri&#233;es dans le m&#234;me Ordre :

Private Sub List1_Click()
For i = 0 To List2.ListCount - 1
    If List2.List(i) = List1.Text Then
        List2.Text = List2.List(i)
    End If
Next
End Sub

It@li@

Gobillot · Answer

en regardant le code de ITALIA &#231;a m'a donn&#233; une id&#233;e:

    Private Sub List1_Click()
        List2.Text = List1.Text
   End Sub

Daniel

cs_ITALIA · Answer

Si la ligne n'existe pas dans la liste 2 est-ce que &#231;a ne va pas la forcer &#224; list1.text ??

A tester !!

It@li@

Gobillot · Answer

inutile de faire des Finditem ou autre boucle de recherche:
   List2.Text = "texte &#224; rechercher"

- si l'item n'existe pas il n'y a rien de s&#233;lectionn&#233;.
- la Listbox peut &#234;tre tri&#233;e ou non
- la Listbox ne doit pas en Multis&#233;lect sinon &#231;a marche pas
- s'il y a des doubles seul le premier est s&#233;lectionn&#233;
- la comparaison est en vbtextCompare (ne tient pas compte des majuscules)

Daniel

cs_ITALIA · Answer

Bien vu ....alors

It@li@

Listbox question

6 réponses

Discussions similaires