Private Sub EnleveDoublons(ByRef oUneListeBox As ListBox)
Dim i As Integer Dim iNbElmnt As Integer iNbElmnt = oUneListeBox.ListCount If iNbElmnt= 0 Then Exit Sub While i <= iNbElmnt If oUneListeBox.List(i) = oUneListeBox.List(i - 1) Then oUneListeBox.RemoveItem i - 1 i = 0: iNbElmnt = oUneListeBox.ListCount End If i = i + 1 Wend End Sub |