[E-00] Exécution incomplète d'un programme

**dumor** · 31/10/2008, 15h08

Bonjour,

Voila j’ai réalisé programme créant un tableau à partir d’un tableau initial qui contient environ 1200 lignes.
Un des paramètres pour réaliser ce second tableau est le numéro de semaine (1 à 52) de l’année.
A partir du second tableau je réalise un graphique qui me donne un indice en fonction de la semaine . Cet indice (qui est bon) s‘arrête semaine 25 (puis garde la même valeur) et vous savez bien que l’on est en semaine 44.
Mon programme étant basé sur des boucles que j’ai basé jusqu'à la dernière ligne active je me demande si il n’y aurait pas un paramètre caché sous vba qui gère le nombre d’ « exécution ».
Je tiens à vous signaler que pour la création du second tableau et du graphique correspondant le programme calcule (avant d’afficher la page) pendant presque 30 sec.

Lorsque j’appuie il n’y a aucun message d’erreur !!!

**ucfoutu** · 31/10/2008, 15h38

Bonjour,

Bien difficile sans voir ton code...
On peut même imaginer quy'il y a un problème de lecture des dates et de détermination des numéros de semaine ... (entre autres)...
As-tu au moins, avant ton graphique, essayé de voir ce que contenait ton second tableau (celui des semaines) ?
Si oui et si les données sont bonnes, c'est le code du calcul d'indices qui est erroné
Si oui et si les données ne sont pas bonnes, c'est le code du calcul des semaines qui est erroné
Si non (si tu n'as pas fait cette vérification des valeurs de ton second tableau) : commence donc par cette vérification.

En d'autres termes : isole ton problème (et c'est là une chose assez facilement réalisable).

**patbou** · 31/10/2008, 15h57

bonjour,

Je tiens à vous signaler que pour la création du second tableau et du graphique correspondant le programme calcule (avant d’afficher la page) pendant presque 30 sec.

Un peu long !!!
Utilises tu une variable de type tableau ou un variant pour réaliser ces calculs?
Car si ces calculs sont fait directement avec les cellules, avec par dessus des .SELECT ou .ACTIVATE le tps d ' execution peut être assez long

**dumor** · 31/10/2008, 16h06

En fait mon tableau intermédiaire est bon jusque la semaine 25
puis l'indice se stabilise voici une partie de mon code :

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
Public Sub toute_annee()
 
Dim aux As String
Dim auxref As Integer
Dim i, j, k, l As Integer
Dim Cell  As Range
 
Dim basejanvitef As Integer
Dim basejanvetef As Integer
Dim basejanvtef As Integer
Dim basejanvip As Integer
Dim basejanvep As Integer
Dim basejanvp As Integer
Dim basejanvir As Integer
Dim basejanver As Integer
Dim basejanvr As Integer
Dim basejanvinc As Integer
Dim basejanvenc As Integer
Dim basejanvnc As Integer
 
 
Windows("Classeur_recapitulatif.xls").Activate
 
'On définit la semaine la plus petite qui est la semaine 1 (vu à partir de la colonne 11)
 
aux1 = 1
 
 
i = 4
k = 0
l = 3
 
While aux1 < 53
 
    aux = "0"
    j = 1
    If Cells(l, 2).Value = "" Then GoTo 1
'    While Left(aux, 1) <> "S" And j < 6
'        aux = Right(Cells(l, 2), j)
'        j = j + 1
'    Wend
 
