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 : Sélectionner tout - Visualiser dans une fenêtre à part
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