Simplification macro de comptage et somme

**sims92.66** · 16/02/2012, 09h38

Bonjour à tous,

Je cherche à simplifier mon codage VBA me permettant de faire une boucle de comptage et de somme.
Ce code marche mais il est tres lent...

Il est très long mais il y a beaucoup de répétition.

Merci de votre aide par avance.

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
 
Sub COMPTAGE()
 
i = 10
 
ecartvarianteA1 = 0
passifvarianteA1 = 0
comptagevarianteA1 = 0
 
ecartvarianteA2 = 0
passifvarianteA2 = 0
comptagevarianteA2 = 0
 
ecartvarianteA3 = 0
passifvarianteA3 = 0
comptagevarianteA3 = 0
 
ecartvarianteA4 = 0
passifvarianteA4 = 0
comptagevarianteA4 = 0
 
ecartvarianteA5 = 0
passifvarianteA5 = 0
comptagevarianteA5 = 0
 
ecartvarianteA6 = 0
passifvarianteA6 = 0
comptagevarianteA6 = 0
 
ecartvarianteA7 = 0
passifvarianteA7 = 0
comptagevarianteA7 = 0
 
ecartvarianteA8 = 0
passifvarianteA8 = 0
comptagevarianteA8 = 0
 
ecartvarianteA9 = 0
passifvarianteA9 = 0
comptagevarianteA9 = 0
 
ecartvarianteA10 = 0
passifvarianteA10 = 0
comptagevarianteA10 = 0
 
ecartvarianteA11 = 0
passifvarianteA11 = 0
comptagevarianteA11 = 0
 
ecartvarianteA12 = 0
passifvarianteA12 = 0
comptagevarianteA12 = 0
 
 
 
ecartvarianteB1 = 0
passifvarianteB1 = 0
comptagevarianteB1 = 0
 
ecartvarianteB2 = 0
passifvarianteB2 = 0
comptagevarianteB2 = 0
 
ecartvarianteB3 = 0
passifvarianteB3 = 0
comptagevarianteB3 = 0
 
ecartvarianteB4 = 0
passifvarianteB4 = 0
comptagevarianteB4 = 0
 
ecartvarianteB5 = 0
passifvarianteB5 = 0
comptagevarianteB5 = 0
 
ecartvarianteB6 = 0
passifvarianteB6 = 0
comptagevarianteB6 = 0
 
ecartvarianteB7 = 0
passifvarianteB7 = 0
comptagevarianteB7 = 0
 
ecartvarianteB8 = 0
passifvarianteB8 = 0
comptagevarianteB8 = 0
 
ecartvarianteB9 = 0
passifvarianteB9 = 0
comptagevarianteB9 = 0
 
ecartvarianteB10 = 0
passifvarianteB10 = 0
comptagevarianteB10 = 0
 
ecartvarianteB11 = 0
passifvarianteB11 = 0
comptagevarianteB11 = 0
 
ecartvarianteB12 = 0
passifvarianteB12 = 0
comptagevarianteB12 = 0
 
 
 
While IsEmpty(Sheets("Collecte AP").Cells(i, 1)) = False
 
 
'janvier
If ((Sheets("Collecte AP").Cells(i, 1) = "1") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
passifvarianteA1 = passifvarianteA1 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(22, 3) = passifvarianteA1
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "1") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
ecartvarianteA1 = ecartvarianteA1 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(22, 5) = ecartvarianteA1
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "1") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteA1 = comptagevarianteA1 + 1
Sheets("VBA").Cells(22, 2) = comptagevarianteA1
End If
 
