Modifier une combobox

Version imprimable

Bonjour

Comment je peut faire pour avoir un code un peut pluss esthétique je voulais savoir si on pouvait le raccourcir.. oui je suis sur que l'on peux ?

Mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub ComboBox1_Change()
TBx_1.Value = ComboBox1.Column(1)
TBx_2.Value = ComboBox1.Column(2)
TBx_3.Value = ComboBox1.Column(3)
TBx_4.Value = ComboBox1.Column(4)
TBx_5.Value = ComboBox1.Column(5)
TBx_6.Value = ComboBox1.Column(6)
TBx_7.Value = ComboBox1.Column(7)
TBx_8.Value = ComboBox1.Column(8)
TBx_9.Value = ComboBox1.Column(9)
TBx_10.Value = ComboBox1.Column(10)
TBx_11.Value = ComboBox1.Column(11)
TBx_12.Value = ComboBox1.Column(12)
TBx_13.Value = ComboBox1.Column(13)
TBx_14.Value = ComboBox1.Column(14)
TBx_15.Value = ComboBox1.Column(15)
TBx_16.Value = ComboBox1.Column(16)
TBx_17.Value = ComboBox1.Column(17)
TBx_18.Value = ComboBox1.Column(18)
TBx_19.Value = ComboBox1.Column(19)
TBx_20.Value = ComboBox1.Column(20)
 
End Sub

Merci d'avance

Max

bonsoir
essayer avec :

Code:

1
2
3
4
5
6
Private Sub ComboBox1_Change()
for i = 1 to 20
TBx_(i).Value = ComboBox1.Column(i)
next i
 
End Sub

26/07/2019, 15h29
apdf1

Bonjour Bennasr

Je te remercie mais j'ai message d'erreur :

Citation:

Erreur de compilation Sub ou Function non définie

Max
26/07/2019, 16h12
Philippe Tulliez

Bonjour,
A adapter à ta situation
Voir cette discussion Boucle sur textbox dans userform

Code:

1
2
3
4
5
6
7
8
9
Private Sub ComboBox1_Change()
 
'je suppose que "TBx_" est l'adresse d'une cellule et qu'il existe une zone nommée TBx_i
'sinon il faudra définir ce que représente TBx: cellue, zone texte, liste, combo, ...
For i = 1 To 20
    ActiveSheet.Range("TBx_" & i) = ComboBox1.Column(i)
Next i
 
End Sub

Bonjour à tous

Non j'ai toujours le même message d'erreur

Mon code au complet:

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
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
Private Sub UserForm_Initialize()
For i = 1 To 4
    Me.Controls("Label" & i).Visible = False
Next i
For i = 1 To 20
    Me.Controls("TBx_" & i).Visible = False
Next i
Me.Width = 372
Me.Height = 83
End Sub
 
Private Sub OptionButton1_Click()
If OptionButton1 = True Then
    ComboBox1.List = Feuil2.Range("B9:O" & Feuil2.Range("B" & Rows.Count).End(xlUp).Row).Value
End If
For i = 1 To 61
    Select Case i
        Case 1, 4, 7, 10, 13, 16, 20, 23, 26, 29, 32, 35, 38, 41 'Label True
            Me.Controls("Label" & i).Visible = True
        Case 2, 3, 5, 6, 7, 8, 11, 12, 14, 15, 17, 18, 19, 21, 22, 24, 25, 27, 28, 30, 31, 33, 34, 36, 37, 39, 40, 52, 55, 58, 61 'Label False
            Me.Controls("Label" & i).Visible = False
        Case 42 To 49
            Me.Controls("Label" & i).Visible = False
    End Select
Next i
For i = 1 To 20
    Select Case i
        Case 1 To 13
            Me.Controls("Tbx_" & i).Visible = True 'TextBox Visible
            Me.Controls("Tbx_" & i).Value = ""
        Case 14 To 20
            Me.Controls("Tbx_" & i).Visible = False 'TextBox non Visible
            If i <> 14 Then Me.Controls("Tbx_" & i).Value = ""
    End Select
Next i
ComboBox1.Value = ""
Me.Width = 372
Me.Height = 390
 
End Sub
 
Private Sub OptionButton2_Click()
If OptionButton2 = True Then
    ComboBox1.List = Feuil2.Range("P9:AG" & Feuil2.Range("P" & Rows.Count).End(xlUp).Row).Value
