Supprimer items listbox selon une autre listbox

Bonjour

Je cherche à supprimer les items de ma Listbox2 si ceux-ci ne se trouvent pas dans la 2° Colonne de ma Listbox1 .

Pour cela j'ai écrit (ou des codes y ressemblant) :

For J = 0 To Me.ListBox2.ListCount - 1
        For K = 0 To Me.ListBox1.ListCount - 1
            If ListBox2.Column(0, J) <> ListBox1.Column(1, K) Then
                ListBox2.RemoveItem (J)
            End If
        Next K
Next J

Mais bien -sûr je ne trouve pas la solution

Merci d'avance

Bonjour Boby63 le forum

voilà le fichier que tu n'as pas été capable de joindre !!

tu ouvres tu cliques traiter et tu me redis

a+

papou

55boby63-v1.xlsm (20.00 Ko)

Bonjour paritec

Les premiers essais semblent bons. Merci beaucoup.

Leçon retenue pour le classeur manquant.

Merci

Re Boby63 le forum

on peut faire plus simple, mais comme tu avais fais une boucle j'ai continué là-dessus

a+

Papou

Rechercher des sujets similaires à "supprimer items listbox"