Discussion :

[khaourantin]

Bonjour,

J'ai un bug qui se produit -parfois- au lancement de mes macros par le clic de l'utilisateur sur un bouton présent dans une feuille du classeur: Excel freeze, windows fait apparaître le message d'erreur 'excel a cessé de fonctionner'. Quand on ferme tout il reste une petite fenêtre de l'éditeur de code 'erreur Automation'.

Cette macro ouvre un formulaire.
Quand cette même macro est lancée depuis l'éditeur de code, tout se passe très bien!
quand on essaye de lancer une macro plus simple (qui ouvre juste une autre feuille) tout se passe toujours très bien.


Ce qui est vraiment bizarre c'est que ce problème n'est pas systématique, il apparaît seulement parfois sans qu'il y ait de lien de cause à effet entre la version du fichier et la présence du bug.

Ce problème apparaît moins souvent avec Excel 2010 qu'avec Excel 2007, mais apparaît quand même de temps en temps...

Les utilisateurs de ce fichier excel ne sont pas vraiment des flèches en informatique, je ne peux pas leur expliquer comment ouvrir l'éditeur de code pour lancer la bonne macro: c'est trop risqué.

La feuille où se trouve les boutons est protégée
Le classeur où se trouve cette macro est également protégé, mais comme la fonctionnalité marche quand même 60% du temps avec tous ces éléments protégés je ne pense pas que ça vienne de là...

Auriez vous une idée de comment caractériser mieux mon problème?

[AlainTech]

Bonjour,

Je pense que l'erreur est à la troisième ligne du code de l'USF.

Bon, sérieusement...
Si tu as une procédure événementielle à l'ouverture de l'USF, il y a de fortes chances que le problème se situe à ce niveau.
Peux-tu poster le code du bouton et de l'USF?

[khaourantin]

Bonjour,

je viens de vérifier, la procédure pour lancer le code attaché aux boutons est on ne peut plus classique:

(clique droit sur le bouton / affecter une macro / choix de la sub en question)

Voici le code du programme qui bug:

Code :

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

1
2
3
4
5
6
7
 
Option Explicit
Sub Macro_lancer_questionnaire_localité()
On Error Resume Next
Application.AutoRecover.Enabled = False
    Saisie_Localité.Show
End Sub

Si ce code est lancé par l'éditeur de code, il marche, si il est lancé par la feuille excel - des fois - ça bug. (pas moyen de trouver un élément qui déclenche systématiquement le bug...)

[Philippe Tulliez]

Bonjour,
Tu ne nous dit pas sur quelle ligne cela bug mais je suppose que c'est la ligne 6 Saisie_Localité.Show.
Si c'est le cas, c'est dans une des lignes du code de cette UserForm que cela bug.
Il faudrait donc nous afficher ce code.

[khaourantin]

Le bug en question ne se produit pas dans le code des userform: quand je lance un mode pas à pas détaillé, tout se passe toujours très bien.

Le problème dont je parle est entre le bouton présent sur la feuille de mon classeur et le code des macros.

Le code des macro est tout à fait fonctionnel.

Quand ce problème apparait, excel cesse de fonctionner, l'éditeur de code ne se lance pas, une petite fenêtre avec l'erreur 'Erreur Automation' apparaît, et excel freeze, cesse de fonctionner; on est toujours obligé de redémarrer excel après ce problème.

Quand l'éditeur de code est ouvert le problème n'apparait pas...

Ma question est donc de savoir si il y a moyen de d'éditer d'une façon ou d'une autre l'affectation des macro aux boutons présents dans une feuille de calcul. Si il y a moyen de rendre ce lien plus robuste.

[AlainTech]

Bonjour,

Peux-tu poster le code du bouton et de l'USF?

Il nous manque le code de l'UserForm Saisie_Localité.

[Philippe Tulliez]

Bonjour,
Alain et moi te demandons la même chose. Affiche le code de ta UserForm Saisie_Localité

Le bug en question ne se produit pas dans le code des userform: quand je lance un mode pas à pas détaillé, tout se passe toujours très bien.

Si tu savais le nombre de fois où j'ai eu le même cas et pourtant c'était bien dans le code de la UserForm que le problème se trouvait.

[khaourantin]

Ok, voilou le code du USF:

La lourdeur de ce code vient du fait que l'USF doit pouvoir être chargé en Anglais ou en Français, on a une feuille 'traduction' où le code va chercher le texte dans la bonne langue (cf variable Mycolumn)

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
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
 
Option Explicit
Private Sub UserForm_Terminate()
Application.AutoRecover.Enabled = True
End Sub
Private Sub UserForm_Initialize()
Dim Mycolumn
If Feuil13.Range("E24").Value = "Français" Then
Mycolumn = "A"
End If
If Feuil13.Range("E24").Value = "English" Then
Mycolumn = "B"
End If
 
Me.Caption = Feuil3.Range(Mycolumn & "11").Value
 
Label_monnaie1.Caption = Feuil1.Range("M1").Value
Label_monnaie2.Caption = Feuil1.Range("M1").Value
Label_monnaie3.Caption = Feuil1.Range("M1").Value
Label_monnaie4.Caption = Feuil1.Range("M1").Value
Label_monnaie5.Caption = Feuil1.Range("M1").Value
Label_monnaie6.Caption = Feuil1.Range("M1").Value
Label_monnaie7.Caption = Feuil1.Range("M1").Value
Label_monnaie8.Caption = Feuil1.Range("M1").Value
 
Label1.Caption = Feuil3.Range(Mycolumn & "1").Value
Label2.Caption = Feuil3.Range(Mycolumn & "2").Value
Label3.Caption = Feuil3.Range(Mycolumn & "3").Value
Label_Localisation.Caption = Feuil3.Range(Mycolumn & "4").Value
Q1Label.Caption = Feuil3.Range(Mycolumn & "5").Value
Q2Label.Caption = Feuil3.Range(Mycolumn & "6").Value
Q3Label.Caption = Feuil3.Range(Mycolumn & "7").Value
Q4Label.Caption = Feuil3.Range(Mycolumn & "8").Value
Q5Label.Caption = Feuil3.Range(Mycolumn & "9").Value
Q6Label.Caption = Feuil3.Range(Mycolumn & "10").Value
Titre_Label.Caption = Feuil3.Range(Mycolumn & "11").Value
Q7Label.Caption = Feuil3.Range(Mycolumn & "12").Value
Q7Opb1.Caption = Feuil3.Range(Mycolumn & "13").Value
Q7Opb2.Caption = Feuil3.Range(Mycolumn & "14").Value
Q7Opb3.Caption = Feuil3.Range(Mycolumn & "15").Value
Q8Label.Caption = Feuil3.Range(Mycolumn & "16").Value
Label_Population.Caption = Feuil3.Range(Mycolumn & "17").Value
Q9Label.Caption = Feuil3.Range(Mycolumn & "18").Value
Q10Label.Caption = Feuil3.Range(Mycolumn & "19").Value
Q11Label.Caption = Feuil3.Range(Mycolumn & "20").Value
Q12Label.Caption = Feuil3.Range(Mycolumn & "21").Value
Label_Activités.Caption = Feuil3.Range(Mycolumn & "22").Value
Q13Label.Caption = Feuil3.Range(Mycolumn & "23").Value
Q13Opb1.Caption = Feuil3.Range(Mycolumn & "24").Value
Q13Opb2.Caption = Feuil3.Range(Mycolumn & "25").Value
Q14Label.Caption = Feuil3.Range(Mycolumn & "26").Value
Q14Opb1.Caption = Feuil1.Range("L5").Value
Q14Opb2.Caption = Feuil1.Range("L6").Value
Q14Opb3.Caption = Feuil1.Range("L7").Value
Q14Opb4.Caption = Feuil1.Range("L8").Value
Q14Opb5.Caption = Feuil1.Range("L9").Value
Q15Label.Caption = Feuil3.Range(Mycolumn & "32").Value
Q15Cbx1.Caption = Feuil3.Range(Mycolumn & "33").Value
Q15Cbx2.Caption = Feuil3.Range(Mycolumn & "34").Value
Q15Cbx3.Caption = Feuil3.Range(Mycolumn & "35").Value
Q15Cbx4.Caption = Feuil3.Range(Mycolumn & "36").Value
Q15Cbx5.Caption = Feuil3.Range(Mycolumn & "37").Value
Q15Cbx6.Caption = Feuil3.Range(Mycolumn & "38").Value
Q16Label.Caption = Feuil3.Range(Mycolumn & "39").Value
Q16Cbx1.Caption = Feuil1.Range("M5").Value
Q16Cbx2.Caption = Feuil1.Range("M6").Value
Q16Cbx3.Caption = Feuil1.Range("M7").Value
Q16Cbx4.Caption = Feuil1.Range("M8").Value
Q16Cbx5.Caption = Feuil3.Range(Mycolumn & "38").Value
Q17Label.Caption = Feuil3.Range(Mycolumn & "44").Value
Q17Label1.Caption = Feuil1.Range("I5").Value
Q17Label2.Caption = Feuil1.Range("I6").Value
Q17Label3.Caption = Feuil1.Range("I7").Value
Q17Label4.Caption = Feuil1.Range("I8").Value
Q17Label5.Caption = Feuil1.Range("I9").Value
Q17Label6.Caption = Feuil1.Range("I10").Value
Q17Label7.Caption = Feuil1.Range("I11").Value
Q17Label8.Caption = Feuil1.Range("I12").Value
Q17Label9.Caption = Feuil1.Range("I13").Value
Q17Label10.Caption = Feuil1.Range("I14").Value
Q17Label11.Caption = Feuil1.Range("I15").Value
Q17Label12.Caption = Feuil1.Range("I16").Value
Q17Label13.Caption = Feuil1.Range("I17").Value
Q17Label14.Caption = Feuil1.Range("I18").Value
Q17Label15.Caption = Feuil1.Range("I19").Value
Q17Label16.Caption = Feuil1.Range("I20").Value
Q18Label.Caption = Feuil3.Range(Mycolumn & "61").Value
Q18Opb1.Caption = Feuil3.Range(Mycolumn & "62").Value
Q18Opb2.Caption = Feuil3.Range(Mycolumn & "63").Value
Q18Opb3.Caption = Feuil3.Range(Mycolumn & "64").Value
Q18Opb4.Caption = Feuil3.Range(Mycolumn & "65").Value
Q18Opb5.Caption = Feuil3.Range(Mycolumn & "38").Value
Q19Label.Caption = Feuil3.Range(Mycolumn & "66").Value
Q20Label.Caption = Feuil3.Range(Mycolumn & "67").Value
Q20Opb1.Caption = Feuil3.Range(Mycolumn & "68").Value
Q20Opb2.Caption = Feuil3.Range(Mycolumn & "69").Value
Q21Label.Caption = Feuil3.Range(Mycolumn & "70").Value
Q22Label.Caption = Feuil3.Range(Mycolumn & "71").Value
Q22Opb1.Caption = Feuil3.Range(Mycolumn & "24").Value
Q22Opb2.Caption = Feuil3.Range(Mycolumn & "25").Value
Q23Label.Caption = Feuil3.Range(Mycolumn & "72").Value
Q23Opb1.Caption = Feuil3.Range(Mycolumn & "63").Value
Q23Opb2.Caption = Feuil3.Range(Mycolumn & "65").Value
Q23Opb3.Caption = Feuil3.Range(Mycolumn & "64").Value
Q23Opb4.Caption = Feuil3.Range(Mycolumn & "38").Value
Q24Label.Caption = Feuil3.Range(Mycolumn & "73").Value
Q24Opb1.Caption = Feuil3.Range(Mycolumn & "24").Value
Q24Opb2.Caption = Feuil3.Range(Mycolumn & "25").Value
Q25Label.Caption = Feuil3.Range(Mycolumn & "74").Value
Label_Identification.Caption = Feuil3.Range(Mycolumn & "75").Value
Q26Label.Caption = Feuil3.Range(Mycolumn & "76").Value
Q26Opb1.Caption = Feuil3.Range(Mycolumn & "24").Value
Q26Opb2.Caption = Feuil3.Range(Mycolumn & "25").Value
Q27Label.Caption = Feuil3.Range(Mycolumn & "77").Value
Q28Label.Caption = Feuil3.Range(Mycolumn & "78").Value
Q29Label.Caption = Feuil3.Range(Mycolumn & "79").Value
Q30Label.Caption = Feuil3.Range(Mycolumn & "80").Value
Q28LabelA1.Caption = Feuil3.Range(Mycolumn & "81").Value
Q28LabelA2.Caption = Feuil3.Range(Mycolumn & "81").Value
Q28LabelA3.Caption = Feuil3.Range(Mycolumn & "81").Value
Q28LabelB1.Caption = Feuil3.Range(Mycolumn & "82").Value
Q28LabelB2.Caption = Feuil3.Range(Mycolumn & "82").Value
Q28LabelB3.Caption = Feuil3.Range(Mycolumn & "82").Value
Q31Label.Caption = Feuil3.Range(Mycolumn & "83").Value
Q31LabelA1.Caption = Feuil3.Range(Mycolumn & "84").Value
Q31LabelB1.Caption = Feuil3.Range(Mycolumn & "85").Value
Q31LabelC1.Caption = Feuil3.Range(Mycolumn & "86").Value
Q31LabelA2.Caption = Feuil3.Range(Mycolumn & "84").Value
Q31LabelB2.Caption = Feuil3.Range(Mycolumn & "85").Value
Q31LabelC2.Caption = Feuil3.Range(Mycolumn & "86").Value
Q31Label1.Caption = Feuil3.Range(Mycolumn & "87").Value
Q31Label2.Caption = Feuil3.Range(Mycolumn & "88").Value
Q31Label3.Caption = Feuil3.Range(Mycolumn & "89").Value
Q31Label4.Caption = Feuil3.Range(Mycolumn & "90").Value
Q31Label5.Caption = Feuil3.Range(Mycolumn & "91").Value
Q31Label6.Caption = Feuil3.Range(Mycolumn & "92").Value
Label_Ravitaillement.Caption = Feuil3.Range(Mycolumn & "93").Value
Q32Label.Caption = Feuil3.Range(Mycolumn & "94").Value
Q34Label.Caption = Feuil3.Range(Mycolumn & "95").Value
Q32LabelA.Caption = Feuil3.Range(Mycolumn & "96").Value
Q32LabelB.Caption = Feuil3.Range(Mycolumn & "97").Value
Q33Label.Caption = Feuil3.Range(Mycolumn & "98").Value
Q35Label.Caption = Feuil3.Range(Mycolumn & "99").Value
Label_Organisation.Caption = Feuil3.Range(Mycolumn & "100").Value
Q36Label.Caption = Feuil3.Range(Mycolumn & "101").Value
Q36Opb1.Caption = Feuil3.Range(Mycolumn & "102").Value
Q36Opb2.Caption = Feuil3.Range(Mycolumn & "103").Value
Q36Opb3.Caption = Feuil3.Range(Mycolumn & "38").Value
Q37Label.Caption = Feuil3.Range(Mycolumn & "104").Value
Q38Label.Caption = Feuil3.Range(Mycolumn & "105").Value
Q38Label1.Caption = Feuil3.Range(Mycolumn & "106").Value
Q38Label2.Caption = Feuil3.Range(Mycolumn & "107").Value
Q38Label3.Caption = Feuil3.Range(Mycolumn & "108").Value
Label_Commentaires.Caption = Feuil3.Range(Mycolumn & "109").Value
CommandButton_Imprimer.Caption = Feuil3.Range(Mycolumn & "110").Value
CommandButton_Imprimer2.Caption = Feuil3.Range(Mycolumn & "110").Value
CommandButtonValider.Caption = Feuil3.Range(Mycolumn & "111").Value
 
