Combobox alimenté par plusieurs colonnes

**youlig** · 18/03/2013, 09h31

Bonjour à Tous,

Je cherche de plusieurs jours comment relier 4 combobox ensemble.
Je m'explique :
sur un Userform d'entrée de coordonnés, je possède 4 combobox "Ville" (ComboboxVille1, ComboboxVille2,...) qui prennent respectivement leur source et destination dans les colonnes G, N, U et AB). Je souhaiterais que les villes entrées dans le comboboxVille1 apparaissent dans les 3 autres et ainsi de suite.
Si quelqu'un peux me dire si cela est possible ? ce serait super sympa.

Voici les bouts de code écrits en relation avec les combobox :

Code :

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

1
2
3
Private Sub ComboBoxVille1_Change()
    ComboBoxVille1 = UCase(ComboBoxVille1)
End Sub

Code :

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

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
Private Sub UserForm_Initialize()
 
  Set F = Sheets("Equipes")
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range(F.[G7], F.[G65000].End(xlUp))
   If c.Value <> "" Then MonDico.Item(c.Value) = c.Value
  Next c
  'Me.ComboBoxVille1.List = MonDico.items
  '--avec tri
  Temp = MonDico.items
  Call Tri(Temp, LBound(Temp), UBound(Temp))
  Me.ComboBoxVille1.List = Temp
 
 
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range(F.[N7], F.[N65000].End(xlUp))
   If c.Value <> "" Then MonDico.Item(c.Value) = c.Value
  Next c
  'Me.ComboBoxVille2.List = MonDico.items
  '--avec tri
  Temp = MonDico.items
  Call Tri(Temp, LBound(Temp), UBound(Temp))
  Me.ComboBoxVille2.List = Temp
 
 
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range(F.[U7], F.[U65000].End(xlUp))
   If c.Value <> "" Then MonDico.Item(c.Value) = c.Value
  Next c
  'Me.ComboBoxVille3.List = MonDico.items
  '--avec tri
  Temp = MonDico.items
  Call Tri(Temp, LBound(Temp), UBound(Temp))
  Me.ComboBoxVille3.List = Temp
 
 
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range(F.[AB7], F.[AB65000].End(xlUp))
   If c.Value <> "" Then MonDico.Item(c.Value) = c.Value
  Next c
  'Me.ComboBoxVille4.List = MonDico.items
  '--avec tri
  Temp = MonDico.items
  Call Tri(Temp, LBound(Temp), UBound(Temp))
  Me.ComboBoxVille4.List = Temp
 
End Sub

Code :

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

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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
Private Sub CmdValider_Click()
 
Dim num As Integer
 
num = Range("A65536").End(xlUp).Row + 1
 
'test des saisie dans le formulaire
If Me.TextBoxNomEquipe.Value = "" Then
 
    MsgBox "Vous devez entrer un Nom pour l'équipe ou alors mettez un ? dans la case. Merci"
    Me.TextBoxNomEquipe.SetFocus
Exit Sub
End If
 
If Me.TextBoxNom1.Value = "" Then
 
    MsgBox "Vous devez entrer un Nom pour le Joueur n°1 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxNom1.SetFocus
Exit Sub
End If
 
If Me.TextBoxPrenom1.Value = "" Then
 
    MsgBox "Vous devez entrer un Prénom pour le Joueur n°1 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxPrenom1.SetFocus
Exit Sub
End If
 
If Me.TextBoxAdresse1.Value = "" Then
 
    MsgBox "Vous devez entrer une Adresse pour le Joueur n°1 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxAdresse1.SetFocus
Exit Sub
End If
 
If Me.TextBoxCodePostal1.Value = "" Then
 
    MsgBox "Vous devez entrer un Code Postal pour le Joueur n°1 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxCodePostal1.SetFocus
Exit Sub
End If
 
If Me.ComboBoxVille1.Value = "" Then
 
    MsgBox "Vous devez entrer une Ville pour le Joueur n°1 ou alors mettez un ? dans la case. Merci"
    Me.ComboBoxVille1.SetFocus
