XL 2016 Combobox sans doublons

[akni]

Bonjour tout le monde,

J'essaie de remplir une combobox sans doublons même avec Combobx.ListIndex=-1 dans fichier joint
merci pour toute aide.

 

[Dranreb]

Bonjour.
Ça se fait en une seule instruction en ayant coché la référence CLsCAs qui est le nom de projet VBA du xlam dont je joins le xlsm précurseur :

Sub cmb()
   Feuil4.ComboBox1.List = CLsCAs.SujetCBx(Feuil4.[E2].Resize(Feuil4.[E10000].End(xlUp).Row - 1))(0)
   End Sub

 

[BOISGONTIER]

Bonjour,

Objet dictionary

Private Sub ComboBox1_GotFocus()
  Set d = CreateObject("scripting.dictionary")
  For Each c In [E2:E10]
    d(c.Value) = ""
  Next c
  Me.ComboBox1.List = d.keys
End Sub

Boisgontier

 

[Dim.Reichart]

Bonjour,
J'ai récemment fait le même genre d'opération mais avec des listbox.
Il faut passer par une collection (qui n'accepte pas les doublons), puis copier les items de la collection dans ceux de la listbox, je pense que la méthode devrait être la même avec une combobox.
Je vous laisse regarder le code dans le fichier joint.
EDIT: Bonjour @BOISGONTIER (qui m'a donné la méthode citée) et Dranreb (dont je vais étudier la méthode)