'    j = j - 2
'    aux1 = Right(Cells(l, 2), j)
 
 
    'TRANCHE 1
    'NOMBRE DE FUITES SOLDEES SUIVANT LES CAS
 
    'on compte le nombre de fuites, internes, TEF soldées la semaine i
 
    nbsifitef1 = 0
 
    i = 3
    While Cells(i, 3) <> ""
            If Cells(i, 2) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 4) = "interne" And Cells(i, 5) = "TEF" Then
            nbsifitef1 = nbsifitef1 + 1
        End If
    i = i + 1
    Wend
 
    'on compte le nombre de fuites, externes, TEF soldées la semaine i
 
    nbsifetef1 = 0
    i = 2
    While Cells(i, 3) <> ""
            If Cells(i, 2) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 4) = "externe" And Cells(i, 5) = "TEF" Then
            nbsifetef1 = nbsifetef1 + 1
        End If
    i = i + 1
    Wend
 
    'on compte le nombre de fuites, internes, R23 soldées la semaine i
 
    nbsifir1 = 0
    i = 2
    While Cells(i, 3) <> ""
            If Cells(i, 2) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 4) = "interne" And Cells(i, 5) = "R23" Then
            nbsifir1 = nbsifir1 + 1
        End If
    i = i + 1
    Wend
 
    'on compte le nombre de fuites, externes, R23 soldées la semaine i
    nbsifer1 = 0
    i = 2
    While Cells(i, 3) <> ""
            If Cells(i, 2) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 4) = "externe" And Cells(i, 5) = "R23" Then
            nbsifer1 = nbsifer1 + 1
        End If
    i = i + 1
    Wend
 
    'on compte le nombre de fuites, internes, P24 soldées la semaine i
 
    nbsifip1 = 0
    i = 2
    While Cells(i, 3) <> ""
            If Cells(i, 2) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 4) = "interne" And Cells(i, 5) = "P24" Then
            nbsifip1 = nbsifip1 + 1
        End If
    i = i + 1
    Wend
 
    'on compte le nombre de fuites, externes, P24 soldées la semaine i
    nbsifep1 = 0
    i = 2
    While Cells(i, 3) <> ""
            If Cells(i, 2) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 4) = "externe" And Cells(i, 5) = "P24" Then
            nbsifep1 = nbsifep1 + 1
        End If
    i = i + 1
    Wend
 
    'on compte le nombre de fuites, internes, NC soldées la semaine i
 
    nbsifinc1 = 0
    i = 2
    While Cells(i, 3) <> ""
            If Cells(i, 2) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 4) = "interne" And Cells(i, 5) = "NC" Then
            nbsifinc1 = nbsifinc1 + 1
        End If
    i = i + 1
    Wend
 
    'on compte le nombre de fuites, externes, NC soldées la semaine i
    nbsifenc1 = 0
    i = 2
    While Cells(i, 3) <> ""
            If Cells(i, 2) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 4) = "externe" And Cells(i, 5) = "NC" Then
            nbsifenc1 = nbsifenc1 + 1
        End If
    i = i + 1
    Wend
 
    'Sous totaux
    tnbstef1 = 0
    i = 2
    While Cells(i, 3) <> ""
        If Cells(i, 2) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 5) = "TEF" Then
            tnbstef1 = tnbstef1 + 1
        End If
    i = i + 1
    Wend
 
 
    tnbsr1 = 0
    i = 2
    While Cells(i, 3) <> ""
        If Cells(i, 2) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 5) = "R23" Then
            tnbsr1 = tnbsr1 + 1
        End If
    i = i + 1
 
    Wend
 
    tnbsp1 = 0
    i = 2
    While Cells(i, 3) <> ""
        If Cells(i, 2) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 5) = "P24" Then
            tnbsp1 = tnbsp1 + 1
        End If
    i = i + 1
    Wend
 
    tnbsnc1 = 0
    i = 2
    While Cells(i, 3) <> ""
        If Cells(i, 2) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 5) = "NC" Then
            tnbsnc1 = tnbsnc1 + 1
        End If
    i = i + 1
    Wend
 
    'NOMBRE DE FUITES EMISES SUIVANT LES CAS
 
    'on compte le nombre de fuites, internes, TEF émises la semaine i
 
    emsifitef1 = 0
    i = 2
    While Cells(i, 3) <> ""
            If Cells(i, 11) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 4) = "interne" And Cells(i, 5) = "TEF" Then
            emsifitef1 = emsifitef1 + 1
        End If
    i = i + 1
    Wend
 
    'on compte le nombre de fuites, externes, TEF soldées la semaine i
 
    emsifetef1 = 0
    i = 2
    While Cells(i, 3) <> ""
            If Cells(i, 11) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 4) = "externe" And Cells(i, 5) = "TEF" Then
            emsifetef1 = emsifetef1 + 1
        End If
    i = i + 1
    Wend
 
    'on compte le nombre de fuites, internes, R23 soldées la semaine i
 
    emsifir1 = 0
    i = 2
    While Cells(i, 3) <> ""
            If Cells(i, 11) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 4) = "interne" And Cells(i, 5) = "R23" Then
            emsifir1 = emsifir1 + 1
        End If
    i = i + 1
    Wend
 
    'on compte le nombre de fuites, externes, R23 soldées la semaine i
    emsifer1 = 0
    i = 2
    While Cells(i, 3) <> ""
            If Cells(i, 11) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 4) = "externe" And Cells(i, 5) = "R23" Then
            emsifer1 = emsifer1 + 1
        End If
    i = i + 1
    Wend
 
    'on compte le nombre de fuites, internes, P24 soldées la semaine i
 
    emsifip1 = 0
    i = 2
    While Cells(i, 3) <> ""
            If Cells(i, 11) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 4) = "interne" And Cells(i, 5) = "P24" Then
            emsifip1 = emsifip1 + 1
        End If
    i = i + 1
    Wend
 
    'on compte le nombre de fuites, externes, P24 soldées la semaine i
    emsifep1 = 0
    i = 2
    While Cells(i, 3) <> ""
            If Cells(i, 11) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 4) = "externe" And Cells(i, 5) = "P24" Then
            emsifep1 = emsifep1 + 1
        End If
    i = i + 1
    Wend
 
    'on compte le nombre de fuites, internes, NC soldées la semaine i
 
    emsifinc1 = 0
    i = 2
    While Cells(i, 3) <> ""
            If Cells(i, 11) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 4) = "interne" And Cells(i, 5) = "NC" Then
            emsifinc1 = emsifinc1 + 1
        End If
    i = i + 1
    Wend
 
    'on compte le nombre de fuites, externes, NC soldées la semaine i
    emsifenc1 = 0
    i = 2
    While Cells(i, 3) <> ""
            If Cells(i, 11) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 4) = "externe" And Cells(i, 5) = "NC" Then
            emsifenc1 = emsifenc1 + 1
        End If
    i = i + 1
    Wend
 
    'Sous totaux
    tembstef1 = 0
    i = 2
    While Cells(i, 3) <> ""
        If Cells(i, 11) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 5) = "TEF" Then
            tembstef1 = tembstef1 + 1
        End If
    i = i + 1
    Wend
 
 
    tembsr1 = 0
    i = 2
    While Cells(i, 3) <> ""
        If Cells(i, 11) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 5) = "R23" Then
            tembsr1 = tembsr1 + 1
        End If
    i = i + 1
 
    Wend
 
    tembsp1 = 0
    i = 2
    While Cells(i, 3) <> ""
        If Cells(i, 11) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 5) = "P24" Then
           tembsp1 = tembsp1 + 1
        End If
    i = i + 1
    Wend
 
    tembsnc1 = 0
    i = 2
    While Cells(i, 3) <> ""
        If Cells(i, 11) = Format("08S" & aux1) And Cells(i, 6) = "1" And Cells(i, 5) = "NC" Then
            tembsnc1 = tembsnc1 + 1
        End If
    i = i + 1
    Wend
 
 
    Repertoire_type_fuite k
    k = k + 1