'fevrier
If ((Sheets("Collecte AP").Cells(i, 1) = "2") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
passifvarianteA2 = passifvarianteA2 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(23, 3) = passifvarianteA2
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "2") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
ecartvarianteA2 = ecartvarianteA2 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(23, 5) = ecartvarianteA2
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "2") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteA2 = comptagevarianteA2 + 1
Sheets("VBA").Cells(23, 2) = comptagevarianteA2
End If
 
 
'mars
If ((Sheets("Collecte AP").Cells(i, 1) = "3") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
passifvarianteA3 = passifvarianteA3 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(24, 3) = passifvarianteA3
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "3") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
ecartvarianteA3 = ecartvarianteA3 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(24, 5) = ecartvarianteA3
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "3") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteA3 = comptagevarianteA3 + 1
Sheets("VBA").Cells(24, 2) = comptagevarianteA3
End If
 
 
'avril
If ((Sheets("Collecte AP").Cells(i, 1) = "4") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
passifvarianteA4 = passifvarianteA4 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(25, 3) = passifvarianteA4
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "4") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
ecartvarianteA4 = ecartvarianteA4 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(25, 5) = ecartvarianteA4
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "4") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteA4 = comptagevarianteA4 + 1
Sheets("VBA").Cells(25, 2) = comptagevarianteA4
End If
 
 
'mai
If ((Sheets("Collecte AP").Cells(i, 1) = "5") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
passifvarianteA5 = passifvarianteA5 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(26, 3) = passifvarianteA5
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "5") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
ecartvarianteA5 = ecartvarianteA5 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(26, 5) = ecartvarianteA5
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "5") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteA5 = comptagevarianteA5 + 1
Sheets("VBA").Cells(26, 2) = comptagevarianteA5
End If
 
 
'juin
If ((Sheets("Collecte AP").Cells(i, 1) = "6") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
passifvarianteA6 = passifvarianteA6 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(27, 3) = passifvarianteA6
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "6") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
ecartvarianteA6 = ecartvarianteA6 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(27, 5) = ecartvarianteA6
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "6") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteA6 = comptagevarianteA6 + 1
Sheets("VBA").Cells(27, 2) = comptagevarianteA6
End If
 
 
'juillet
If ((Sheets("Collecte AP").Cells(i, 1) = "7") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
passifvarianteA7 = passifvarianteA7 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(28, 3) = passifvarianteA7
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "7") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
ecartvarianteA7 = ecartvarianteA7 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(28, 5) = ecartvarianteA7
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "7") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteA7 = comptagevarianteA7 + 1
Sheets("VBA").Cells(28, 2) = comptagevarianteA7
End If
 
 
'aout
If ((Sheets("Collecte AP").Cells(i, 1) = "8") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
passifvarianteA8 = passifvarianteA8 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(29, 3) = passifvarianteA8
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "8") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
ecartvarianteA8 = ecartvarianteA8 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(29, 5) = ecartvarianteA8
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "8") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteA8 = comptagevarianteA8 + 1
Sheets("VBA").Cells(29, 2) = comptagevarianteA8
End If
 
 
'septembre
If ((Sheets("Collecte AP").Cells(i, 1) = "9") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
passifvarianteA9 = passifvarianteA9 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(30, 3) = passifvarianteA9
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "9") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
ecartvarianteA9 = ecartvarianteA9 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(30, 5) = ecartvarianteA9
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "9") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteA9 = comptagevarianteA9 + 1
Sheets("VBA").Cells(30, 2) = comptagevarianteA9
End If
 
 
'octobre
If ((Sheets("Collecte AP").Cells(i, 1) = "10") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
passifvarianteA10 = passifvarianteA10 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(31, 3) = passifvarianteA10
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "10") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
ecartvarianteA10 = ecartvarianteA10 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(31, 5) = ecartvarianteA10
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "10") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteA10 = comptagevarianteA10 + 1
Sheets("VBA").Cells(31, 2) = comptagevarianteA10
End If
 
'novembre
If ((Sheets("Collecte AP").Cells(i, 1) = "11") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
passifvarianteA11 = passifvarianteA11 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(32, 3) = passifvarianteA11
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "11") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
ecartvarianteA11 = ecartvarianteA11 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(32, 5) = ecartvarianteA11
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "11") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteA11 = comptagevarianteA11 + 1
Sheets("VBA").Cells(32, 2) = comptagevarianteA11
End If
 
'decembre
If ((Sheets("Collecte AP").Cells(i, 1) = "12") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
passifvarianteA12 = passifvarianteA12 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(33, 3) = passifvarianteA12
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "12") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A")) Then
ecartvarianteA12 = ecartvarianteA12 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(33, 5) = ecartvarianteA12
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "12") And (Sheets("Collecte AP").Cells(i, 3) = "Variante A") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteA12 = comptagevarianteA12 + 1
Sheets("VBA").Cells(33, 2) = comptagevarianteA12
End If
 
 
 
'janvier
If ((Sheets("Collecte AP").Cells(i, 1) = "1") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
passifvarianteB1 = passifvarianteB1 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(38, 3) = passifvarianteB1
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "1") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
ecartvarianteB1 = ecartvarianteB1 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(38, 5) = ecartvarianteB1
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "1") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteB1 = comptagevarianteB1 + 1
Sheets("VBA").Cells(38, 2) = comptagevarianteB1
End If
 
