controle de 2 listboxs et garder que les valeurs presente dans les 2

[yoyo711]

Bonjour le forum et meilleur voeux pour cette nouvelle année 2011.

Je vais essayer d'etre précis dans ma demande sans partir sur un roman.

J'ai un USF qui contient plusieurs frames et option button pour la réalisation d'un inventaire de bien en mode consultation.

2 listbox affiches le résultat de la recherche. Une pour la localisation (Séjour, sdb,...) et l'autre pour la catégorie (mobilier, életroménager,...)

Aprés test des options button nous avons les listboxs rempli. En les comparants nous avons des doublons (ce qui est normal car ex sejour, nous avons du mobiliers que nous retrouvons dans la catégorie mobiler)

Ce que je désire c'est faire un tri et ne garder dans la list box 2 que les élément present dans les 2 list boxs.

J'ai trové le code suivant que j'essaye d'adapter a mon projet mais je n'arrive pas a obtenir le résultat voulut.

Dim p As Long

For p = 0 To List_Bien.ListCount - 1 'on boucle sur tout les items de la listbox2
If List_Bien.List(p, 0) = List0_bien Then
List_Bien.AddItem List0_bien
Else: List_Bien.Clear

Le probleme de mon clear et qu'il efface toute la liste box et non seulement le bien, de plus lorsque la valeur est true elle ne reste pas bloqué sur la listbox.

Auriez vous une idée pour me dépatouillé. Merci

 

[tototiti2008]

Re : controle de 2 listboxs et garder que les valeurs presente dans les 2

Bonjour yoyo,
Bonne année,

Aprés test des options button nous avons les listboxs rempli

Et comment se remplissent les listbox ?
Où se trouvent les données qui servent à les remplir ?

J'ai bien peur que pour avoir une réponse claire, nous ayons besoin d'un fichier exemple pour avoir une idée claire du problème...

 

[yoyo711]

Re : controle de 2 listboxs et garder que les valeurs presente dans les 2

Merci pour l'interêt que vous portez pour mon projet. Je l'ai mis sur megaupload vu sa taille. le lien est le suivant
Ce lien n'existe plus

 

[tototiti2008]

Re : controle de 2 listboxs et garder que les valeurs presente dans les 2

Re,

désolé, je ne peux pas charger de megaupload sur ce poste...

Bonne soirée

 

[yoyo711]

Re : controle de 2 listboxs et garder que les valeurs presente dans les 2

Ouf enfin trouver dans le forum mais j'ai mis plus de 15 h de recherche et d'essaie; Je le place pour ceux que ça pourrait interesser

' Controle que les 2 criteres ont des communs
Dim x As Integer, y As Integer, z As Integer, w As Integer, v As Integer

For x = 0 To List0_bien.ListCount - 1
For y = 0 To List1_bien.ListCount - 1
If List0_bien.List(x) = List1_bien.List(y) Then
List_Bien.AddItem List0_bien.List(x)
z = z + 1
Else

End If
Next y
Next x