Private Sub NoDupesInCombo(ByRef cbo As ComboBox)
Dim i As Long, j As Long
For i = 0 To cbo.ListCount - 1
For j = cbo.ListCount - 1 To i + 1 Step -1
If cbo.List(i) = cbo.List(j) Then cbo.RemoveItem (j)
Next j
Next i
End Sub
Private Sub UserForm_Initialize() 'Form_Load pour vb6
With ComboBox1
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "1"
.AddItem "1"
.AddItem "2"
.AddItem "2"
.AddItem "3"
.AddItem "3"
End With
End Sub
' *** Exemple d'appelle :
Private Sub CommandButton1_Click()
Call NoDupesInCombo(Me.ComboBox1)
End Sub