'fevrier
If ((Sheets("Collecte AP").Cells(i, 1) = "2") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
passifvarianteB2 = passifvarianteB2 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(39, 3) = passifvarianteB2
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "2") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
ecartvarianteB2 = ecartvarianteB2 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(39, 5) = ecartvarianteB2
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "2") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteB2 = comptagevarianteB2 + 1
Sheets("VBA").Cells(39, 2) = comptagevarianteB2
End If
 
'mars
If ((Sheets("Collecte AP").Cells(i, 1) = "3") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
passifvarianteB3 = passifvarianteB3 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(40, 3) = passifvarianteB3
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "3") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
ecartvarianteB3 = ecartvarianteB3 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(40, 5) = ecartvarianteB3
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "3") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteB3 = comptagevarianteB3 + 1
Sheets("VBA").Cells(40, 2) = comptagevarianteB3
End If
 
'avril
If ((Sheets("Collecte AP").Cells(i, 1) = "4") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
passifvarianteB4 = passifvarianteB4 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(41, 3) = passifvarianteB4
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "4") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
ecartvarianteB4 = ecartvarianteB4 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(41, 5) = ecartvarianteB4
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "4") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteB4 = comptagevarianteB4 + 1
Sheets("VBA").Cells(41, 2) = comptagevarianteB4
End If
 
'mai
If ((Sheets("Collecte AP").Cells(i, 1) = "5") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
passifvarianteB5 = passifvarianteB5 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(42, 3) = passifvarianteB5
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "5") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
ecartvarianteB5 = ecartvarianteB5 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(42, 5) = ecartvarianteB5
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "5") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteB5 = comptagevarianteB5 + 1
Sheets("VBA").Cells(42, 2) = comptagevarianteB5
End If
 
'juin
If ((Sheets("Collecte AP").Cells(i, 1) = "6") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
passifvarianteB6 = passifvarianteB6 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(43, 3) = passifvarianteB6
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "6") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
ecartvarianteB6 = ecartvarianteB6 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(43, 5) = ecartvarianteB6
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "6") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteB6 = comptagevarianteB6 + 1
Sheets("VBA").Cells(43, 2) = comptagevarianteB6
End If
 
'juillet
If ((Sheets("Collecte AP").Cells(i, 1) = "7") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
passifvarianteB7 = passifvarianteB7 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(44, 3) = passifvarianteB7
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "7") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
ecartvarianteB7 = ecartvarianteB7 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(44, 5) = ecartvarianteB7
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "7") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteB7 = comptagevarianteB7 + 1
Sheets("VBA").Cells(44, 2) = comptagevarianteB7
End If
 
'aout
If ((Sheets("Collecte AP").Cells(i, 1) = "8") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
passifvarianteB8 = passifvarianteB8 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(45, 3) = passifvarianteB8
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "8") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
ecartvarianteB8 = ecartvarianteB8 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(45, 5) = ecartvarianteB8
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "8") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteB8 = comptagevarianteB8 + 1
Sheets("VBA").Cells(45, 2) = comptagevarianteB8
End If
 
'septembre
If ((Sheets("Collecte AP").Cells(i, 1) = "9") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
passifvarianteB9 = passifvarianteB9 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(46, 3) = passifvarianteB9
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "9") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
ecartvarianteB9 = ecartvarianteB9 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(46, 5) = ecartvarianteB9
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "9") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteB9 = comptagevarianteB9 + 1
Sheets("VBA").Cells(46, 2) = comptagevarianteB9
End If
 
'octobre
If ((Sheets("Collecte AP").Cells(i, 1) = "10") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
passifvarianteB10 = passifvarianteB10 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(47, 3) = passifvarianteB10
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "10") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
ecartvarianteB10 = ecartvarianteB10 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(47, 5) = ecartvarianteB10
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "10") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteB10 = comptagevarianteB10 + 1
Sheets("VBA").Cells(47, 2) = comptagevarianteB10
End If
 
'novembre
If ((Sheets("Collecte AP").Cells(i, 1) = "11") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
passifvarianteB11 = passifvarianteB11 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(48, 3) = passifvarianteB11
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "11") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
ecartvarianteB11 = ecartvarianteB11 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(48, 5) = ecartvarianteB11
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "11") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteB11 = comptagevarianteB11 + 1
Sheets("VBA").Cells(48, 2) = comptagevarianteB11
End If
 
