suppression Listbox après test

[Benoit]

Bonjour le Forum,
J'aimerais un coup de pouce de votre part.
J'ai 2 listboxs et je veux enlever les lignes de la listbox2 pour lesquelles un élément dans une colonne est présente dans la listbox1
Merci de votre aide
Dim i, j As Byte
Dim Item As Variant
With Me.LB2

For i = 0 To Me.LB1.ListCount - 1
For j = 0 To Me.LB2.ListCount - 1
If Me.LB1.Column(4, i) = Me.LB2.Column(1, j) Then
' .RemoveItem Item.Me.LB2.List(1, j)
Me.LB2.RemoveItem (Me.LB2(j))
End If
Next j
Next i
end with

 

[Benoit]

Re:suppression Ligne Listbox après test

Benoit écrit:

Bonjour le Forum,
J'aimerais un coup de pouce de votre part.
J'ai 2 listboxs et je veux enlever les lignes de la listbox2 pour lesquelles un élément dans une colonne est présente dans la listbox1
Merci de votre aide
Dim i, j As Byte
Dim Item As Variant
With Me.LB2

For i = 0 To Me.LB1.ListCount - 1
For j = 0 To Me.LB2.ListCount - 1
If Me.LB1.Column(4, i) = Me.LB2.Column(1, j) Then
' .RemoveItem Item.Me.LB2.List(1, j)
Me.LB2.RemoveItem (Me.LB2(j))
End If
Next j
Next i
end with

 

[Hervé]

Re:suppression Ligne Listbox après test

Bonjour benoit

Il faut que tu fasses tes boucles à l'envers, comme ceci :

Dim i As Integer, j As Integer
Dim Item As Variant

With Me.LB2

For i = Me.LB1.ListCount - 1 To 0 Step -1
For j = Me.LB2.ListCount - 1 To 0 Step -1
If Me.LB1.Column(4, i) = Me.LB2.Column(1, j) Then
Me.LB2.RemoveItem (j)
End If
Next j
Next i
End With

salut

 

[Benoit]

Re:suppression Ligne Listbox après test

Bonjour Hervé, le Forum
mille fois merci à toi Hervé.
Cela fonctionne
A bientôt