Discussion :

[Karkan]

Bonjour,

J'ai un projet informatique à rendre bientôt et je bloque sur la création d'une ComboBox dans une des userform que j'ai fait.
J'arrive à créer la comboBox mais lorsque je sélectionne un des choix possible, les trois choix que j'avais se dédouble et je me retrouve avec 6 choix (deux fois les mêmes).
J'ai ajouter les choix possible avec "AddItem".
Mais je ne comprends pas pourquoi cela fait ça.

J'ai donc essayé une seconde solution, j'ai sélectionné la plage que je souhaite, mais dans cette plage j'ai plusieurs fois les mêmes choix, donc des doublons. Mais je n'ai aps trouvé la solution pour enlever ces doublons..

SI quelqu'un a une solution, je lui en serai très reconnaissante! Ce n'est pas indispensable à mon projet, mais ça faciliterai l'utilisation de l'application lors de l'entrée d'informations.

Merci et bonne fin de journée

[geogeo70]

bonjour,

on peut utiliser un code de Boigontier en voici une copie :
http://boisgontierjacques.free.fr/pa...#ListeSansDoub

Liste sans doublons pour combobox ou listbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  Set MonDico = CreateObject("Scripting.Dictionary")
  a = f.Range("A2:A" & f.[A65000].End(xlUp).Row)     ' tableau a(n,1) pour rapidité
  For i = LBound(a) To UBound(a)
     If a(i, 1) <> "" Then MonDico(a(i, 1)) = ""
  Next i
  Me.ComboBox1.List = MonDico.keys
End Sub

L'insertion dans le dico excel permet d'enlever les doublons!
Si peu de valeurs inutile de passer par le tableau.
Cordialement
geogeo