'decembre
If ((Sheets("Collecte AP").Cells(i, 1) = "12") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
passifvarianteB12 = passifvarianteB12 + Sheets("Collecte AP").Cells(i, 18)
Sheets("VBA").Cells(49, 3) = passifvarianteB12
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "12") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B")) Then
ecartvarianteB12 = ecartvarianteB12 + Sheets("Collecte AP").Cells(i, 22)
Sheets("VBA").Cells(49, 5) = ecartvarianteB12
End If
 
If ((Sheets("Collecte AP").Cells(i, 1) = "12") And (Sheets("Collecte AP").Cells(i, 3) = "Variante B") And (Sheets("Collecte AP").Cells(i, 22) > "0")) Then
comptagevarianteB12 = comptagevarianteB12 + 1
Sheets("VBA").Cells(49, 2) = comptagevarianteB12
End If
 
i = i + 1
 
Wend
 
End Sub

**Ozer45** · 16/02/2012, 09h44

Salut,

Aurais-tu un fichier excel pour mieux comprendre ce que tu veux faire?

Je penses aussi que ca doit prendre du temps à executer. Il vaut mieux prioriser l'utilisation de tableau dans des cas comme ca, tu gagnes beaucoup plus de temps avec les tableaux.

Anne

**sims92.66** · 16/02/2012, 10h13

Bonjour Annie,

Merci pour ton aide.

Ci-joint le fichier xl

C mieux avec le fichier

**Ozer45** · 16/02/2012, 12h30

salut,

j'ai ouvert ton fichier mais je n'arrive pas à comprendre le fonctionnement de ta macro. Certaines colonnes sont masquées et cela n'est pas trés visible à l'oeil nu.

Donnes moi plus de details sur le calcul que tu veux effectuer. c'est quoi ton actif et ton passif et tu le recupere sur quel feuille?

j'ai commencé à simplifier ta macro mais, il me faut savoir ce que tu veux calculer exactement?

**sims92.66** · 16/02/2012, 14h18

Alors je cherche à remonter dans la feuille vba, colonne c5:c17 la somme des passifs des variante A de chaque mois, donc 12 sommes.
en c22:c33 la somme des passif variante B de chaque mois.

La colonne E remontera la somme des ecarts
La colonne B effectuera un comptage du nombre des passif different de 0 par mois.

Merci encore d'etre à mon écoute.

**gFZT82** · 16/02/2012, 20h27

Bonjour,

Voici un code qui doit te permettre d'obtenir le résultat attendu.

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
Option Explicit
Sub COMPTAGE()
Dim Ws1 As Worksheet 'Feuille "VBA"
Dim Ws2 As Worksheet 'Feuille "Collecte AP"
Dim Cel As Range, MaPlage As Range
Dim Variante As String
Dim LigneCible As Byte
'On déclare un tableau pour les 12 mois et les 3 variables (ecart, passif et comptage)
Dim LigneFin As Long
Const LigneDebut As Byte = 10
    Set Ws1 = Worksheets("VBA")
    Set Ws2 = Worksheets("Collecte AP")
    'Effacement du tableau
    Ws1.Range("B6:C17,E6:E17,B22:C33,E22:E33").ClearContents
    'Dernière ligne renseignée dans la colonne A de la feuille "Collecte AP"
    LigneFin = Ws2.Range("A" & Ws2.Rows.Count).End(xlUp).Row
    'Définition de la plage renseignée dans la colonne A de la feuille "Collecte AP"
    Set MaPlage = Ws2.Range("A" & LigneDebut & ":A" & LigneFin)
    'On passe en revue chaque cellule de la plage
    For Each Cel In MaPlage
        'On note la variante
        Variante = Cel.Offset(0, 2)
        Select Case Variante
        Case "Variante A"
            LigneCible = 5
        Case "Variante B"
            LigneCible = 21
        End Select
        'On met à jour le cumul passif dans la feuille "VBA"
        Ws1.Cells(LigneCible + Cel.Value, 3) = Ws1.Cells(LigneCible + Cel.Value, 3) + Cel.Offset(0, 17)
        'On met à jour le cumul écart dans la feuille "VBA"
        Ws1.Cells(LigneCible + Cel.Value, 5) = Ws1.Cells(LigneCible + Cel.Value, 5) + Cel.Offset(0, 21)
        'On met à jour le nombre d'UC dans la feuille "VBA"
        If Cel.Offset(0, 21) > "0" Then Ws1.Cells(LigneCible + Cel.Value, 2) = Ws1.Cells(LigneCible + Cel.Value, 2) + 1
    Next Cel
End Sub

Cordialement.