End If
For i = 1 To 61
    Select Case i
        Case 2, 5, 8, 11, 14, 17, 21, 24, 27, 30, 33, 36, 39, 42, 44, 45, 47, 48 'Label True
            Me.Controls("Label" & i).Visible = True
        Case 1, 3, 4, 6, 7, 9, 10, 12, 13, 15, 16, 18, 19, 20, 22, 23, 25, 28, 29, 31, 32, 34, 35, 37, 38, 40, 41, 43, 46, 47, 49, 52, 55, 58, 61 'Label False
            Me.Controls("Label" & i).Visible = False
        Case 42 To 49
            Me.Controls("Label" & i).Visible = False
    End Select
Next i
For i = 1 To 20
    Select Case i
        Case 1 To 17
            Me.Controls("Tbx_" & i).Visible = True 'TextBox Visible
            Me.Controls("Tbx_" & i).Value = ""
        Case 18 To 20
            Me.Controls("Tbx_" & i).Visible = False 'TextBox non Visible
            If i <> 14 Then Me.Controls("Tbx_" & i).Value = ""
    End Select
Next i
ComboBox1.Value = ""
Me.Width = 372
Me.Height = 446
 
End Sub
 
Private Sub OptionButton3_Click()
If OptionButton3 = True Then
    ComboBox1.List = Feuil2.Range("AH9:BB" & Feuil2.Range("AH" & Rows.Count).End(xlUp).Row).Value
End If
For i = 1 To 61
    Select Case i
        Case 3, 6, 9, 12, 15, 18, 19, 22, 25, 28, 31, 34, 37, 40, 43, 46, 49, 52, 55, 58, 61 'Label True
            Me.Controls("Label" & i).Visible = True
        Case 1, 2, 4, 5, 7, 8, 10, 11, 13, 14, 16, 17, 20, 21, 23, 24, 26, 27, 29, 30, 32, 33, 35, 36, 38, 39, 41, 42, 44, 45, 47, 48 'Label False
            Me.Controls("Label" & i).Visible = False
        Case 42 To 49
            Me.Controls("Label" & i).Visible = False
    End Select
Next i
For i = 1 To 20
    Select Case i
        Case 1 To 20
            Me.Controls("Tbx_" & i).Visible = True 'TextBox Visible
            Me.Controls("Tbx_" & i).Value = ""
        Case 18 To 20
            Me.Controls("Tbx_" & i).Visible = False 'TextBox non Visible
            If i <> 14 Then Me.Controls("Tbx_" & i).Value = ""
    End Select
Next i
ComboBox1.Value = ""
Me.Width = 372
Me.Height = 510
 
End Sub
 
Private Sub CommandButton1_Click()
   Unload Me
End Sub
 
'Private Sub ComboBox1_Change()
'For i = 1 To 20
'Me.Controls("TBx_" & i).Value = ComboBox1.Column(i)
'Next i
 
'End Sub

Je vous remercie

Max

26/07/2019, 19h00
Philippe Tulliez
Bonjour,
D'après ta demande initiale
Exemple avec trois TextBox nommés respectivement TextBox1, TextBox2 et TextBox3 et un contrôle ListBox nommé lstVille
Sans boucle
Code:

1 2 3 4 5 6 7 Private Sub lstVille_Click() With Me .TextBox1.Value = .lstVille.Column(1) .TextBox2.Value = .lstVille.Column(2) .TextBox3.Value = .lstVille.Column(3) End With End Sub
Avec boucle
Code:

1 2 3 4 5 6 7 8 Private Sub lstVille_Click() Dim elem As Byte For elem = 1 To 3 With Me .Controls("TextBox" & elem).Value = .lstVille.Column(elem) End With Next End Sub
Pour l'affichage de données après sélection dans un contrôle ListBox ou ComboBox, il est préférable d'utiliser la procédure événementielle Click au lieu de Change

Le code que tu as donné ensuite n'a plus rien avec ta demande initiale et sans connaître le n° et le message d'erreur reçu ainsi que le n° de la ligne où a lieu l'erreur il est difficle d'apporter une aide quelconque.

Bonsoir Philippe

Non ça ne fonctionne pas j'ai fait ceci:

Code:

1
2
3
4
5
6
7
8
Private Sub ComboBox1_Click()
  Dim elem As Byte
  For elem = 1 To 20
   With Me
   .Controls("TBx" & elem).Value = .ComboBox1.Column(elem)
   End With
  Next
End Sub

message spécifique introuvable

Merci

26/07/2019, 19h21
Philippe Tulliez

Bonjour,
J'effectue toujours un test avant de publier et je peux t'assurer que cela fonctionne chez moi.
Es-tu certain que le code que tu as publié fonctionne ?

