comparer listbox avec une 2e listbox

Bonjour,

j'ai une lisbox L1 avec
des valeurs :
10
20
30

j'ai une 2e listbox L2 avec
105666
105664
304556

Je veux parcourir toutes les valeurs de L2 une par une et
verifier que les deux 1ers caractere sont egales a une valeur de L1

ex : les 2 premieres valeurs de "105666" sont 10 donc ça correspond a la valeur de 10 (dans L 1)

Auriez vous une idées avec mon code?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

While Not EOF(qnr) Line Input #qnr, Ligne$ ''''''''''''''''''''' For h = 0 To List3.ListCount - 1   MsgBox Ligne$ & " : " & List3.List(h) If Mid(Ligne$, 1, 2) = List3.List(h) Then List1.AddItem Ligne$ p = p + 1 Else k = k + 1 List2.AddItem Ligne$ End If Next h '''''''''''''''''''''' s = s + 1 Wend

---

Bon je partirais deja du fait que dans ton premier listbox les elements sont de 2 caracteres, et ceux du dexieme de plus de deux, comme dans ton exemple.


tu auras donc un truc de ce genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

'List1 est le premier Listbox 'List2 le deuxieme   Dim i as Integer, J as Integer For i = 0 To List1.ListCount - 1 For j = 0 To List2.ListCount - 1 If Left(List2.List(j),2) = List1.List(i) Then MsgBox List1.List(i) & " Existe dans " & List2.List(j) 'Exit For tu peux arreter la recherche si tu veux End if Next Next

---