Exit Sub
End If
 
If Me.TextBoxTelephone1.Value = "" Then
 
    MsgBox "Vous devez entrer un n° de Téléphone pour le Joueur n°1 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxTelephone1.SetFocus
Exit Sub
End If
 
If Me.TextBoxMail1.Value = "" Then
 
    MsgBox "Vous devez entrer une adresse Mail pour le Joueur n°1 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxMail1.SetFocus
Exit Sub
End If
 
If OptionButtonNbJoueurs2 = True Or OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxNom2.Value = "" Then
 
    MsgBox "Vous devez entrer un Nom pour le Joueur n°2 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxNom2.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs2 = True Or OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxPrenom2.Value = "" Then
 
    MsgBox "Vous devez entrer un Prénom pour le Joueur n°2 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxPrenom2.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs2 = True Or OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxAdresse2.Value = "" Then
 
    MsgBox "Vous devez entrer une Adresse pour le Joueur n°2 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxAdresse2.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs2 = True Or OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxCodePostal2.Value = "" Then
 
    MsgBox "Vous devez entrer un Code Postal pour le Joueur n°2 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxCodePostal2.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs2 = True Or OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.ComboBoxVille2.Value = "" Then
 
    MsgBox "Vous devez entrer une Ville pour le Joueur n°2 ou alors mettez un ? dans la case. Merci"
    Me.ComboBoxVille2.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs2 = True Or OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxTelephone2.Value = "" Then
 
    MsgBox "Vous devez entrer un n° de Téléphone pour le Joueur n°2 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxTelephone2.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs2 = True Or OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxMail2.Value = "" Then
 
    MsgBox "Vous devez entrer une adresse Mail pour le Joueur n°2 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxMail2.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxNom3.Value = "" Then
 
    MsgBox "Vous devez entrer un Nom pour le Joueur n°3 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxNom3.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxPrenom3.Value = "" Then
 
    MsgBox "Vous devez entrer un Prénom pour le Joueur n°3 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxPrenom3.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxAdresse3.Value = "" Then
 
    MsgBox "Vous devez entrer une Adresse pour le Joueur n°3 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxAdresse3.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxCodePostal3.Value = "" Then
 
    MsgBox "Vous devez entrer un Code Postal pour le Joueur n°3 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxCodePostal3.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.ComboBoxVille3.Value = "" Then
 
    MsgBox "Vous devez entrer une Ville pour le Joueur n°1 ou alors mettez un ? dans la case. Merci"
    Me.ComboBoxVille3.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxTelephone3.Value = "" Then
 
    MsgBox "Vous devez entrer un n° de Téléphone pour le Joueur n°3 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxTelephone3.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxMail3.Value = "" Then
 
    MsgBox "Vous devez entrer une adresse Mail pour le Joueur n°3 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxMail3.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxNom4.Value = "" Then
 
    MsgBox "Vous devez entrer un Nom pour le Joueur n°4 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxNom4.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxPrenom4.Value = "" Then
 
    MsgBox "Vous devez entrer un Prénom pour le Joueur n°4 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxPrenom4.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxAdresse4.Value = "" Then
 
    MsgBox "Vous devez entrer une Adresse pour le Joueur n°4 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxAdresse4.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxCodePostal4.Value = "" Then
 
    MsgBox "Vous devez entrer un Code Postal pour le Joueur n°4 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxCodePostal4.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs4 = True Then
    If Me.ComboBoxVille4.Value = "" Then
 
    MsgBox "Vous devez entrer une Ville pour le Joueur n°4 ou alors mettez un ? dans la case. Merci"
    Me.ComboBoxVille4.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxTelephone4.Value = "" Then
 
    MsgBox "Vous devez entrer un n° de Téléphone pour le Joueur n°4 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxTelephone2.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxMail4.Value = "" Then
 
    MsgBox "Vous devez entrer une adresse Mail pour le Joueur n°4 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxMail2.SetFocus
    Exit Sub
    End If