1
    aux1 = aux1 + 1
 l = l + 1
 
Wend
 
 
 
 
 
 
 
 
 
 
'Calcul des DI de 2007 comme base au 1er janvier
basejanvitef = 0
i = 2
While Cells(i, 3) <> ""
    If Cells(i, 11) = "" And Cells(i, 6) = "1" And Cells(i, 5) = "TEF" And Cells(i, 4) = "interne" Then
        basejanvitef = basejanvitef + 1
    End If
i = i + 1
Wend
 
basejanvetef = 0
i = 2
While Cells(i, 3) <> ""
    If Cells(i, 11) = "" And Cells(i, 6) = "1" And Cells(i, 5) = "TEF" And Cells(i, 4) = "externe" Then
        basejanvetef = basejanvetef + 1
    End If
i = i + 1
Wend
 
basejanvtef = 0
i = 2
While Cells(i, 3) <> ""
    If Cells(i, 11) = "" And Cells(i, 6) = "1" And Cells(i, 5) = "TEF" Then
        basejanvtef = basejanvtef + 1
    End If
i = i + 1
Wend
 
basejanvir = 0
i = 2
While Cells(i, 3) <> ""
    If Cells(i, 11) = "" And Cells(i, 6) = "1" And Cells(i, 5) = "R23" And Cells(i, 4) = "interne" Then
        basejanvir = basejanvir + 1
    End If
