Combobox sans doublon

[bibbip35]

Bonsoir à tous

Je reviens vers vous 1 nouvelle fois, car je rencontre 1 problème sur 3 combobox servant à alimenter un feuille
ou je souhaiterais qu'il n'y a pas de doublon dans liste deroulante

MAlgré mes recherches sur le forum et sur internet , je ne trouve pas de solution
J'ai essaye plusieurs code mais sans succés
😕
Peut etre du au faite que j'utilise la fontion tag avec rowsource?

Pouvez-vous m'aider?

Merci à tous

 

[Robert]

Re : Combobox sans doublon

Bonsoir Bibbip, bonsoir le forum,

Et le petit fichier exemple qui va bien ?

 

[zeltron24]

Re : Combobox sans doublon

Bonsoir Bibbip35

Sans fichier Dur dur.......😕

EDIT: bonsoir Robert et Regueiro : Boum sur nos messages...

 

[Regueiro]

Re : Combobox sans doublon

Bonsoir
Peux-tu joindre un bout de fichier
A+

 

[bibbip35]

Re : Combobox sans doublon

Avec le fichier exemple, c'est mieux!!!

 

[Staple1600]

Re : Combobox sans doublon

Bonsoir à tous

bipbip35
Tes recherches t'ont amenés ici?
https://www.excel-downloads.com/thr...ans-doublons-et-par-ordre-alphabetique.81048/

NB: Dans la FAQ du forum, il y a plein d'autres trésors 😉

PS: Pour un ComboxBox, il suffit d'adapter le code en conséquence.

 

[bibbip35]

Re : Combobox sans doublon

Oui , j'ai utilisé ce code , mais ca me genere 1 erreur
A moins que je l'ai mis au mauvais endroit

 

[Robert]

Re : Combobox sans doublon

Bonsoir le fil, bonsoir le forum,

Trouvé ici récemment mais (vraiment désolé pour lui) j'ai oublié son nom...
Sinon j'utilise toujours ce que j'appelle la méthode JB certainement plus rapide si beaucoup de données...
Attention, la propriété RowSource peut parfois posé des problème ! Pour ma part je ne l'utilise jamais...
Le fichier :

 

[Regueiro]

Re : Combobox sans doublon

Bonsoir
Enlève le RowSource du combobox1 dans les propriétés

Ensuite dans ton USF FORM-AJOUTER

Private Sub UserForm_Initialize()
   Set f = Sheets("Config. ligne")
   Set mondico = CreateObject("Scripting.Dictionary")
   a = f.Range("A7: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
   '--avec tri
   temp = mondico.keys
   Call Tri(temp, LBound(temp), UBound(temp))
   Me.ComboBox1.List = temp
 End Sub

Sub Tri(a, gauc, droi) ' Quick sort
   ref = a((gauc + droi) \ 2)
   g = gauc: d = droi
   Do
      Do While a(g) < ref: g = g + 1: Loop
      Do While ref < a(d): d = d - 1: Loop
      If g <= d Then
         temp = a(g): a(g) = a(d): a(d) = temp
         g = g + 1: d = d - 1
      End If
    Loop While g <= d
    If g < droi Then Call Tri(a, g, droi)
    If gauc < d Then Call Tri(a, gauc, d)
 End Sub

Ainsi de suite pour les autres Combobox
A+

 

[Staple1600]

Re : Combobox sans doublon

Bonsoir à tous


Robert
Pour alimenter ton fil Délire dans le salon 😉

'fon de la prise en compte de la ComboBox1

Ok je sors 😉

 

[bibbip35]

Re : Combobox sans doublon

Bonjour à tous

1 grand merci, la solution sans row source fonctionne parfaitement

Par contre, j'ai juste 1 souci, c'est que les valeurs numérique resorte en texte, Il est pas
possible quelle soit convertit directement en nombre
=> Message : le nombre de cette cellule est au format texte....

Merci à tous

Bonne journée