End If
 
'Mise en place des valeurs saisies
 
    Range("A" & num) = TextBox1
    Range("A" & num).Borders.Weight = xlThin
 
    Range("B" & num).Value = TextBoxNomEquipe
    Range("B" & num).Borders.Weight = xlThin
    Range("B" & num).Interior.ColorIndex = 3
 
    Range("C" & num).Value = TextBoxNom1
    Range("C" & num).Borders.Weight = xlThin
    Range("C" & num).Interior.ColorIndex = 37
    Range("D" & num).Value = TextBoxPrenom1
    Range("D" & num).Borders.Weight = xlThin
    Range("D" & num).Interior.ColorIndex = 37
    Range("E" & num).Value = TextBoxAdresse1
    Range("E" & num).Borders.Weight = xlThin
    Range("E" & num).Interior.ColorIndex = 37
    Range("F" & num).Value = TextBoxCodePostal1
    Range("F" & num).Borders.Weight = xlThin
    Range("F" & num).Interior.ColorIndex = 37
    Range("G" & num).Value = ComboBoxVille1
    Range("G" & num).Borders.Weight = xlThin
    Range("G" & num).Interior.ColorIndex = 37
    Range("H" & num).Value = TextBoxTelephone1
    Range("H" & num).Borders.Weight = xlThin
    Range("H" & num).Interior.ColorIndex = 37
    Range("I" & num).Value = TextBoxMail1
    Range("I" & num).Borders.Weight = xlThin
    Range("I" & num).Interior.ColorIndex = 37
 
    Range("J" & num).Value = TextBoxNom2
    Range("J" & num).Borders.Weight = xlThin
    Range("J" & num).Interior.ColorIndex = 44
    Range("K" & num).Value = TextBoxPrenom2
    Range("K" & num).Borders.Weight = xlThin
    Range("K" & num).Interior.ColorIndex = 44
    Range("L" & num).Value = TextBoxAdresse2
    Range("L" & num).Borders.Weight = xlThin
    Range("L" & num).Interior.ColorIndex = 44
    Range("M" & num).Value = TextBoxCodePostal2
    Range("M" & num).Borders.Weight = xlThin
    Range("M" & num).Interior.ColorIndex = 44
    Range("N" & num).Value = ComboBoxVille2
    Range("N" & num).Borders.Weight = xlThin
    Range("N" & num).Interior.ColorIndex = 44
    Range("O" & num).Value = TextBoxTelephone2
    Range("O" & num).Borders.Weight = xlThin
    Range("O" & num).Interior.ColorIndex = 44
    Range("P" & num).Value = TextBoxMail2
    Range("P" & num).Borders.Weight = xlThin
    Range("P" & num).Interior.ColorIndex = 44
 
    Range("Q" & num).Value = TextBoxNom3
    Range("Q" & num).Borders.Weight = xlThin
    Range("Q" & num).Interior.ColorIndex = 37
    Range("R" & num).Value = TextBoxPrenom3
    Range("R" & num).Borders.Weight = xlThin
    Range("R" & num).Interior.ColorIndex = 37
    Range("S" & num).Value = TextBoxAdresse3
    Range("S" & num).Borders.Weight = xlThin
    Range("S" & num).Interior.ColorIndex = 37
    Range("T" & num).Value = TextBoxCodePostal3
    Range("T" & num).Borders.Weight = xlThin
    Range("T" & num).Interior.ColorIndex = 37
    Range("U" & num).Value = ComboBoxVille3
    Range("U" & num).Borders.Weight = xlThin
    Range("U" & num).Interior.ColorIndex = 37
    Range("V" & num).Value = TextBoxTelephone3
    Range("V" & num).Borders.Weight = xlThin
    Range("V" & num).Interior.ColorIndex = 37
    Range("W" & num).Value = TextBoxMail3
    Range("W" & num).Borders.Weight = xlThin
    Range("W" & num).Interior.ColorIndex = 37
 
    Range("X" & num).Value = TextBoxNom4
    Range("X" & num).Borders.Weight = xlThin
    Range("X" & num).Interior.ColorIndex = 44
    Range("Y" & num).Value = TextBoxPrenom4
    Range("Y" & num).Borders.Weight = xlThin
    Range("Y" & num).Interior.ColorIndex = 44
    Range("Z" & num).Value = TextBoxAdresse4
    Range("Z" & num).Borders.Weight = xlThin
    Range("Z" & num).Interior.ColorIndex = 44
    Range("AA" & num).Value = TextBoxCodePostal4
    Range("AA" & num).Borders.Weight = xlThin
    Range("AA" & num).Interior.ColorIndex = 44
    Range("AB" & num).Value = ComboBoxVille4
    Range("AB" & num).Borders.Weight = xlThin
    Range("AB" & num).Interior.ColorIndex = 44
    Range("AC" & num).Value = TextBoxTelephone4
    Range("AC" & num).Borders.Weight = xlThin
    Range("AC" & num).Interior.ColorIndex = 44
    Range("AD" & num).Value = TextBoxMail4
    Range("AD" & num).Borders.Weight = xlThin
    Range("AD" & num).Interior.ColorIndex = 44
 
