comparer 2 Listbox puis vers list3Résolu

Question

Bonjour à tous, 

Pourriez-vous m?aider à résoudre un problème.  


Comment fait on pour comparer 2 Listbox. 


· La List1 reste la référence elle ne bouge jamais( Référence de produit) 
· La List2 elle bouge, on peut ajouter et enlever des produits mais les références sont les mêmes.

Tout cela fonctionne, mais voilà j'aimerais pouvoir comparer ces 2 listes et mettre dans une List3 tous les produits qui ne sont pas présent dans la list2 mais qui sont dans la liste 1 ( référence).

Comment puis-je faire,

J'ai un code mais il ne fait pas ce que j'attend.

Voici le code :

Private Sub command1_Click()

List1.Clear

For i = 0 To List2.ListCount - 1
List2.ListIndex = i

List3 = Mid(List2, 1, 1)

For j = 0 To List3.ListCount - 1
List3.ListIndex = j

If StrComp(List3, List2, 1) 1 Then List1.AddItem List2: j 0: GoTo 20


Next j
20 List3 = "*.*": Next i

End Sub


Merci de votre aide.

A+

cs_Galain · Accepted Answer

On suppose List1 et List2 remplies avec le nom des produits

Private Sub command1_Click()

Dim present as integer
dim i as integer, j as integer

List3.Clear  ' on vide List3
For i% = 0 To List1.ListCount - 1
    Present% = 0
    For j% = 0 to List2.Listcount -1
        ' si élément List1 = élément List2 on sort de la boucle
        if List1.List(i%) List2.list(j%) then present% 1: Exit For    
    Next j
' si present = 0 --> élément List1 n'existe pas dans List2 : on l'ajoute à List3
if present% = 0 then List3.Additem List1.list(i%)
Next i

End Sub 


La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

sancho12345 · Answer

Bonsoir Alain,

Un grand merci à toi c'est exactement ce que je voulais faire.

Merci et bonne soirée.

A+

Comparer 2 Listbox puis vers list3

2 réponses

Votre réponse