Discussion :

[jad]

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

[sovo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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