Combo box synchronisés

Version imprimable

Bonjour à tous et à toutes,

Je dispose d'un fichier excel dans lequel j'ai réussi à intégrer un Userform avec deux listes déroulantes synchronisées à partir de deux colonnes d'un tableau ( colonnes A et B de la feuille Selection).

Ainsi par exemple si je choisis dans la première liste box un marché ( entreprises, ferroviere , etc...) j'ai une deuxième liste déroulante qui affiche la segmentation que souhaite sélectionner l'utilisateur.
Cependant j'ai des doublons à l'intérieur de cette deuxième list box.... je souhaiterais lorsque l'utilisateur selectionne le marché qu'il puisse choisir seulement parmis 3 segmentation (PEES, MEES, GEES) et qu'enfin l'utilisateur choisisse ensuite via une listbox 3 la personne qu'il souhaite.

Ma demande consiste à savoir comment enlever les doublons de la deuxième Combobox et comment ajouter une troisieme liste box qui permettrait à l'utilisateur de selectionner son client.

Le code que j'utilise est le suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Private Sub UserForm_Initialize() Set f = Sheets("SELECTION") Set d = CreateObject("Scripting.Dictionary") For Each c In f.Range("a2:a" & f.[a65000].End(xlUp).Row) d.Item(c.Value) = "" Next c Me.ComboBox1.List = d.keys End Sub Private Sub ComboBox1_Change() Me.ComboBox2.Clear i = 0 For Each c In f.Range("a2:a" & f.[a65000].End(xlUp).Row) If c = Me.ComboBox1 Then Me.ComboBox2.AddItem c.Offset(0, 1) Me.ComboBox2.List(i, 1) = c.Offset(0, 2) i = i + 1 End If Next c Me.ComboBox2.SetFocus SendKeys "{F4}" End Sub Private Sub ComboBox2_click() Me.adresse = Me.ComboBox2.Column(1) End Sub
Merci par avance de votre précieuse aide.

A bientôt

heu

bonjour

voila deja comment remplir une combobox ou une listbox sans doublons

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
'Attention, si tu rencontres une erreur au moment de l'exécution du code et que celui-ci s'arrêtesur Dim Table as Scripting.Dictionary, _
dans la Fenêtre VBE(visual basic editor) / barre des menus / outils / références / vérifie bien que "Microsoft scripting Runtime" _
est coché
 
 
Private Sub UserForm_Initialize()
Dim Table As Scripting.Dictionary
 Dim i, j, deja As Boolean, A As Variant
Set Table = New Scripting.Dictionary
j = 0
With Sheets(1) ' À adapter
For Each A In .Range("B2:B" & .Range("B" & Rows.Count).End(xlUp).Row)
'Vérifie si le nom n'est pas une erreur, n'est pas vide
'n'a pas déjà été récupéré, ne contient pas "utilisateur"
deja = True
 
If IsError(A) Then
deja = False ' on n'y met pas les valeurs d'erreur
 ElseIf Len(A) = 0 Then
deja = False
 ElseIf Table.Exists(A.Value) Then
deja = False
End If
 
 If deja Then Table.Add A.Value, j: j = j + 1 'rajoute Next
Next
End With
 For i = 0 To Table.Count - 1
Debug.Print Table.Keys(i)
ListBox1.AddItem (Table.Keys(i))
Next i
 
Set Table = Nothing ' Nettoyage
End Sub

le reste tu saura faire je suppose ?
n'oublie pas de cocher la reference "Microsoft scripting Runtime"

au plaisir

Doubons dans Listbox

Bonjour,

JE vous remercie pour vos lumières.
Néanmoins après avoir réadapté le script j'ai toujours des doublons qui s'affichent. Si je selectionne dans la listbox 1 le marché Entreprises, il apparait toujours des doublons :

Voila le script du UserForm :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Dim f
 
 
Private Sub adresse_Change()
 
End Sub
 
Private Sub ComboBox3_Change()
 
Dim Table As Scripting.Dictionary
 Dim i, j, deja As Boolean, A As Variant
Set Table = New Scripting.Dictionary
j = 0
With Sheets(Selection!) ' À adapter
For Each A In .Range("B2:B" & .Range("B" & Rows.Count).End(xlUp).Row)
'Vérifie si le nom n'est pas une erreur, n'est pas vide
'n'a pas déjà été récupéré, ne contient pas "utilisateur"
deja = True
 
