Comparer et sélectionner valeurs de deux ListBox

Bonjour tout le monde,

Après une multitude de codes n’aboutissants à rien je m’en réfère à vous.

Ce qui me paraissait simple de base est devenu un enfer…

je dispose d’une première Listbox avec quelques valeurs et je souhaite que dans la seconde Listbox les valeurs identiques soient automatiquement sélectionnées.

merci de votre aide !

Bonjour,

Manque de précisons sur la type de ListBox utilisées(dans un formulaire, sur une feuille, contrôle formulaire, contrôle ActiveX)

Voici une proposition avec des Listbox (activex) sur la feuille.

Sub Comparer_Listbox()
    Application.ScreenUpdating = False
    For i = 0 To ListBox2.ListCount - 1
        ListBox2.Selected(i) = False
        For j = 0 To ListBox1.ListCount - 1
            ListBox2.ListIndex = i
            ListBox1.ListIndex = j
            Valeur1 = ListBox2.List(ListBox2.ListIndex, 0)
            Valeur2 = ListBox1.List(ListBox1.ListIndex, 0)
            If Valeur1 = Valeur2 Then
                ListBox2.Selected(i) = True
            End If
        Next j
    Next i
End Sub

Cdlt