Re,

Voila mon complet qui fonctionne je viens encore de le faire fonctionner et je peux même si tu le désires envoyer le dossier

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
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
Private Sub UserForm_Initialize()
For i = 1 To 4
    Me.Controls("Label" & i).Visible = False
Next i
For i = 1 To 20
    Me.Controls("TBx_" & i).Visible = False
Next i
Me.Width = 425
Me.Height = 83
 
End Sub
 
Private Sub OptionButton1_Click()
    If OptionButton1 = True Then
 
        ComboBox1.List = Feuil1.Range("B9:O" & Feuil1.Range("B" & Rows.Count).End(xlUp).Row).Value
    End If
Label1.Visible = True
Label2.Visible = False
Label3.Visible = False
Label4.Visible = True
Label5.Visible = False
Label6.Visible = False
Label7.Visible = True
Label8.Visible = False
Label9.Visible = False
Label10.Visible = True
Label11.Visible = False
Label12.Visible = False
Label13.Visible = True
Label14.Visible = False
Label15.Visible = False
Label16.Visible = True
Label17.Visible = False
Label18.Visible = False
Label19.Visible = False
Label20.Visible = True
Label21.Visible = False
Label22.Visible = False
Label23.Visible = True
Label24.Visible = False
Label25.Visible = False
Label26.Visible = True
Label27.Visible = False
Label28.Visible = False
Label29.Visible = True
Label30.Visible = False
Label31.Visible = False
Label32.Visible = True
Label33.Visible = False
Label34.Visible = False
Label35.Visible = True
Label36.Visible = False
Label37.Visible = False
Label38.Visible = True
Label39.Visible = False
Label40.Visible = False
Label41.Visible = True
Label42.Visible = False
Label43.Visible = False
Label44.Visible = False
Label45.Visible = False
Label46.Visible = False
Label47.Visible = False
Label48.Visible = False
Label49.Visible = False
Label52.Visible = False
Label55.Visible = False
Label58.Visible = False
Label61.Visible = False
 
TBx_1.Visible = True
TBx_2.Visible = True
TBx_3.Visible = True
TBx_4.Visible = True
TBx_5.Visible = True
TBx_6.Visible = True
TBx_7.Visible = True
TBx_8.Visible = True
TBx_9.Visible = True
TBx_10.Visible = True
TBx_11.Visible = True
TBx_12.Visible = True
TBx_13.Visible = True
TBx_14.Visible = False
TBx_15.Visible = False
TBx_16.Visible = False
TBx_17.Visible = False
TBx_18.Visible = False
TBx_19.Visible = False
TBx_20.Visible = False
 
TBx_1.Value = ""
TBx_2.Value = ""
TBx_3.Value = ""
TBx_4.Value = ""
TBx_5.Value = ""
TBx_6.Value = ""
TBx_7.Value = ""
TBx_8.Value = ""
TBx_9.Value = ""
TBx_10.Value = ""
TBx_11.Value = ""
TBx_12.Value = ""
TBx_13.Value = ""
'TBx_14.Value = ""
TBx_15.Value = ""
TBx_16.Value = ""
TBx_17.Value = ""
TBx_18.Value = ""
TBx_19.Value = ""
TBx_20.Value = ""
 
ComboBox1.Value = ""
 
Me.Width = 425
Me.Height = 390
End Sub
 
Private Sub OptionButton2_Click()
 
    If OptionButton2 = True Then
 
        ComboBox1.List = Feuil1.Range("P9:AG" & Feuil1.Range("P" & Rows.Count).End(xlUp).Row).Value
    End If
Label1.Visible = False
Label2.Visible = True
Label3.Visible = False
Label4.Visible = False
Label5.Visible = True
Label6.Visible = False
Label7.Visible = False
Label8.Visible = True
Label9.Visible = False
Label10.Visible = False
Label11.Visible = True
Label12.Visible = False
Label13.Visible = False
Label14.Visible = True
Label15.Visible = False
Label16.Visible = False
Label17.Visible = True
Label18.Visible = False
Label19.Visible = False
Label20.Visible = False
Label21.Visible = True
Label22.Visible = False
Label23.Visible = False
Label24.Visible = True
Label25.Visible = False
Label26.Visible = True
Label27.Visible = True
Label28.Visible = False
Label29.Visible = False
Label30.Visible = True
Label31.Visible = False
Label32.Visible = False
Label33.Visible = True
Label34.Visible = False
Label35.Visible = False
Label36.Visible = True
Label37.Visible = False
Label38.Visible = False
Label39.Visible = True
Label40.Visible = False
Label41.Visible = False
Label42.Visible = True
Label43.Visible = False
Label44.Visible = True
Label45.Visible = True
Label46.Visible = False
Label47.Visible = True
Label48.Visible = True
Label49.Visible = False
Label52.Visible = False
Label55.Visible = False
Label58.Visible = False
Label61.Visible = False
 