i = i + 1
Wend
 
basejanver = 0
i = 2
While Cells(i, 3) <> ""
    If Cells(i, 11) = "" And Cells(i, 6) = "1" And Cells(i, 5) = "R23" And Cells(i, 4) = "externe" Then
        basejanver = basejanver + 1
    End If
i = i + 1
Wend
 
basejanvr = 0
i = 2
While Cells(i, 3) <> ""
    If Cells(i, 11) = "" And Cells(i, 6) = "1" And Cells(i, 5) = "R23" Then
        basejanvr = basejanvr + 1
    End If
i = i + 1
Wend
 
basejanvip = 0
i = 2
While Cells(i, 3) <> ""
    If Cells(i, 11) = "" And Cells(i, 6) = "1" And Cells(i, 5) = "P24" And Cells(i, 4) = "interne" Then
        basejanvip = basejanvip + 1
    End If
i = i + 1
Wend
 
basejanvep = 0
i = 2
While Cells(i, 3) <> ""
    If Cells(i, 11) = "" And Cells(i, 6) = "1" And Cells(i, 5) = "P24" And Cells(i, 4) = "externe" Then
        basejanvep = basejanvep + 1
    End If
i = i + 1
Wend
 
basejanvp = 0
i = 2
While Cells(i, 3) <> ""
    If Cells(i, 11) = "" And Cells(i, 6) = "1" And Cells(i, 5) = "P24" Then
        basejanvp = basejanvp + 1
    End If
i = i + 1
Wend
 
basejanvinc = 0
i = 2
While Cells(i, 3) <> ""
    If Cells(i, 11) = "" And Cells(i, 6) = "1" And Cells(i, 5) = "NC" And Cells(i, 4) = "interne" Then
        basejanvinc = basejanvinc + 1
    End If
i = i + 1
Wend
 
basejanvenc = 0
i = 2
While Cells(i, 3) <> ""
    If Cells(i, 11) = "" And Cells(i, 6) = "1" And Cells(i, 5) = "NC" And Cells(i, 4) = "externe" Then
        basejanvenc = basejanvenc + 1
    End If
i = i + 1
Wend
 
basejanvnc = 0
i = 2
While Cells(i, 3) <> ""
    If Cells(i, 11) = "" And Cells(i, 6) = "1" And Cells(i, 5) = "NC" Then
        basejanvnc = basejanvnc + 1
    End If
i = i + 1
Wend
 
 
'On crée le tableau dans une feuille à part
 
Workbooks.Open ("D:\Indicateur\Recapitulatif fuites\graphes....")
 
Sheets("Tableau TR1").Activate
 
'Calcul des DI restantes de la semaine i
'comment se baser par rapport à la semaine de Aux
i = 3
 