End Sub
 
 
Private Sub CommandButtonValider_Click()
Dim Mycolumn As String
Dim iDerniereLigne As Integer
    If Feuil13.Range("E24").Value = "Français" Then
Mycolumn = "A"
    End If
    If Feuil13.Range("E24").Value = "English" Then
Mycolumn = "B"
    End If
 
If Textbox1.Text <> "" Then
 
'Création d'une boucle (pour reporter les résultats d'enquête ligne par ligne) :
iDerniereLigne = 2
While Feuil6.Range("A" & iDerniereLigne).Value <> Empty
iDerniereLigne = iDerniereLigne + 1
Wend
 
'Numéro d'ordre questionnaire
Feuil6.Range("A" & iDerniereLigne).Value = Textbox1.Value
Feuil6.Range("CT" & iDerniereLigne).Value = Tbx2.Value
Feuil6.Range("CU" & iDerniereLigne).Value = Tbx3.Value
'Localisation de la localité : coordonnées GPS (long)/ commune / district / ...
Feuil6.Range("B" & iDerniereLigne).Value = Q1Tbx.Value
Feuil6.Range("C" & iDerniereLigne).Value = Q2Tbx.Value
Feuil6.Range("D" & iDerniereLigne).Value = Q3Tbx.Value
Feuil6.Range("E" & iDerniereLigne).Value = Q4Tbx.Value
Feuil6.Range("F" & iDerniereLigne).Value = Q5Tbx.Value
Feuil6.Range("G" & iDerniereLigne).Value = Q6Tbx.Value
'Accessibilité de la localité
If Q7Opb1 Then
Feuil6.Range("H" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "13").Value
End If
If Q7Opb2 Then
Feuil6.Range("H" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "14").Value
End If
If Q7Opb3 Then
Feuil6.Range("H" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "15").Value
End If
Feuil6.Range("I" & iDerniereLigne).Value = Q8Tbx.Value
 
'Q9 à 12 : ======== POPULATION ================================================================================
Feuil6.Range("J" & iDerniereLigne).Value = Q9Textbox.Value
Feuil6.Range("K" & iDerniereLigne).Value = Q10Tbx.Value
Feuil6.Range("L" & iDerniereLigne).Value = Q11Tbx.Value
Feuil6.Range("M" & iDerniereLigne).Value = Q12Tbx.Value
 
'Q13 à 25 : ======== ACTIVITES SOCIO ECONOMIQUES ==============================================================
'Marché
If Q13Opb1 Then
Feuil6.Range("N" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "24").Value
Else
Feuil6.Range("N" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "25").Value
End If
If Q14Opb1 Then
Feuil6.Range("O" & iDerniereLigne).Value = Feuil1.Range("L5").Value
End If
If Q14Opb2 Then
Feuil6.Range("O" & iDerniereLigne).Value = Feuil1.Range("L6").Value
End If
If Q14Opb3 Then
Feuil6.Range("O" & iDerniereLigne).Value = Feuil1.Range("L7").Value
End If
If Q14Opb4 Then
Feuil6.Range("O" & iDerniereLigne).Value = Feuil1.Range("L8").Value
End If
If Q14Opb5 Then
Feuil6.Range("O" & iDerniereLigne).Value = Feuil1.Range("L9").Value
End If
'Q15 : Activités économiques
If Q15Cbx1 Then
Feuil6.Range("P" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "33").Value
End If
If Q15Cbx2 Then
Feuil6.Range("Q" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "34").Value
End If
If Q15Cbx3 Then
Feuil6.Range("R" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "35").Value
End If
If Q15Cbx4 Then
Feuil6.Range("S" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "36").Value
End If
If Q15Cbx5 Then
Feuil6.Range("T" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "37").Value
End If
If Q15Cbx6 Then
Feuil6.Range("U" & iDerniereLigne).Value = Q15Tbx.Value
End If
If Q16Cbx1 Then
Feuil6.Range("V" & iDerniereLigne).Value = Feuil1.Range("M5").Value
End If
If Q16Cbx2 Then
Feuil6.Range("W" & iDerniereLigne).Value = Feuil1.Range("M6").Value
End If
If Q16Cbx3 Then
Feuil6.Range("X" & iDerniereLigne).Value = Feuil1.Range("M7").Value
End If
If Q16Cbx4 Then
Feuil6.Range("Y" & iDerniereLigne).Value = Feuil1.Range("M8").Value
End If
If Q16Cbx5 Then
Feuil6.Range("Z" & iDerniereLigne).Value = Q16Tbx.Value
End If
'Q17 : Infrastructures et services
Feuil6.Range("AA" & iDerniereLigne).Value = Q17Tbx1.Value
Feuil6.Range("AB" & iDerniereLigne).Value = Q17Tbx2.Value
Feuil6.Range("AC" & iDerniereLigne).Value = Q17Tbx3.Value
Feuil6.Range("AD" & iDerniereLigne).Value = Q17Tbx4.Value
Feuil6.Range("AE" & iDerniereLigne).Value = Q17Tbx5.Value
Feuil6.Range("AF" & iDerniereLigne).Value = Q17Tbx6.Value
Feuil6.Range("AG" & iDerniereLigne).Value = Q17Tbx7.Value
Feuil6.Range("AH" & iDerniereLigne).Value = Q17Tbx8.Value
Feuil6.Range("AI" & iDerniereLigne).Value = Q17Tbx9.Value
Feuil6.Range("AJ" & iDerniereLigne).Value = Q17Tbx10.Value
Feuil6.Range("AK" & iDerniereLigne).Value = Q17Tbx11.Value
Feuil6.Range("AL" & iDerniereLigne).Value = Q17Tbx12.Value
Feuil6.Range("AM" & iDerniereLigne).Value = Q17Tbx13.Value
Feuil6.Range("AN" & iDerniereLigne).Value = Q17Tbx14.Value
Feuil6.Range("AO" & iDerniereLigne).Value = Q17Tbx15.Value
Feuil6.Range("AP" & iDerniereLigne).Value = Q17Tbx16.Value
If Q17Tbx16.Value > 0 Then
Feuil6.Range("AQ" & iDerniereLigne).Value = Q17Tbx17.Value
End If
If Q17Tbx16.Value = Empty Then
Feuil6.Range("AQ" & iDerniereLigne).Value = Empty
End If
'Q18 : AEP
If Q18Opb1 Then
Feuil6.Range("AR" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "62").Value
End If
If Q18Opb2 Then
Feuil6.Range("AR" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "63").Value
End If
If Q18Opb3 Then
Feuil6.Range("AR" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "64").Value
End If
If Q18Opb4 Then
Feuil6.Range("AR" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "65").Value
End If
If Q18Opb5 Then
Feuil6.Range("AR" & iDerniereLigne).Value = Q18Tbx.Value
End If
'Q19
Feuil6.Range("AS" & iDerniereLigne).Value = Q19Tbx.Value
If Q18Opb1 Then
Feuil6.Range("AS" & iDerniereLigne).Value = Empty
Else
Feuil6.Range("AS" & iDerniereLigne).Value = Q19Tbx.Value
End If
'Q20
Feuil6.Range("AT" & iDerniereLigne).Value = Q20Tbx.Value
If Q20Opb1 Then
Feuil6.Range("AU" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "68").Value
End If
If Q20Opb2 Then
Feuil6.Range("AU" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "69").Value
End If
'Q21 : heures de pompage AEP
If Q21Cbx1 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";6"
End If
If Q21Cbx2 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";7"
End If
If Q21Cbx3 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";8"
End If
If Q21Cbx4 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";9"
End If
If Q21Cbx5 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";10"
End If
If Q21Cbx6 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";11"
End If
If Q21Cbx7 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";12"
End If
If Q21Cbx8 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";13"
End If
If Q21Cbx9 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";14"
End If
If Q21Cbx10 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";15"
End If
If Q21Cbx11 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";16"
End If
If Q21Cbx12 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";17"
End If
If Q21Cbx13 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";18"
End If
If Q21Cbx14 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";19"
End If
If Q21Cbx15 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";20"
End If
If Q21Cbx16 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";21"
End If
If Q21Cbx17 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";22"
End If
If Q21Cbx18 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";23"
End If
If Q21Cbx19 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";0"
End If
If Q21Cbx20 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";1"
End If
If Q21Cbx21 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";2"
End If
If Q21Cbx22 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";3"
End If
If Q21Cbx23 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";4"
End If
If Q21Cbx24 Then
Feuil6.Range("AV" & iDerniereLigne).Value = Feuil6.Range("AV" & iDerniereLigne).Value + ";5"
End If
'Q22 : Relai téléphone
If Q22Opb1 Then
Feuil6.Range("AW" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "24").Value
Else
Feuil6.Range("AW" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "25").Value
End If
If Q23Opb1 Then
Feuil6.Range("AX" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "63").Value
End If
If Q23Opb2 Then
Feuil6.Range("AX" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "65").Value
End If
If Q23Opb3 Then
Feuil6.Range("AX" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "64").Value
End If
If Q23Opb4 Then
Feuil6.Range("AX" & iDerniereLigne).Value = Q23Tbx.Value
End If
'Q24 : Groupes associatifs
If Q24Opb1 Then
Feuil6.Range("AY" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "24").Value
Else
Feuil6.Range("AY" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "25").Value
End If
If Q24Opb1 Then
Feuil6.Range("AZ" & iDerniereLigne).Value = Q25Tbx.Value
End If
 
'Q26 à 31 : ========== PRE ELECTRIFICATION ================================================================
If Q26Opb1 Then
Feuil6.Range("BA" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "24").Value
Else
Feuil6.Range("BA" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "25").Value
End If
 
If Q27Cbx1 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";6"
End If
If Q27Cbx2 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";7"
End If
If Q27Cbx3 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";8"
End If
If Q27Cbx4 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";9"
End If
If Q27Cbx5 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";10"
End If
If Q27Cbx6 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";11"
End If
If Q27Cbx7 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";12"
End If
If Q27Cbx8 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";13"
End If
If Q27Cbx9 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";14"
End If
If Q27Cbx10 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";15"
End If
If Q27Cbx11 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";16"
End If
If Q27Cbx12 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";17"
End If
If Q27Cbx13 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";18"
End If
If Q27Cbx14 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";19"
End If
If Q27Cbx15 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";20"
End If
If Q27Cbx16 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";21"
End If
If Q27Cbx17 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";22"
End If
If Q27Cbx18 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";23"
End If
If Q27Cbx19 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";0"
End If
If Q27Cbx20 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";1"
End If
If Q27Cbx21 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";2"
End If
If Q27Cbx22 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";3"
End If
If Q27Cbx23 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";4"
End If
If Q27Cbx24 Then
Feuil6.Range("BB" & iDerniereLigne).Value = Feuil6.Range("BB" & iDerniereLigne).Value + ";5"
End If
 
'Q28 à 30
Feuil6.Range("BC" & iDerniereLigne).Value = Q28Tbx1.Value
Feuil6.Range("BD" & iDerniereLigne).Value = Q28Tbx2.Value
Feuil6.Range("BE" & iDerniereLigne).Value = Q29Tbx1.Value
Feuil6.Range("BF" & iDerniereLigne).Value = Q29Tbx2.Value
Feuil6.Range("BG" & iDerniereLigne).Value = Q30Tbx1.Value
Feuil6.Range("BH" & iDerniereLigne).Value = Q30Tbx2.Value
'Q31
Feuil6.Range("BI" & iDerniereLigne).Value = Q31Tbx1.Value
Feuil6.Range("BK" & iDerniereLigne).Value = Q31Tbx2.Value
Feuil6.Range("BM" & iDerniereLigne).Value = Q31Tbx3.Value
Feuil6.Range("BO" & iDerniereLigne).Value = Q31Tbx4.Value
Feuil6.Range("BP" & iDerniereLigne).Value = Q31Tbx5.Value
Feuil6.Range("BQ" & iDerniereLigne).Value = Q31Tbx6.Value
Feuil6.Range("BJ" & iDerniereLigne).Value = Q31bisTbx1.Value
Feuil6.Range("BL" & iDerniereLigne).Value = Q31bisTbx2.Value
Feuil6.Range("BN" & iDerniereLigne).Value = Q31bisTbx3.Value
Feuil6.Range("BR" & iDerniereLigne).Value = Q31bisTbx6.Value
Feuil6.Range("BS" & iDerniereLigne).Value = Q31terTbx6.Value
 
'Q32 à 35 : ===== Ravitaillement en combustibles ==============================================================
Feuil6.Range("BT" & iDerniereLigne).Value = Q32Tbx1.Value
Feuil6.Range("BU" & iDerniereLigne).Value = Q32Tbx2.Value
Feuil6.Range("BV" & iDerniereLigne).Value = Q33Tbx.Value
Feuil6.Range("BW" & iDerniereLigne).Value = Q34Tbx1.Value
Feuil6.Range("BX" & iDerniereLigne).Value = Q34Tbx2.Value
Feuil6.Range("BY" & iDerniereLigne).Value = Q35Tbx.Value
 
'Q36 à 38 : ======== Organisation de l'habitat ================================================================
If Q36Opb1 Then
Feuil6.Range("BZ" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "102").Value
End If
If Q36Opb2 Then
Feuil6.Range("BZ" & iDerniereLigne).Value = Feuil3.Range(Mycolumn & "103").Value
End If
If Q36Opb3 Then
Feuil6.Range("BZ" & iDerniereLigne).Value = Q36Tbx.Value
End If
Feuil6.Range("CA" & iDerniereLigne).Value = Q37Tbx.Value
Feuil6.Range("CB" & iDerniereLigne).Value = Q38Tbx1.Value
Feuil6.Range("CC" & iDerniereLigne).Value = Q38Tbx2.Value
Feuil6.Range("CD" & iDerniereLigne).Value = Q38Tbx3.Value
 
'Q39 : COMMENTAIRES
Feuil6.Range("CE" & iDerniereLigne).Value = Q39Tbx.Value
 
 
'Revenir à la page d'accueil
Feuil13.Activate
 
'Fermer le questionnaire
Unload Me
 
 
Else
Dim MsgeError As String
MsgeError = Feuil3.Range(Mycolumn & "358").Value
Textbox1.Value = fValideValeur(InputBox(MsgeError))
 
End If
 
Application.AutoRecover.Enabled = True
End Sub
 ' FONCTION DE VALIDATION DES VALEURS DES TEXTBOX
 Private Function fValideValeur(ByVal Result As Variant)
Dim InputBoxResult As Variant
If Result = "" Then
    fValideValeur = ""
    Exit Function
End If
 
Dim nvResult As Variant
On Error GoTo TraiteError
nvResult = CLng(Result)
fValideValeur = nvResult
Exit Function
 
TraiteError:
If Feuil13.Range("E24").Value = "Français" Then
InputBoxResult = InputBox("Valeur non valide, rentrez un nombre entier")
End If
If Feuil13.Range("E24").Value = "English" Then
InputBoxResult = InputBox("Unvalid value, please enter a figure")
End If
fValideValeur = fValideValeur(InputBoxResult)
 
 End Function
 Private Sub ValideToutelesTextbox()
Dim TextBoxATester As Control
For Each TextBoxATester In Me.Controls
If InStr(TextBoxATester.Name, "Textbox") <> 0 Then TextBoxATester.Value = fValideValeur(TextBoxATester.Value)
Next
 
End Sub
 
'Validation des Textbox
Private Sub Textbox1_Change()
ValideToutelesTextbox
End Sub
Private Sub Q9Textbox_Change()
ValideToutelesTextbox
 
End Sub
 
'TEST FONCTION de controle des valeurs
 
'Private Function control() As Boolean
'Dim i As Boolean
'i = False
'If IsNull(Tbx1.Value) Then i = True
 
'Return
'End Function
 
 
'Q17 : On libere la Textbox 17 (nom des autres infra&services) SSI Tbx16 n'est pas vide
Private Sub Q17Tbx16_Change()
Q17Tbx17.Enabled = Q17Tbx16 <> Empty
End Sub
 
'Q19 : On libere la Textbox 19 (Puissance AEP) SSI Q19Cbx1 est vide
Private Sub Q19Tbx_Change()
Q19Tbx.Enabled = Q18Opb1.Value
End Sub
 
'Private Sub UserForm_Initialize()
'Me.StartUpPosition = 3
'End Sub
 
 
 
Private Sub CommandButton_Imprimer_Click()
    CommandButton_Imprimer.Visible = False
        Me.Height = 800
        Me.MultiPage1.Height = 800
                 Me.Printform
    CommandButton_Imprimer.Visible = True
        Me.Height = 456
        Me.MultiPage1.Height = 456
End Sub
 
Private Sub CommandButton_Imprimer2_Click()
    CommandButton_Imprimer2.Visible = False
    CommandButtonValider.Visible = False
        Me.Height = 800
        Me.MultiPage1.Height = 800
            Me.Printform
    CommandButton_Imprimer2.Visible = True
    CommandButtonValider.Visible = True
        Me.Height = 456
        Me.MultiPage1.Height = 456
End Sub

...

[AlainTech]

Bonjour,

Vu le nombre de contrôles impactés par les modifications, je te proposerais d'insérer des DoEvents toutes les 10 lignes de code.

Tu ne devrais pas sentir de différence de temps d'exécution et ça permettrait à Excel de "respirer".