TBx_1.Visible = True
TBx_2.Visible = True
TBx_3.Visible = True
TBx_4.Visible = True
TBx_5.Visible = True
TBx_6.Visible = True
TBx_7.Visible = True
TBx_8.Visible = True
TBx_9.Visible = True
TBx_10.Visible = True
TBx_11.Visible = True
TBx_12.Visible = True
TBx_13.Visible = True
TBx_14.Visible = True
TBx_15.Visible = True
TBx_16.Visible = True
TBx_17.Visible = True
TBx_18.Visible = False
TBx_19.Visible = False
TBx_20.Visible = False
 
TBx_1.Value = ""
TBx_2.Value = ""
TBx_3.Value = ""
TBx_4.Value = ""
TBx_5.Value = ""
TBx_6.Value = ""
TBx_7.Value = ""
TBx_8.Value = ""
TBx_9.Value = ""
TBx_10.Value = ""
TBx_11.Value = ""
TBx_12.Value = ""
TBx_13.Value = ""
ComboBox1.Value = ""
 
Me.Width = 425
Me.Height = 446
End Sub
 
Private Sub OptionButton3_Click()
 
 
    If OptionButton3 = True Then
 
        ComboBox1.List = Feuil1.Range("AH9:BB" & Feuil1.Range("AH" & Rows.Count).End(xlUp).Row).Value
    End If
Label1.Visible = False
Label2.Visible = False
Label3.Visible = True
Label4.Visible = False
Label5.Visible = False
Label6.Visible = True
Label7.Visible = False
Label8.Visible = False
Label9.Visible = True
Label10.Visible = False
Label11.Visible = False
Label12.Visible = True
Label13.Visible = False
Label14.Visible = False
Label15.Visible = True
Label16.Visible = False
Label17.Visible = False
Label18.Visible = True
Label19.Visible = True
Label20.Visible = False
Label21.Visible = False
Label22.Visible = True
Label23.Visible = False
Label24.Visible = False
Label25.Visible = True
Label26.Visible = False
Label27.Visible = False
Label28.Visible = True
Label29.Visible = False
Label30.Visible = False
Label31.Visible = True
Label32.Visible = False
Label33.Visible = False
Label34.Visible = True
Label35.Visible = False
Label36.Visible = False
Label37.Visible = True
Label38.Visible = False
Label39.Visible = False
Label40.Visible = True
Label41.Visible = False
Label42.Visible = False
Label43.Visible = True
Label44.Visible = False
Label45.Visible = False
Label46.Visible = True
Label47.Visible = False
Label48.Visible = False
Label49.Visible = True
Label52.Visible = True
Label55.Visible = True
Label58.Visible = True
Label61.Visible = True
 
TBx_1.Visible = True
TBx_2.Visible = True
TBx_3.Visible = True
TBx_4.Visible = True
TBx_5.Visible = True
TBx_6.Visible = True
TBx_7.Visible = True
TBx_8.Visible = True
TBx_9.Visible = True
TBx_10.Visible = True
TBx_11.Visible = True
TBx_12.Visible = True
TBx_13.Visible = True
TBx_14.Visible = True
TBx_15.Visible = True
TBx_16.Visible = True
TBx_17.Visible = True
TBx_18.Visible = True
TBx_19.Visible = True
TBx_20.Visible = True
 
TBx_1.Value = ""
TBx_2.Value = ""
TBx_3.Value = ""
TBx_4.Value = ""
TBx_5.Value = ""
TBx_6.Value = ""
TBx_7.Value = ""
TBx_8.Value = ""
TBx_9.Value = ""
TBx_10.Value = ""
TBx_11.Value = ""
TBx_12.Value = ""
TBx_13.Value = ""
TBx_14.Value = ""
TBx_15.Value = ""
TBx_16.Value = ""
TBx_17.Value = ""
TBx_18.Value = ""
 
ComboBox1.Value = ""
Me.Width = 425
Me.Height = 510
End Sub
 
 
Private Sub ComboBox1_Click()
  Dim elem As Byte
  For elem = 1 To 20
  With Me
   Controls("TBx" & elem).Value = .ComboBox1.Column(elem)
  End With
  Next