Unload Me 'vide et ferme l'UserForm
'bouton fermer
End Sub

Merci d'avance à Tous pour vos réponses

**keygen08** · 18/03/2013, 09h57

Bonjour
La source des 4 combobox devrait être unique ainsi lors de l'ajout d'une ville, la nouvelle donnée est disponible dans les 3 autres.
Donc, lors de la saisi d'une ville, verifier si le nom existe dans la colonne source, si non ajouter, puis mettre a jour le champs destination.

**youlig** · 18/03/2013, 10h29

Bonjour Keygen08,

En fait, actuellement, j'ai une source et une destination par combobox. Il faudrait que j'ai donc une seule source ? et 4 destination ?

**keygen08** · 18/03/2013, 11h59

Ben oui, c'est quand meme plus facile pour la mise a jour
1 je verifie si "ville" existe dans source
2 j'ajoute une ligne si nouvelle "ville"
3 je rempli destination
4 je recharge les trois autre combo avec source(dont la nouvelle ville)

A moins que tu ne cherche a lier les combo de la façon suivante
Combox1 = combox2=combo3
Auquel cas les valeur de combo2 et combo3 prenne la valeur entrer en 1

Une autre méthode est d'avoir une source avec toutes les villes dedans, comme ça, il n'y a pas de mise a jour à faire.
J'ai cela pour les ville française sous acess, la mise a jour ne se fait que très ponctuelllement.

**youlig** · 18/03/2013, 12h45

OK Je vais essayer de réaliser cela en suivant tes conseils de la 1ère méthode, mais je suis encore débutant !!! et je galère un peu sur les boucles et sur les fonctions If...Then.
Je reposterais en suivant mon avancement...

Merci de ton aide Keygen08

**youlig** · 21/03/2013, 13h53

Bonjour à Tous,

Pourriez vous me dire comment je pourrais modifier ce code de façon à ce qu'il mette la valeur de ce combobox dans la colonne AH au lieu de mettre lettre par lettre. Par exemple, au lieu de me mettre ABCD, il va me mettre A, AB,ABC et ABCD.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ComboBoxVille2_Change()
 
    Dim num As Integer
 
    num = Range("AH65536").End(xlUp).Row + 1
 
    Range("AH" & num).Value = ComboBoxVille2.Text
 
    ComboBoxVille2 = UCase(ComboBoxVille2)

Merci d'avance

**grisan29** · 21/03/2013, 15h39

bonjour Youlig
tu n'en dit pas trop
est ce une recherche de villes par code postals ou l'inverse bref, un peu plus de code et d'explication seront les bienvenues

Pascal

**youlig** · 21/03/2013, 16h11

Bonjour Grisan29,

En fait je possède un userform (cf fichier joint) pour saisir les coordonnés des participants à un tournoi.
je possède 4 combobox pour l'enregistrement de la ville de chacun des participants et j'aimerais que ces 4 combobox soient tous autoalimentés par les valeurs des autres. C'est pour cela que j'ai pris la solution d'enregistrer chaque combobox dans une colonne AH (en plus des 4 colonnes constituant chaque joueur). Et donc cette colonne devient la source de chacun de mes combobox.
J'espère avoir été assez clair dans mes explications ?

**grisan29** · 21/03/2013, 21h35

bonjour Youlig
mon intervention é"tait juste pour que tu en dises plus car a mon niveau je ne peux t'aider

Pascal

**patricktoulon** · 21/03/2013, 21h49

Bonsoir

ComboBoxVille2 = UCase(ComboBoxVille2)

Si j'ai bien compris tu veux mettre en majuscule l'item selectioné
Est-ce bien ca ????

Dans ce cas la ca doit être un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
private combobox1_click()
dim tablo()
ligne=combobox1.listindex
 for i= 0 to combobox1.listcount-1
 redim preserve tablo(i)
   if i<>combobox1.listindex THEN 
   set tablo(i)=lcase(combobox1.list(i))
   ELSE
   set tablo(i)=ucase(combobox1.list(i))
   end if 
 next i
combobox1.clear
combobox1.list()=tablo
'ici tu met le reste de ton code 
 
end sub

ainsi a chaque clic dans la liste l'item choisi est mis en majuscule

au plaisir

re
On pourrait meme raccourcir le tout

Code :

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

1
2
3
4
5
6
7
8
9
10
11
private combobox1_click()
dim tablo()
ligne=combobox1.listindex
 for i= 0 to combobox1.listcount-1
 redim preserve tablo(i)
     set tablo(i)=iif (i<>combobox1.listindex ,lcase(combobox1.list(i)),ucase (combobox1.list(i)))
next
combobox1.clear
combobox1.list()=tablo
'ici tu met le reste de ton code 
 end sub

Au plaisir

**youlig** · 22/03/2013, 16h31

Bonjour Patrick,

Tout d'abord merci de me consacrer du temps et de l'energie.
Comme tu as pu te rendre compte, je débute vraiment dans le VBA.
Ce que je cherche réellement à faire : c'est relier les listes de source de 4 combobox.
Je m'explique :
sur un Userform d'entrée de coordonnés, je possède 4 combobox "Ville" (ComboboxVille1, ComboboxVille2,...) qui prennent respectivement leur source et destination dans les colonnes G, N, U et AB). Je souhaiterais que les villes entrées dans le comboboxVille1 apparaissent dans les 3 autres, que les villes entrées dans le comboboxVille2 apparaissent dans les 3 autres et ainsi de suite.
Voici les codes que j'ai déjà écrit :

Code :

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

1
2
3
Private Sub ComboBoxVille2_Change()
    ComboBoxVille2 = UCase(ComboBoxVille2)
End Sub

Code :

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

1
2
3
Private Sub ComboBoxVille1_Change()
    ComboBoxVille1 = UCase(ComboBoxVille1)
End Sub

...etc pour les 4 combobox

Code :

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

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
Private Sub UserForm_Initialize()
 
  Set F = Sheets("Equipes")
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range(F.[G7], F.[G65000].End(xlUp))
   If c.Value <> "" Then MonDico.Item(c.Value) = c.Value
  Next c
  'Me.ComboBoxVille1.List = MonDico.items
  '--avec tri
  Temp = MonDico.items
  Call Tri(Temp, LBound(Temp), UBound(Temp))
  Me.ComboBoxVille1.List = Temp
 
 
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range(F.[N7], F.[N65000].End(xlUp))
   If c.Value <> "" Then MonDico.Item(c.Value) = c.Value
  Next c
  'Me.ComboBoxVille2.List = MonDico.items
  '--avec tri
  Temp = MonDico.items
  Call Tri(Temp, LBound(Temp), UBound(Temp))
  Me.ComboBoxVille2.List = Temp
 
 
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range(F.[U7], F.[U65000].End(xlUp))
   If c.Value <> "" Then MonDico.Item(c.Value) = c.Value
  Next c
  'Me.ComboBoxVille3.List = MonDico.items
  '--avec tri
  Temp = MonDico.items
  Call Tri(Temp, LBound(Temp), UBound(Temp))
  Me.ComboBoxVille3.List = Temp
 
 
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range(F.[AB7], F.[AB65000].End(xlUp))
   If c.Value <> "" Then MonDico.Item(c.Value) = c.Value
  Next c
  'Me.ComboBoxVille4.List = MonDico.items
  '--avec tri
  Temp = MonDico.items
  Call Tri(Temp, LBound(Temp), UBound(Temp))
  Me.ComboBoxVille4.List = Temp
 
End Sub

Code :

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

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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
Private Sub CmdValider_Click()
 
Dim num As Integer
 
num = Range("A65536").End(xlUp).Row + 1
 
'test des saisie dans le formulaire
If Me.TextBoxNomEquipe.Value = "" Then
 
    MsgBox "Vous devez entrer un Nom pour l'équipe ou alors mettez un ? dans la case. Merci"
    Me.TextBoxNomEquipe.SetFocus
Exit Sub
End If
 
If Me.TextBoxNom1.Value = "" Then
 
    MsgBox "Vous devez entrer un Nom pour le Joueur n°1 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxNom1.SetFocus
Exit Sub
End If
 
If Me.TextBoxPrenom1.Value = "" Then
 
    MsgBox "Vous devez entrer un Prénom pour le Joueur n°1 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxPrenom1.SetFocus
Exit Sub
End If
 
If Me.TextBoxAdresse1.Value = "" Then
 
    MsgBox "Vous devez entrer une Adresse pour le Joueur n°1 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxAdresse1.SetFocus
Exit Sub
End If
 
If Me.TextBoxCodePostal1.Value = "" Then
 
    MsgBox "Vous devez entrer un Code Postal pour le Joueur n°1 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxCodePostal1.SetFocus
Exit Sub
End If
 
If Me.ComboBoxVille1.Value = "" Then
 
    MsgBox "Vous devez entrer une Ville pour le Joueur n°1 ou alors mettez un ? dans la case. Merci"
    Me.ComboBoxVille1.SetFocus
Exit Sub
End If
 
If Me.TextBoxTelephone1.Value = "" Then
 
    MsgBox "Vous devez entrer un n° de Téléphone pour le Joueur n°1 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxTelephone1.SetFocus
Exit Sub
End If
 
If Me.TextBoxMail1.Value = "" Then
 
    MsgBox "Vous devez entrer une adresse Mail pour le Joueur n°1 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxMail1.SetFocus
Exit Sub
End If
 
If OptionButtonNbJoueurs2 = True Or OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxNom2.Value = "" Then
 
    MsgBox "Vous devez entrer un Nom pour le Joueur n°2 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxNom2.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs2 = True Or OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxPrenom2.Value = "" Then
 
    MsgBox "Vous devez entrer un Prénom pour le Joueur n°2 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxPrenom2.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs2 = True Or OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxAdresse2.Value = "" Then
 
    MsgBox "Vous devez entrer une Adresse pour le Joueur n°2 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxAdresse2.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs2 = True Or OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxCodePostal2.Value = "" Then
 
    MsgBox "Vous devez entrer un Code Postal pour le Joueur n°2 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxCodePostal2.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs2 = True Or OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.ComboBoxVille2.Value = "" Then
 
    MsgBox "Vous devez entrer une Ville pour le Joueur n°2 ou alors mettez un ? dans la case. Merci"
    Me.ComboBoxVille2.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs2 = True Or OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxTelephone2.Value = "" Then
 
    MsgBox "Vous devez entrer un n° de Téléphone pour le Joueur n°2 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxTelephone2.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs2 = True Or OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxMail2.Value = "" Then
 
    MsgBox "Vous devez entrer une adresse Mail pour le Joueur n°2 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxMail2.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxNom3.Value = "" Then
 
    MsgBox "Vous devez entrer un Nom pour le Joueur n°3 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxNom3.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxPrenom3.Value = "" Then
 
    MsgBox "Vous devez entrer un Prénom pour le Joueur n°3 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxPrenom3.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxAdresse3.Value = "" Then
 
    MsgBox "Vous devez entrer une Adresse pour le Joueur n°3 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxAdresse3.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxCodePostal3.Value = "" Then
 
    MsgBox "Vous devez entrer un Code Postal pour le Joueur n°3 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxCodePostal3.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.ComboBoxVille3.Value = "" Then
 
    MsgBox "Vous devez entrer une Ville pour le Joueur n°1 ou alors mettez un ? dans la case. Merci"
    Me.ComboBoxVille3.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxTelephone3.Value = "" Then
 
    MsgBox "Vous devez entrer un n° de Téléphone pour le Joueur n°3 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxTelephone3.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs3 = True Or OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxMail3.Value = "" Then
 
    MsgBox "Vous devez entrer une adresse Mail pour le Joueur n°3 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxMail3.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxNom4.Value = "" Then
 
    MsgBox "Vous devez entrer un Nom pour le Joueur n°4 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxNom4.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxPrenom4.Value = "" Then
 
    MsgBox "Vous devez entrer un Prénom pour le Joueur n°4 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxPrenom4.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxAdresse4.Value = "" Then
 
    MsgBox "Vous devez entrer une Adresse pour le Joueur n°4 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxAdresse4.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxCodePostal4.Value = "" Then
 
    MsgBox "Vous devez entrer un Code Postal pour le Joueur n°4 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxCodePostal4.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs4 = True Then
    If Me.ComboBoxVille4.Value = "" Then
 
    MsgBox "Vous devez entrer une Ville pour le Joueur n°4 ou alors mettez un ? dans la case. Merci"
    Me.ComboBoxVille4.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxTelephone4.Value = "" Then
 
    MsgBox "Vous devez entrer un n° de Téléphone pour le Joueur n°4 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxTelephone2.SetFocus
    Exit Sub
    End If
End If
 
If OptionButtonNbJoueurs4 = True Then
    If Me.TextBoxMail4.Value = "" Then
 
    MsgBox "Vous devez entrer une adresse Mail pour le Joueur n°4 ou alors mettez un ? dans la case. Merci"
    Me.TextBoxMail2.SetFocus
    Exit Sub
    End If
End If
 
