XL 2016 Combobox sans doublons

akni · 3 Novembre 2019

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.

Dim.Reichart · 3 Novembre 2019

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)

Dranreb · 3 Novembre 2019

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 :

VB:

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

BOISGONTIER · 3 Novembre 2019

Bonjour,

Objet dictionary

VB:

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 · 3 Novembre 2019

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)

XL 2016 Combobox sans doublons

akni

XLDnaute Nouveau

Pièces jointes

Dim.Reichart

Dranreb

XLDnaute Barbatruc

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Dim.Reichart

XLDnaute Occasionnel

Pièces jointes

Discussions similaires

XL 2016 Combobox sans doublons

akni

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Dim.Reichart

XLDnaute Occasionnel

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency