Bonjour à toutes et à tous,
J'ai besoin de votre aide pour assigner le contenu des lignes de 2 lisbox présentes sur un formulaire dans 2 variables array.
En pièce-jointe le formulaire et les codes.
Je parviens avec ce code à comparer ligne à ligne le contenu des 2 lisbox mais j'aimerais faire mieux, car,
il se pourrait que les égalités ne soient pas strictes, par exemple, la ligne 1 de la ListBox1 pourrait être égale à la ligne 2 de la ListBox2 et vice versa (idem pour les autres lignes).
Ce à quoi je souhaite aboutir :
lorsque les variables array contiendront les contenus des listbox, je voudrais comparer l'égalité de contenu des 2 variables indépendamment de la place de l'élément égal dans l'une ou l'autre des array.
J'ai besoin de votre aide pour assigner le contenu des lignes de 2 lisbox présentes sur un formulaire dans 2 variables array.
En pièce-jointe le formulaire et les codes.
Je parviens avec ce code à comparer ligne à ligne le contenu des 2 lisbox mais j'aimerais faire mieux, car,
il se pourrait que les égalités ne soient pas strictes, par exemple, la ligne 1 de la ListBox1 pourrait être égale à la ligne 2 de la ListBox2 et vice versa (idem pour les autres lignes).
Ce à quoi je souhaite aboutir :
lorsque les variables array contiendront les contenus des listbox, je voudrais comparer l'égalité de contenu des 2 variables indépendamment de la place de l'élément égal dans l'une ou l'autre des array.
Code:
With Sheets("Matières")
For k = 1 To ListBox1.ListCount
'fMatch = False
Derniereligne = .Cells(Application.Rows.Count, 1).End(xlUp).Row
For ic = Derniereligne To 2 Step -1
If .Cells(ic, 1).Value = CStr(Me.ComboBox2) Then .Rows(ic).Delete
Next ic
'End If
For l = 1 To ListBox3.ListCount
If ListBox1.List(k - 1, 1) = ListBox3.List(l - 1, 1) Then
fMatch = True
Exit For
End If
Next l
If Not fMatch Then
For Numonglet = 0 To Me.ListBox1.ListCount - 1
Nligne = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
.Range("A" & Nligne) = Ideleve
.Range("B" & Nligne) = Me.ListBox1.List(Numonglet, 0)
Next Numonglet
'ListBox3.AddItem ListBox1.List(k - 1)
End If
Next k
End With