If IsError(A) Then
deja = False ' on n'y met pas les valeurs d'erreur
 ElseIf Len(A) = 0 Then
deja = False
 ElseIf Table.Exists(A.Value) Then
deja = False
End If
 
 If deja Then Table.Add A.Value, j: j = j + 1 'rajoute Next
Next
End With
 For i = 0 To Table.Count - 1
Debug.Print Table.Keys(i)
ListBox1.AddItem (Table.Keys(i))
Next i
 
Set Table = Nothing ' Nettoyage
End Sub
 
Private Sub CommandButton1_Click()
If ComboBox1.ListIndex > -1 Then
   Sheets("SELECTION").Range("I4") = ComboBox2.Text
End If
Unload Me
cacheronglet
 
End Sub
 
 
Private Sub CommandButton2_Click()
Sheets("SELECTION").Select
Unload Me
End Sub
 
Private Sub Label2_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
  Set f = Sheets("SELECTION")
  Set d = CreateObject("Scripting.Dictionary")
  For Each c In f.Range("a2:a" & f.[a65000].End(xlUp).Row)
     d.Item(c.Value) = ""
  Next c
  Me.ComboBox1.List = d.Keys
End Sub
Private Sub ComboBox1_Change()
  Me.ComboBox3.Clear
  i = 0
  For Each c In f.Range("a2:a" & f.[a65000].End(xlUp).Row)
     If c = Me.ComboBox1 Then
       Me.ComboBox3.AddItem c.Offset(0, 1)
     End If
 
  Next c
  Me.ComboBox3.SetFocus
  SendKeys "{F4}"
End Sub
Private Sub ComboBox2_click()
   Me.adresse = Me.ComboBox2.Column(1)
End Sub

Peut être ai je mal intégré le code ?

Merci pour tes indications

03/11/2012, 13h38
patricktoulon

re

re

deja ca:

Code:

d.Item(c.Value) = ""

c'est pas bon
ca n'est pas parceque tu met rien dans l'item que l'item disparait

dans l'exemple que je t'ai donné la colection est vidée a la fin

maintenant il est vrai que je ne comprend pas tres bien ton code
surtout que je n'est pas les données sous les yeux

tu peux pas mettre un exemplaire vidé de toute donné confidentielles???

au plaisir
03/11/2012, 13h53
trycoon

Re

Le code, je ne le comprends pas très bien aussi.... c'est quelque chose que j'ai réussi à récupérer mais alors après pour le modifier bon courage.

Je te donne le fichier :

Tu trouveras une feuille appelée Selection:
Colonne A : le marché
Colonne B : la segmentation qui s'affiche en doublon
Colonne C : Les personnes qui correspont au marché et à la segmentation.

A ce jour , j'ai la liste des marchés listbox 1, la liste des segmentations non dédoublonnées listbox 2, et je souhaiterais en plus que l'utilisateur choisisse un client dans la listbox 3 et enfin que la valeur selectionner soit copier coller dans une cellule.

Je te remercie par avance
03/11/2012, 15h05
patricktoulon

re

re
tiens
papa noel est passé
03/11/2012, 16h08
trycoon

Voila que le papa noël a exhaussé ce que je voulais . Je te remercie énormément.

Je reviens vers toi si je ne comprends pas certaines choses ....

Je te remercie encore une fois cela fonctionne à merveille.
Par contre un question : est-il possible de restreindre le choix de GEES, MEES, PEES selon le marché

Je m'explique : si si tu choisis FERROVIERE et qu'il n'y a que PEES en face , est-il possible dans la listbox de n'afficher que le marché PEES ?

Merci par avance
03/11/2012, 16h28
patricktoulon

re

oui tout a fait de la meme maniere que je remplie la combo3

je regarde ca et je reviens
03/11/2012, 18h33
trycoon

Citation:

Envoyé par patricktoulon

oui tout a fait de la meme maniere que je remplie la combo3

je regarde ca et je reviens

Avez vous trouvé la solution ?
03/11/2012, 18h49
patricktoulon

re

non pas encore

et vous avez vous etudier le code que je vous ai fourni
l' avez vous compris
au plaisir
04/11/2012, 17h57
trycoon

Je vous remercie encore une fois.

Grâce à vous j'ai même pu rajouter une combo box supplémentaire pour affiner mes recherches. Par contre je rencontre toujours la difficulté des doublons.
J'ai relu votre astuce du début, et j'avoue ne pas savoir comment l'appliquer à ce cas spécifiquement.

Bien à vous.