Cells(4, 2) = basejanvitef
Cells(5, 2) = basejanvetef
Cells(6, 2) = basejanvtef
Cells(7, 2) = basejanvir
Cells(8, 2) = basejanver
Cells(9, 2) = basejanvr
Cells(10, 2) = basejanvip
Cells(11, 2) = basejanvep
Cells(12, 2) = basejanvp
Cells(13, 2) = basejanvinc
Cells(14, 2) = basejanvenc
Cells(15, 2) = basejanvnc
 
 
While i < 53
 
    Cells(3, i) = Cells(3, i - 1) + 1
    Cells(4, i) = Cells(4, i - 1) - Tabrep(i - 3, 1) + Tabrep(i - 3, 13)
    Cells(5, i) = Cells(5, i - 1) - Tabrep(i - 3, 2) + Tabrep(i - 3, 14)
    Cells(6, i) = Cells(6, i - 1) - Tabrep(i - 3, 3) + Tabrep(i - 3, 15)
 
    Cells(7, i) = Cells(7, i - 1) - Tabrep(i - 3, 4) + Tabrep(i - 3, 16)
    Cells(8, i) = Cells(8, i - 1) - Tabrep(i - 3, 5) + Tabrep(i - 3, 17)
    Cells(9, i) = Cells(9, i - 1) - Tabrep(i - 3, 6) + Tabrep(i - 3, 18)
 
    Cells(10, i) = Cells(10, i - 1) - Tabrep(i - 3, 7) + Tabrep(i - 3, 19)
    Cells(11, i) = Cells(11, i - 1) - Tabrep(i - 3, 8) + Tabrep(i - 3, 20)
    Cells(12, i) = Cells(12, i - 1) - Tabrep(i - 3, 9) + Tabrep(i - 3, 21)
 
    Cells(13, i) = Cells(13, i - 1) - Tabrep(i - 3, 10) + Tabrep(i - 3, 22)
    Cells(14, i) = Cells(14, i - 1) - Tabrep(i - 3, 11) + Tabrep(i - 3, 23)
    Cells(15, i) = Cells(15, i - 1) - Tabrep(i - 3, 12) + Tabrep(i - 3, 24)
 
    i = i + 1
 
Wend
 
 
 
 
 
Range("A3:AZ3,A6:AZ6,A9:AZ9,A12:AZ12,A15:AZ15").Select
    Range("A15").Activate
    Charts("Evolution TR1").Activate
    ActiveChart.ChartType = xlLineMarkers
 
    ActiveChart.SetSourceData Source:=Sheets("Tableau TR1").Range( _
        "A6:AZ6,A9:AZ9,A12:AZ12,A15:AZ15"), PlotBy:=xlRows
 
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Totaux fuites TR1"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Semaine"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Quantité"
 
        End With
 
End Sub

Donc d'après toi on est dans le cas suivant

Si oui et si les données sont bonnes, c'est le code du calcul d'indices qui est erroné

Par contre j'ai utilisé très peu de .activate et de .select

**ucfoutu** · 31/10/2008, 16h16

SWi ton tableau n'est bon que jusu'à la semaine 25, tu n'es certes pas dans le cas de

Si oui et si les données sont bonnes, c'est le code du calcul d'indices qui est erroné

mais dans le cas de :

Si oui et si les données ne sont pas bonnes, c'est le code du calcul des semaines qui est erroné

me semble-t-il ....

**Pierre Fauconnier** · 31/10/2008, 17h40

Salut.

J'ai fait défiler le code... c'est illisible.

Il me semble que tu devrais, avant même de sérier les problèmes comme le propose ucfoutu, découper ce que tu veux faire en petites procédures faciles à tester et à débuguer...

Ce sera beaucoup plus propre que ces goto à répétition. Je suis certain qu'il y a moyen d'optimiser le code utilisé, mais il faut repartir de zéro

[E-00] Exécution incomplète d'un programme

Macros et VBA Excel

Discussions similaires

Partager

Partager