[Formulaire] générer un tableau

**Tristan33000** · 03/06/2009, 10h45

Bonjour,

En fait , j'ai une liste déroulante qui me permet de choisir le nombre de participant (de 1 à 10) et je voudrais créer suite a cette selection un tableau (qui aurait autant de lignes que de participants) me permettant de saisir différents renseignement sur ces participants (nom prenom telephone age ...).

Est ce cela qu'on appel un tableau dynamique ?

J'ai recherché un peu partout mais ne sachant pas comment s'appel ce que je cherche ... la tache n'en est que plus difficile

Si quelqu'un pouvait me renseigner ou me donner une idée de la marche à suivre je lui en serais très reconnaissant

car la je tourne un peu en rond.

Cordialement.

Tristan.

**Pierre Fauconnier** · 03/06/2009, 10h50

Bonjour

Il faudrait que tu détailles ce que tu souhaites comme tableau, éventuellement avec une image d'écran du résultat souhaité

**Tristan33000** · 03/06/2009, 11h03

Daccord j'ai réalisé un montage de mon tableau mais je ne sais pas comment le poster , avec un lien mais je ne connais pas de site ou mettre mon montage en ligne

(désolé je ne m'étais jamais inscrit dans un forum en ligne avant celui la ^^)

Invité · 03/06/2009, 11h14

Bonjour

Lorsque tu rédiges ton message tu as un trombone, dans la fenêtre qui s'ouvre tu sélectionnes le fichier avec Parcourir, tu cliques sur Envoyer et tu fermes la fenêtre.

Philippe

**Tristan33000** · 03/06/2009, 11h23

Merci Philippe exactement comme un e-mail je suis bête pour le coup

Désolé pour le dérangement et merci encore

Donc voila le résultat que j'attendrais :

Nom : tableau2.JPG
Affichages : 42
Taille : 45,4 Ko

**Tristan33000** · 03/06/2009, 12h00

Peut-être qu'un sous-formulaire correspondrait mieux au résultat que je souhaite avoir mais peut on se servir d'un sous-formulaire comme un tableau de saisie ou je pourrais gérer le nombre de ligne ?

Cordialement.

Tristan.

**Pierre Fauconnier** · 03/06/2009, 13h06

Je ne cerne pas bien la finalité...

**Tristan33000** · 03/06/2009, 13h13

Le but est de permettre à l'utilisateur de saisir facilement des participants via ce formulaire qui mettra à jour la base de données qui permettra donc de réutiliser ses informations à d'autres fins.

Imaginons qu'un client appel est veut faire la réservation pour "n" participants une fois que l'utilisateur aura selectionné se nombre "n" il n'aura plus qu'a remplir les différents renseignements demandés.

J'espere avoir été plus clair

**Tristan33000** · 03/06/2009, 14h06

Sinon si jamais ce n'est pas possible sous forme de tableau ou sous-formulaire je peux toujours "bidouiller" avec des différentes zones de saisies, et labels que je place sous forme de tableau et que je cache en fonction de la valeur de ma liste "nombre de participant" mais si il existe une façon "jolie" de le faire ce serait surement moins fastidieux et plus facile à mettre en place

**Tristan33000** · 03/06/2009, 17h51

Bon ba voila j'ai réussi à obtenir le résultat escompté !
Que j'avais join plus haut je vous partage mon code qui est peu enorme (toujours du au remise a zero).
Il doit y avoir 2/3 modifications par rapport au "montage" notament au niveau des colonnes !

En esperant que sa puisse vous être utile :

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
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
Private Sub cmbNBPARTI_AfterUpdate()
 
 
Dim nbpart As Single
 
''RAZ
    ''1iere ligne
    FormNom1.Visible = False
    FormPre1.Visible = False
    FormTel1.Visible = False
    FormPDD1.Visible = False
    FormAge1.Visible = False
    FormCat1.Visible = False
    FormTai1.Visible = False
    FormPoi1.Visible = False
    FormTar1.Visible = False
    FormAss1.Visible = False
    FormLoc1.Visible = False
    FormMat1.Visible = False
    FormTot1.Visible = False
    ''2ieme ligne
    FormNom2.Visible = False
    FormPre2.Visible = False
    FormTel2.Visible = False
    FormPDD2.Visible = False
    FormAge2.Visible = False
    FormCat2.Visible = False
    FormTai2.Visible = False
    FormPoi2.Visible = False
    FormTar2.Visible = False
    FormAss2.Visible = False
    FormLoc2.Visible = False
    FormMat2.Visible = False
    FormTot2.Visible = False
    ''3ieme
    FormNom3.Visible = False
    FormPre3.Visible = False
    FormTel3.Visible = False
    FormPDD3.Visible = False
    FormAge3.Visible = False
    FormCat3.Visible = False
    FormTai3.Visible = False
    FormPoi3.Visible = False
    FormTar3.Visible = False
    FormAss3.Visible = False
    FormLoc3.Visible = False
    FormMat3.Visible = False
    FormTot3.Visible = False
    ''4ieme
    FormNom4.Visible = False
    FormPre4.Visible = False
    FormTel4.Visible = False
    FormPDD4.Visible = False
    FormAge4.Visible = False
    FormCat4.Visible = False
    FormTai4.Visible = False
    FormPoi4.Visible = False
    FormTar4.Visible = False
    FormAss4.Visible = False
    FormLoc4.Visible = False
    FormMat4.Visible = False
    FormTot4.Visible = False
    ''5
    FormNom5.Visible = False
    FormPre5.Visible = False
    FormTel5.Visible = False
    FormPDD5.Visible = False
    FormAge5.Visible = False
    FormCat5.Visible = False
    FormTai5.Visible = False
    FormPoi5.Visible = False
    FormTar5.Visible = False
    FormAss5.Visible = False
    FormLoc5.Visible = False
    FormMat5.Visible = False
    FormTot5.Visible = False
    ''6
    FormNom6.Visible = False
    FormPre6.Visible = False
    FormTel6.Visible = False
    FormPDD6.Visible = False
    FormAge6.Visible = False
    FormCat6.Visible = False
    FormTai6.Visible = False
    FormPoi6.Visible = False
    FormTar6.Visible = False
    FormAss6.Visible = False
    FormLoc6.Visible = False
    FormMat6.Visible = False
    FormTot6.Visible = False
    ''7
    FormNom7.Visible = False
    FormPre7.Visible = False
    FormTel7.Visible = False
    FormPDD7.Visible = False
    FormAge7.Visible = False
    FormCat7.Visible = False
    FormTai7.Visible = False
    FormPoi7.Visible = False
    FormTar7.Visible = False
    FormAss7.Visible = False
    FormLoc7.Visible = False
    FormMat7.Visible = False
    FormTot7.Visible = False
    ''8
    FormNom8.Visible = False
    FormPre8.Visible = False
    FormTel8.Visible = False
    FormPDD8.Visible = False
    FormAge8.Visible = False
    FormCat8.Visible = False
    FormTai8.Visible = False
    FormPoi8.Visible = False
    FormTar8.Visible = False
    FormAss8.Visible = False
    FormLoc8.Visible = False
    FormMat8.Visible = False
    FormTot8.Visible = False
    ''9
    FormNom9.Visible = False
    FormPre9.Visible = False
    FormTel9.Visible = False
    FormPDD9.Visible = False
    FormAge9.Visible = False
    FormCat9.Visible = False
    FormTai9.Visible = False
    FormPoi9.Visible = False
    FormTar9.Visible = False
    FormAss9.Visible = False
    FormLoc9.Visible = False
    FormMat9.Visible = False
    FormTot9.Visible = False
    ''10
    FormNom10.Visible = False
    FormPre10.Visible = False
    FormTel10.Visible = False
    FormPDD10.Visible = False
    FormAge10.Visible = False
    FormCat10.Visible = False
    FormTai10.Visible = False
    FormPoi10.Visible = False
    FormTar10.Visible = False
    FormAss10.Visible = False
    FormLoc10.Visible = False
    FormMat10.Visible = False
    FormTot10.Visible = False
    ''11
    FormNom11.Visible = False
    FormPre11.Visible = False
    FormTel11.Visible = False
    FormPDD11.Visible = False
    FormAge11.Visible = False
    FormCat11.Visible = False
    FormTai11.Visible = False
    FormPoi11.Visible = False
    FormTar11.Visible = False
    FormAss11.Visible = False
    FormLoc11.Visible = False
    FormMat11.Visible = False
    FormTot11.Visible = False
    ''12
    FormNom12.Visible = False
    FormPre12.Visible = False
    FormTel12.Visible = False
    FormPDD12.Visible = False
    FormAge12.Visible = False
    FormCat12.Visible = False
    FormTai12.Visible = False
    FormPoi12.Visible = False
    FormTar12.Visible = False
    FormAss12.Visible = False
    FormLoc12.Visible = False
    FormMat12.Visible = False
    FormTot12.Visible = False
 
 
''Affichage du nombre de lignes demandés
 
nbpart = Me!cmbNBPARTI
 
If nbpart >= 1 Then
    FormNom1.Visible = True
    FormPre1.Visible = True
    FormTel1.Visible = True
    FormPDD1.Visible = True
    FormAge1.Visible = True
    FormCat1.Visible = True
    FormTai1.Visible = True
    FormPoi1.Visible = True
    FormTar1.Visible = True
    FormAss1.Visible = True
    FormLoc1.Visible = True
    FormMat1.Visible = True
    FormTot1.Visible = True
End If
 
If nbpart >= 2 Then
    FormNom2.Visible = True
    FormPre2.Visible = True
    FormTel2.Visible = True
    FormPDD2.Visible = True
    FormAge2.Visible = True
    FormCat2.Visible = True
    FormTai2.Visible = True
    FormPoi2.Visible = True
    FormTar2.Visible = True
    FormAss2.Visible = True
    FormLoc2.Visible = True
    FormMat2.Visible = True
    FormTot2.Visible = True
End If
 
If nbpart >= 3 Then
    FormNom3.Visible = True
    FormPre3.Visible = True
    FormTel3.Visible = True
    FormPDD3.Visible = True
    FormAge3.Visible = True
    FormCat3.Visible = True
    FormTai3.Visible = True
    FormPoi3.Visible = True
    FormTar3.Visible = True
    FormAss3.Visible = True
    FormLoc3.Visible = True
    FormMat3.Visible = True
    FormTot3.Visible = True
End If
 
If nbpart >= 4 Then
    FormNom4.Visible = True
    FormPre4.Visible = True
    FormTel4.Visible = True
    FormPDD4.Visible = True
    FormAge4.Visible = True
    FormCat4.Visible = True
    FormTai4.Visible = True
    FormPoi4.Visible = True
    FormTar4.Visible = True
    FormAss4.Visible = True
    FormLoc4.Visible = True
    FormMat4.Visible = True
    FormTot4.Visible = True
End If
 
If nbpart >= 5 Then
    FormNom5.Visible = True
    FormPre5.Visible = True
    FormTel5.Visible = True
    FormPDD5.Visible = True
    FormAge5.Visible = True
    FormCat5.Visible = True
    FormTai5.Visible = True
    FormPoi5.Visible = True
    FormTar5.Visible = True
    FormAss5.Visible = True
    FormLoc5.Visible = True
    FormMat5.Visible = True
    FormTot5.Visible = True
End If
 
If nbpart >= 6 Then
    FormNom6.Visible = True
    FormPre6.Visible = True
    FormTel6.Visible = True
    FormPDD6.Visible = True
    FormAge6.Visible = True
    FormCat6.Visible = True
    FormTai6.Visible = True
    FormPoi6.Visible = True
    FormTar6.Visible = True
    FormAss6.Visible = True
    FormLoc6.Visible = True
    FormMat6.Visible = True
    FormTot6.Visible = True
End If
 
If nbpart >= 7 Then
    FormNom7.Visible = True
    FormPre7.Visible = True
    FormTel7.Visible = True
    FormPDD7.Visible = True
    FormAge7.Visible = True
    FormCat7.Visible = True
    FormTai7.Visible = True
    FormPoi7.Visible = True
    FormTar7.Visible = True
    FormAss7.Visible = True
    FormLoc7.Visible = True
    FormMat7.Visible = True
    FormTot7.Visible = True
End If
 
If nbpart >= 8 Then
    FormNom8.Visible = True
    FormPre8.Visible = True
    FormTel8.Visible = True
    FormPDD8.Visible = True
    FormAge8.Visible = True
    FormCat8.Visible = True
    FormTai8.Visible = True
    FormPoi8.Visible = True
    FormTar8.Visible = True
    FormAss8.Visible = True
    FormLoc8.Visible = True
    FormMat8.Visible = True
    FormTot8.Visible = True
End If
 
If nbpart >= 9 Then
    FormNom9.Visible = True
    FormPre9.Visible = True
    FormTel9.Visible = True
    FormPDD9.Visible = True
    FormAge9.Visible = True
    FormCat9.Visible = True
    FormTai9.Visible = True
    FormPoi9.Visible = True
    FormTar9.Visible = True
    FormAss9.Visible = True
    FormLoc9.Visible = True
    FormMat9.Visible = True
    FormTot9.Visible = True
End If
 
If nbpart >= 10 Then
    FormNom10.Visible = True
    FormPre10.Visible = True
    FormTel10.Visible = True
    FormPDD10.Visible = True
    FormAge10.Visible = True
    FormCat10.Visible = True
    FormTai10.Visible = True
    FormPoi10.Visible = True
    FormTar10.Visible = True
    FormAss10.Visible = True
    FormLoc10.Visible = True
    FormMat10.Visible = True
    FormTot10.Visible = True
End If
 
If nbpart >= 11 Then
    FormNom11.Visible = True
    FormPre11.Visible = True
    FormTel11.Visible = True
    FormPDD11.Visible = True
    FormAge11.Visible = True
    FormCat11.Visible = True
    FormTai11.Visible = True
    FormPoi11.Visible = True
    FormTar11.Visible = True
    FormAss11.Visible = True
    FormLoc11.Visible = True
    FormMat11.Visible = True
    FormTot11.Visible = True
End If
 
If nbpart >= 12 Then
    FormNom12.Visible = True
    FormPre12.Visible = True
    FormTel12.Visible = True
    FormPDD12.Visible = True
    FormAge12.Visible = True
    FormCat12.Visible = True
    FormTai12.Visible = True
    FormPoi12.Visible = True
    FormTar12.Visible = True
    FormAss12.Visible = True
    FormLoc12.Visible = True
    FormMat12.Visible = True
    FormTot12.Visible = True
End If
 
 
End Sub

Voila j'ai joué surtout sur la visibilité de chaque zone de texte (très fastidieux au niveau du nommage ... mais sa marche alors ! )

Cordialement.

Tristan.

[Formulaire] générer un tableau [AC-2007]

IHM

Discussions similaires

Partager

Partager