[VBA]Remplir une combobox sans doublon

[FAQ XLD]

Pour remplir une combobox sans doublon et simplement, placer ce code dans le code de l'userform concerné

Dans l'exemple, il faut remplir la combobox1 avec les données de la colonne A de la feuille "Base".

Private Sub UserForm_Initialize()

Dim i As Integer

For i = 1 To Sheets("Base").Range("A65536").End(xlUp).Row
  ComboBox1 = Sheets("Base").Range("A" & i)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Base").Range("A" & i)
Next i

End Sub

_____________________________________________________________
Merci à Spitnolan08 et Staple1600 pour leur participation