[XL-2016] comparer le contenue de deux ListBox

Bonjour NADA et marhbé / Bonjour la forum
Personnellement j'arrive pas à comprendre la demande
Aussi et pour faire bouger cette discussion et si tu cherches à comparer deux listes et tu alimente une listbox par la différence de la list1/list2
liste 1 dans la colonne A à partir de A2
liste 2 dans la colonne B à partir de B2 :
tu peux faire avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub UserForm_Initialize()
   ListBox2.Clear
Dim w1 As Worksheet
Set w1 = Sheets("feuil1")
J = 0
For I = 2 To w1.Cells(Rows.Count, 1).End(xlUp).Row
    If Application.WorksheetFunction.CountIf(w1.Range("B:B"), w1.Range("A" & I)) = 0 Then
    ListBox2.ColumnCount = 1
    ListBox2.ColumnWidths = "50"
    ListBox2.AddItem
    ListBox2.Column(0, J) = w1.Cells(I, 1)
    J = J + 1
    End If
Next I
 
End Sub

ou bien avec dictionnaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Set f1 = Sheets("feuil1")
  Set d = CreateObject("scripting.dictionary")
  d.CompareMode = vbTextCompare
  Dim i As Integer
   On Error Resume Next
   For Each c In f1.Range("B2", [b65000].End(xlUp))
    d(c.Value) = ""
  Next c
 
  Set d2 = CreateObject("scripting.dictionary")
  d2.CompareMode = vbTextCompare
  For Each c In f1.Range("A2:A" & f1.[A65000].End(xlUp).Row)
   If Not d.exists(c.Value) Then d2(c.Value) = ""
  Next c
 
 
  ListBox3.List = Application.Transpose(d2.keys)

Bonne continuation