'Mise en place des valeurs saisies
 
    Range("A" & num) = TextBox1
    Range("A" & num).Borders.Weight = xlThin
 
    Range("B" & num).Value = TextBoxNomEquipe
    Range("B" & num).Borders.Weight = xlThin
    Range("B" & num).Interior.ColorIndex = 3
 
    Range("C" & num).Value = TextBoxNom1
    Range("C" & num).Borders.Weight = xlThin
    Range("C" & num).Interior.ColorIndex = 37
    Range("D" & num).Value = TextBoxPrenom1
    Range("D" & num).Borders.Weight = xlThin
    Range("D" & num).Interior.ColorIndex = 37
    Range("E" & num).Value = TextBoxAdresse1
    Range("E" & num).Borders.Weight = xlThin
    Range("E" & num).Interior.ColorIndex = 37
    Range("F" & num).Value = TextBoxCodePostal1
    Range("F" & num).Borders.Weight = xlThin
    Range("F" & num).Interior.ColorIndex = 37
    Range("G" & num).Value = ComboBoxVille1
    Range("G" & num).Borders.Weight = xlThin
    Range("G" & num).Interior.ColorIndex = 37
    Range("H" & num).Value = TextBoxTelephone1
    Range("H" & num).Borders.Weight = xlThin
    Range("H" & num).Interior.ColorIndex = 37
    Range("I" & num).Value = TextBoxMail1
    Range("I" & num).Borders.Weight = xlThin
    Range("I" & num).Interior.ColorIndex = 37
 
    Range("J" & num).Value = TextBoxNom2
    Range("J" & num).Borders.Weight = xlThin
    Range("J" & num).Interior.ColorIndex = 44
    Range("K" & num).Value = TextBoxPrenom2
    Range("K" & num).Borders.Weight = xlThin
    Range("K" & num).Interior.ColorIndex = 44
    Range("L" & num).Value = TextBoxAdresse2
    Range("L" & num).Borders.Weight = xlThin
    Range("L" & num).Interior.ColorIndex = 44
    Range("M" & num).Value = TextBoxCodePostal2
    Range("M" & num).Borders.Weight = xlThin
    Range("M" & num).Interior.ColorIndex = 44
    Range("N" & num).Value = ComboBoxVille2
    Range("N" & num).Borders.Weight = xlThin
    Range("N" & num).Interior.ColorIndex = 44
    Range("O" & num).Value = TextBoxTelephone2
    Range("O" & num).Borders.Weight = xlThin
    Range("O" & num).Interior.ColorIndex = 44
    Range("P" & num).Value = TextBoxMail2
    Range("P" & num).Borders.Weight = xlThin
    Range("P" & num).Interior.ColorIndex = 44
 
    Range("Q" & num).Value = TextBoxNom3
    Range("Q" & num).Borders.Weight = xlThin
    Range("Q" & num).Interior.ColorIndex = 37
    Range("R" & num).Value = TextBoxPrenom3
    Range("R" & num).Borders.Weight = xlThin
    Range("R" & num).Interior.ColorIndex = 37
    Range("S" & num).Value = TextBoxAdresse3
    Range("S" & num).Borders.Weight = xlThin
    Range("S" & num).Interior.ColorIndex = 37
    Range("T" & num).Value = TextBoxCodePostal3
    Range("T" & num).Borders.Weight = xlThin
    Range("T" & num).Interior.ColorIndex = 37
    Range("U" & num).Value = ComboBoxVille3
    Range("U" & num).Borders.Weight = xlThin
    Range("U" & num).Interior.ColorIndex = 37
    Range("V" & num).Value = TextBoxTelephone3
    Range("V" & num).Borders.Weight = xlThin
    Range("V" & num).Interior.ColorIndex = 37
    Range("W" & num).Value = TextBoxMail3
    Range("W" & num).Borders.Weight = xlThin
    Range("W" & num).Interior.ColorIndex = 37
 
    Range("X" & num).Value = TextBoxNom4
    Range("X" & num).Borders.Weight = xlThin
    Range("X" & num).Interior.ColorIndex = 44
    Range("Y" & num).Value = TextBoxPrenom4
    Range("Y" & num).Borders.Weight = xlThin
    Range("Y" & num).Interior.ColorIndex = 44
    Range("Z" & num).Value = TextBoxAdresse4
    Range("Z" & num).Borders.Weight = xlThin
    Range("Z" & num).Interior.ColorIndex = 44
    Range("AA" & num).Value = TextBoxCodePostal4
    Range("AA" & num).Borders.Weight = xlThin
    Range("AA" & num).Interior.ColorIndex = 44
    Range("AB" & num).Value = ComboBoxVille4
    Range("AB" & num).Borders.Weight = xlThin
    Range("AB" & num).Interior.ColorIndex = 44
    Range("AC" & num).Value = TextBoxTelephone4
    Range("AC" & num).Borders.Weight = xlThin
    Range("AC" & num).Interior.ColorIndex = 44
    Range("AD" & num).Value = TextBoxMail4
    Range("AD" & num).Borders.Weight = xlThin
    Range("AD" & num).Interior.ColorIndex = 44
 
Unload Me 'vide et ferme l'UserForm
'bouton fermer
End Sub

Merci d'avance de ton aide

Combobox alimenté par plusieurs colonnes

Macros et VBA Excel

Discussions similaires

Partager

Partager