Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Combobox Sans doublon

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

sharkantipav

XLDnaute Occasionnel
Bonjour,
J'ai un petit souci a resoudre voici mes deux colonnes
A B
UNIV CY
DBAB IWM
DBAB IWM
DBAB IWM
WOLT IWM
WOLT IWM
WOLT IWM
GSCO IYR
GSCO IYR
GSCO IYR
GSCO IYR
SUSQ IYR
SUSQ IYR

J'ai un userform avec 2 combobox.
Dans le premier combobox jai ecrit un macro qui me list les noms de la Colonne B ss doublon

Private Sub UserForm_Initialize()
Dim r As Range
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each r In Sheets("Ticket").Range("e2:e200")
If (Not IsEmpty(r.Value)) * (Not .exists(r.Value)) Then
Me.Trade.AddItem r.Value
.Add r.Value, Nothing
End If
Next
End With
End Sub

Elle marche et j'obitiens une liste avec CY IWM IYR


Ma question porte sur la 2eme combobox --- Si par exemple je selectionne IWM ds la Combobox1, je souhaiterai voir dans la Combobox2 DBAB WOLT soit la liste ss doublons des valeur de la colonne A sachant que la colonne B est la valeur de la Combobox1
J'espere avoir ete clair
MErci bcp
 
Trier par date Trier par votes
Re : Combobox Sans doublon

Bonsoir.
Vous trouverez de nombreux exemples d'utilisation de ComboBoxCasc et ComboBoxLiés dans les classeurs que je joins dans les discussions auxquelles je répond et aussi en cherchant OutIdx, bien qu'il ne soit plus du tout à jour.
 
Vote positif 0 Vote négatif
Re : Combobox Sans doublon

Bonjour,

Je me permet de poster ce message afin d'avoir votre aide sur ce même sujet.
J'ai consulter votre site Formation Excel VBA JB qui est particulièrement efficace et je vous en remercie !

Je souhaite réaliser une liste dans combobox sans doublons :

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
'--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

Ce code est particulièrement rapide et efficace ...
Le problème c'est que je souhaite faire une liste sans doublon mais qui s'alimente avec beaucoup de bases de données.
Autrement dit, je souhaite faire une seule et même liste d'une seule colonne mais qui va s'alimenter sur plusieurs colonnes (Toujours sans doublon) :

- Combobox avec 1 colonne
- Avec colonne A de la feuille 1
- + colonne A de la feuille 2
- + colonne A de la feuille 3
- Etc ...

Merci beaucoup de votre aide précieuse !
 
Vote positif 0 Vote négatif
Re : Combobox Sans doublon

bonjour tous 🙂🙂🙂
sur plusieurs feuilles je passe par un array on faire egalement une boucle sur feuilles & mettre des exceptions

Code: 
Private Sub UserForm_Initialize()
 Dim temp, m As Object, Ws As Worksheet, i As Long
  Set m = CreateObject("Scripting.Dictionary")
 For Each Ws In Sheets(Array("1", "2", "3"))
 With Ws
 t = .Range("a2:a" & .Cells(Rows.Count, 1).End(3).Row).Value
 For i = 1 To UBound(t)
 m(t(i, 1)) = ""
 Next i
 End With
 Next Ws
 temp = m.keys
 Call tri(temp, LBound(temp), UBound(temp))
 ComboBox1.List = temp
End Sub
Sub tri(a, gauc, droi)
  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
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

E
  • Résolu(e)
Microsoft 365 ComboBox "dynamiques" sans doublon sur plusieurs colonnes
Réponses
2
Affichages
225
ExcLnoob
E
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
1 K
fanch55
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
391
patricktoulon
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
245
CortoXls
C
C
  • Résolu(e)
XL 2021 Tri alpha sur combobox à 2 colonnes
2
Réponses
15
Affichages
838
dysorthographie
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
330
sylvanu
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
432
job75
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
482
tactic6
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
371
Phil69970
R
  • Question Question
XL 2016 userform / remplir combobox suivant une autre combobox
Réponses
3
Affichages
562
ChTi160
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
319
Gestionnaire_rh
G
F
  • Résolu(e)
XL 2019 2 conditions combobox
Réponses
4
Affichages
368
sylvanu
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
1 K
NONO14
N
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
1 K
kiki29
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
85
CortoXls
C
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
1 K
Sghaier Chafaa
S
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
243
vgendron
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
660
Mody200
M
E
  • Question Question
XL 2016 Execution de deux ComboBox dans un UserForm
Réponses
7
Affichages
812
Jacky67
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…