Sélectionner les noms d'items identiques dans 2 ListBox multisélection dans un UserForm

Version imprimable

Bonjour,

Je compare les éléments sélectionnés dans une ListBox avec ceux de l’autre ListBox et sélectionne ceux qui sont identiques.

Voici un exemple de code qui effectue cette opération :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub SelectionnerElementsCommuns() Dim i As Integer, j As Integer Dim listBox1 As Object, listBox2 As Object ' Référence aux ListBox Set listBox1 = UserForm1.ListBox1 Set listBox2 = UserForm1.ListBox2 ' Parcours des éléments de la première ListBox For i = 0 To listBox1.ListCount - 1 ' Parcours des éléments de la deuxième ListBox For j = 0 To listBox2.ListCount - 1 ' Vérifier si l'élément est présent If listBox1.List(i) = listBox2.List(j) Then listBox2.Selected(j) = True End If Next j Next i End Sub
Cela fonctionne bien à un point de détail près, le dernier item est systématiquement sélection que ce soit dans ListBox1 vers ListBox2 ou l’inverse.

Je ne vois pas comment corriger ça, qui a une petite idée.

Merci d’avance pour vos réponses.

Bonjour, d'après ton code, tu compares tous les éléments de Listbox1 avec tous les éléments de Listbox2. Or, d'après l'énoncé de ton problème, tu veux comparer les items sélectionnés seulement. Teste comme ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub SelectionnerElementsCommuns()
    Dim i As Integer, j As Integer
    Dim listBox1 As Object, listBox2 As Object
 
    Set listBox1 = UserForm1.ListBox1
    Set listBox2 = UserForm1.ListBox2
 
    ' Parcours des éléments de la première ListBox
    For i = 0 To listBox1.ListCount - 1
        ' Vérifier si l'élément est sélectionné dans ListBox1
        If listBox1.Selected(i) = True Then
            ' Parcours des éléments de la deuxième ListBox
            For j = 0 To listBox2.ListCount - 1
                ' Vérifier si l'élément est identique
                If listBox1.List(i) = listBox2.List(j) Then
                    listBox2.Selected(j) = True
                End If
            Next j
        End If
    Next i
End Sub

26/05/2025, 16h02
modus57

Bonjour et merci Franc pour ta promptitude: :D :bravo::ccool:
Ça fonctionne nickel chrome, pourtant j'ai cherché sans trouver de réponse.
Avec un coup de cuillère à pot vous m'apportez la solution.
Re merci beaucoup et bonne soirée.