pumbathekings
XLDnaute Junior
Bonjour,
Voici mon problème, lorsque je charge une configuration via la combobox, des sous-fonctions se collent dans une listbox (subfunctions). Lorsque je veux rajouter des sousfonctions, je fais mon drag N drop. d'autres sousfonctions vont alors s'ajouter à ma listbox subfunctions.
Le problème étant, je n'arrive pas à supprimer ces fameux doublons.
VOici mon code:
Si quelqu'un avait une solution..
D'avance merci.
Pumba
Voici mon problème, lorsque je charge une configuration via la combobox, des sous-fonctions se collent dans une listbox (subfunctions). Lorsque je veux rajouter des sousfonctions, je fais mon drag N drop. d'autres sousfonctions vont alors s'ajouter à ma listbox subfunctions.
Le problème étant, je n'arrive pas à supprimer ces fameux doublons.
VOici mon code:
Public Sub Sup_doublons()
Dim i As Long
Dim j As Long
With Me.Subfunctions
For i = 0 To .ListCount - 1
For j = .ListCount To (i + 1) Step -1
If Subfunctions.Column(.List, i) = Subfunctions.Column(.List, j) Then
.RemoveItem
End If
Next j
Next i
End With
End Sub
Si quelqu'un avait une solution..
D'avance merci.
Pumba