Remplir ComboBox sans vide ni doublon

alexos · 10 Mai 2016

Bonjour à tous !

Dans un userform, j'ai créé une ComboBox1 qui va chercher les données de la feuille "données", colonne A. Ces données sont amenées à évoluer, c'est pourquoi j'ai effectué un remplissage qui peut aller jusqu'à la ligne A15000 (les données ne vont que jusqu'à la ligne 8000 et quelques, d'où la présence de nombreux vides)

Problème : grâce à des recherches sur différents forums, j'arrive à remplir ma ComboBox sans doublon ou sans vide, mais pas à combiner les deux

J'ai essayé de combiner à peu près toutes les méthodes trouvées sur le net, mais sans succès..

Voici mon code actuel, qui ne supprime que les cellules vides :

Code:

Private Sub UserForm_Initialize()
Dim lf As Long 
Sheets("données").Select
lf = Range("A15000").End(xlUp).Row 
ComboBox1.Clear 
For Each cel In Range("A2:A" & lf) 
If cel.Value <> "" Then ComboBox1.AddItem cel.Value
Next cel 'prochaine cellule

Je vous mets une photo en PJ pour plus de clarté avec les couleurs.

Si quelqu'un a une idée des lignes à ajouter pour pouvoir supprimer aussi les doublons je suis preneur..

Merci !

Alex

gonz19 · 10 Mai 2016

Re : Remplir ComboBox sans vide ni doublon

bonjour,

voici le code que j'utilise pour remplir mais combobox sen vide ni doublon.

Code:

dim cell, plage as range

set plage = range (cells(lig,6),cells(lig,dercol))
combobox4.additem
for each cell in plage 
if motspi = "" then goto suite 
combobox4= motsPi 
if combobox4.listindex = -1 then
combobox4.additem motsPi
end if 
suite:
motsPi = empty
next cell

BOISGONTIER · 10 Mai 2016

Re : Remplir ComboBox sans vide ni doublon

Bonjour,

Listes sans doublons triée

Code:

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

http://boisgontierjacques.free.fr/fichiers/Formulaire/ListeSansDoublonsDictionaire.xls

JB

alexos · 10 Mai 2016

Re : Remplir ComboBox sans vide ni doublon

Merci, j'ai réussi avec le Dictionary, je ne sais pas pourquoi mais j'avais déjà essayé sans succès...

Merci à vous deux !

Gonz19 je n'ai pas réussi avec ta méthode.. Que représente MotsPi ? Merci

Dranreb · 10 Mai 2016

Re : Remplir ComboBox sans vide ni doublon

Bonjour.
Si vous aviez ajouté "et classé" je vous aurais proposé mon module MSujetCBx qui n'utilise pas de Dictionary, et qui produit en parallèle une table des listes des numéros de lignes où ont été trouvées chaque poste. Les tables des clés et des listes de numéros de lignes sont d'ailleurs regroupées dans un seul Array(0 To 1) contenu dans un Variant renvoyé par une fonction SujetCBx(LaPlageColonne)
Si on n'a pas besoin, même en y ayant réfléchi, des listes de numéros de lignes pour s'éviter des recherches ultérieures selon les choix, on peut donc faire ComboBoxX.List = SujetCBx(LaPlageColonne)(0).
Puissant comme instruction, non ?

alexos · 10 Mai 2016

Re : Remplir ComboBox sans vide ni doublon

Merci mais les données à afficher dans le combobox (ce sont des codes clients) sont déjà classées, donc c'est plus simple de mon côté

gonz19 · 10 Mai 2016

Re : Remplir ComboBox sans vide ni doublon

motsPi est une variable texte extrait d'une cellule. Je passe en variable les donnée de la cellule car j'extrait qu'une partie de celle-ci.

Dranreb · 10 Mai 2016

Re : Remplir ComboBox sans vide ni doublon

Merci mais les données à afficher dans le combobox (ce sont des codes clients) sont déjà classées

Alors c'est très simple puisque toutes les lignes d'un même client sont ensembles. Il ne reste qu'à les empiler dans un tableau en mémoire à destination de la ComboBoxX.List chaque fois que le code client change !
Ne serait ce pas plus long à écrire que d'utiliser ma fonction même si c'est déjà classé ?
D'ailleurs ce ne l'est pas si vous dites qu'il y a des vides: soit ils sont intercalés et ce n'est pas classé, soit ils sont à la fin ou au début et il y a moyen de considérer qu'ils n'en font pas partie.

Remplir ComboBox sans vide ni doublon

alexos

XLDnaute Nouveau

Pièces jointes

gonz19

XLDnaute Occasionnel

BOISGONTIER

XLDnaute Barbatruc

alexos

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

alexos

XLDnaute Nouveau

gonz19

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Pièces jointes

Discussions similaires