Discussion :

[modus57]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Franc]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[modus57]

Bonjour et merci Franc pour ta promptitude:
Ç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.