End Sub
 
Private Sub CommandButton1_Click()
   Unload Me
End Sub

Merci

Max

26/07/2019, 19h31
Philippe Tulliez

Bonjour,
Il te manque l'Underscore
Comme ceci cela ira certainement mieux

Code:

Controls("TBx_" & elem).Value = .ComboBox1.Column(elem)
26/07/2019, 19h35
apdf1

Re,

Maintenant que j'ai mis l'Underscore il me dit

Citation:

impossible de lire la propriété Colum Argument non valide
26/07/2019, 20h17
Philippe Tulliez
Bonjour,
Bon, j'ai renommé mes TextBox comme toi. Soit TBx_1, TBX_2 et TBx_3 et j'ai également utilisé un contrôle ComboBox nommé ComboBox1 et je n'ai aucun problème
Code:

1 2 3 4 5 6 7 8 Private Sub ComboBox1_Click() Dim elem As Byte For elem = 1 To 3 With Me .Controls("TBx_" & elem).Value = .ComboBox1.Column(elem) End With Next End Sub
Il doit y avoir autre chose qui coince mais moi j'arrête ici.
26/07/2019, 20h43
apdf1

Re,

Alors chez moi sa fonctionne jusqu'a

Code:

For elem = 1 To 13

au-delà de 13 sa plante....
26/07/2019, 21h06
Philippe Tulliez

Bonjour,

Citation:

Alors chez moi sa fonctionne jusqu'a For elem = 1 To 13 au-delà de 13 sa plante....

Et bien cela me semble clair, soit il n'y a pas de TextBox nommé TBx_14 et sans doute suivant, soit tout simplement il n'y as pas plus de 13 colonnes affichées dans le ComboBoxe. C'est la première information intéressante qui nous permet d'isoler un problème depuis que tu signales que cela ne fonctionne pas.
27/07/2019, 01h56
OrDonc
Salut ...

À la lecture de ton code complet, le contexte étant : 1 liste déroulante (Combobox) de 20 colonnes, nommée Cb, 20 contrôles 'TextBox' nommés respectivement TBx1, TBx2 …TBx20, et quelques autres objets,
Code:

1 2 3 4 Private Sub Cb_Click() Dim n As Byte For n = 1 To 20: Me("TBx" & n) = Cb.Column(n - 1): Next End Sub
27/07/2019, 13h51
unparia

Bonjour
La toute première question ****** que je me pose est la suivante :
Comment peut-on avoir défini un nombre de colonnes variable (dépendant d'un choix par bouton d'option) et installé une boucle considérant un nombre fixe (20) de colonnes alors qu'elles sont dans certains cas de choix en nombre inférieur ?
****** : et ce n'est pas la seule, ni la plus importante des questions, les autres étant relatives à la conception elle-même (mais c'est un autre sujet).

Re ...

Salut unparia, pour ma part, à partir du message #1, j’ai fait une proposition à adapter.

Avec l’exemple du message #10*, le nombre de colonnes de la liste déroulante varie en fonction des options (O1, O2 et O3) de la plage concernée ; l’injection des donnés se fera donc à partir du nombre de colonnes de celle-ci.
Les 3 plages étant nommées respectivement ç1, ç2 et ç3,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub O1_Click() If O1 Then Cb.ColumnCount=[ç1].Columns.Count : Cb.List = [ç1].Value ‘suite End if Private Sub O2_Click() If O2 Then Cb.ColumnCount=[ç2].Columns.Count: Cb.List = [ç2].Value ‘suite End if Private Sub O3_Click() If O3 Then Cb.ColumnCount=[ç3].Columns.Count: Cb.List = [ç3].Value [ç3].Columns.Count ‘suite End if Private Sub Cb_Click() Dim i as Byte For i = 1 To CB.ColumnCount: Me("TBx" & 1) = Cb.Column(n - 1): Next End Sub
*je n’avais pas, comme Toi, analysé toutes ces lignes avec de tels codes peu attirants

04/08/2019, 07h32
Pierre Fauconnier

Salut.

Ne pas oublier que les index des colonnes d'un combobox commencent à 0. La boucle 1 to 20 impose donc qu'il y ait 21 colonnes. De plus, je ne suis pas fan d'un nommage pareil des contrôles ni de la correspondance obligée entre textbox et colonnes de combobox à coup d'index et je me pose la question de la pertinence et de la maintenance de ce code

Je serais curieux de connaître les tenants et aboutissants de ce projet.