combobox et doublons?

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim Cel As Range 'déclare la variable Cel
Dim x As Long 'déclare la variable x

'boucle 1 :sur toutes les cellule de la plage G12:G...
For Each Cel In Range('G12:G' & Range('G65536').End(xlUp).Row)
If ComboBox1.ListCount > 0 Then 'condition 1 :si la ComboBox1 contient au moins un item
'boucle 2 : sur tous les items de la ComboBox1
For x = 0 To ComboBox1.ListCount - 1
'condition : si la valeur de la cellule exite dans la ComboBox1,
'va à la balise 'suite' (sans s'ajouter à la ComboBox1)
If Cel.Value = ComboBox1.List(x) Then GoTo suite
Next x 'prochain item de la ComboBox1 (boucel 2)
End If 'fin de la condition 1
ComboBox1.AddItem Cel.Value 'ajoute la valeur de la cellule à la ComboBox1
suite: 'balise
Next Cel 'prochaine cellule de la plage (boucle 1)
End Sub

Cliquez pour agrandir...