Passage formule code vba

**Kestion100** · 11/02/2014, 19h17

Rerere bonjour,
J'ai plusieurs formules assez compliquees dans mon tableau et je voudrais trouver un code pour copier la formule de la cellule en ligne 2 sur toute la cololonne jusqu'a la ligne x.
Pour ca, ca va.
Mon souci est le passage de plusieurs formules compliquees a du code. Existe t il donc un moyen de transformer rapidement un formule contenue dans une cellule en code vba?

**electrons** · 12/02/2014, 07h45

Bonjour,

Tu pourrais utiliser du code du style:

Code :

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

Cells(1, 2) . Formula = "=COUNTIF(A1:A10,""X"")"

Dans le code ici, la cellule "B1" va contenir la formule =COUNTIF(A1:A10,"X") et affichera "le nombre de "X" qu'il y a en parcourant les cellules de "A1" à "A10". (Faire le test en mettant dans certaines cellules de A1 à A10 uniquement des X)

Bonne journée

**Kestion100** · 12/02/2014, 15h35

J'ai essayé de lancer l'enregistreur de macro, de rentrer dans la cellule, de copier/coller......ça ne marche pas pour les formules trop complexes.

Le 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
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
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
Sub REMETTRELESBONNESFORMULES()
'
' REMETTRELESBONNESFORMULES Macro
' Macro enregistrée le 12/02/2014 par
'
 
'
    Range("DD2").Select
    Range("DD3").Select
    ActiveWindow.ScrollColumn = 105
    ActiveWindow.ScrollColumn = 104
    ActiveWindow.ScrollColumn = 103
    ActiveWindow.ScrollColumn = 102
    ActiveWindow.ScrollColumn = 101
    ActiveWindow.ScrollColumn = 100
    ActiveWindow.ScrollColumn = 99
    ActiveWindow.ScrollColumn = 98
    ActiveWindow.ScrollColumn = 97
    ActiveWindow.ScrollColumn = 95
    ActiveWindow.ScrollColumn = 94
    ActiveWindow.ScrollColumn = 93
    ActiveWindow.ScrollColumn = 91
    ActiveWindow.ScrollColumn = 90
    ActiveWindow.ScrollColumn = 88
    ActiveWindow.ScrollColumn = 86
    ActiveWindow.ScrollColumn = 84
    ActiveWindow.ScrollColumn = 77
    ActiveWindow.ScrollColumn = 67
    ActiveWindow.ScrollColumn = 62
    ActiveWindow.ScrollColumn = 56
    ActiveWindow.ScrollColumn = 52
    ActiveWindow.ScrollColumn = 49
    ActiveWindow.ScrollColumn = 48
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 46
    ActiveWindow.ScrollColumn = 45
    ActiveWindow.ScrollColumn = 44
    ActiveWindow.ScrollColumn = 43
    ActiveWindow.ScrollColumn = 42
    ActiveWindow.ScrollColumn = 41
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 39
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 32
    Range("AG2").Select
    Range("AG2").Select
    Selection.Copy
    Range("AG3").Select
    ActiveWindow.SmallScroll Down:=60
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 124
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 177
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 208
    ActiveWindow.ScrollRow = 227
    ActiveWindow.ScrollRow = 248
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 267
    ActiveWindow.ScrollRow = 284
    ActiveWindow.ScrollRow = 299
    ActiveWindow.ScrollRow = 305
    ActiveWindow.ScrollRow = 311
    ActiveWindow.ScrollRow = 321
    ActiveWindow.ScrollRow = 327
    ActiveWindow.ScrollRow = 333
    ActiveWindow.ScrollRow = 340
    ActiveWindow.ScrollRow = 351
    ActiveWindow.ScrollRow = 355
    ActiveWindow.ScrollRow = 362
    ActiveWindow.ScrollRow = 367
    ActiveWindow.ScrollRow = 380
    ActiveWindow.ScrollRow = 385
    ActiveWindow.ScrollRow = 392
    ActiveWindow.ScrollRow = 404
    ActiveWindow.ScrollRow = 408
    ActiveWindow.ScrollRow = 413
    ActiveWindow.ScrollRow = 418
    ActiveWindow.ScrollRow = 426
    ActiveWindow.ScrollRow = 430
    ActiveWindow.ScrollRow = 433
    ActiveWindow.ScrollRow = 439
    ActiveWindow.ScrollRow = 442
    ActiveWindow.ScrollRow = 443
    ActiveWindow.ScrollRow = 446
    ActiveWindow.ScrollRow = 447
    ActiveWindow.ScrollRow = 448
    ActiveWindow.ScrollRow = 449
    ActiveWindow.ScrollRow = 450
    ActiveWindow.ScrollRow = 451
    ActiveWindow.ScrollRow = 453
    ActiveWindow.ScrollRow = 454
    ActiveWindow.ScrollRow = 456
    ActiveWindow.ScrollRow = 457
    ActiveWindow.ScrollRow = 458
    ActiveWindow.ScrollRow = 460
    ActiveWindow.ScrollRow = 461
    ActiveWindow.ScrollRow = 464
    ActiveWindow.ScrollRow = 465
    ActiveWindow.ScrollRow = 467
    ActiveWindow.ScrollRow = 468
    ActiveWindow.ScrollRow = 469
    ActiveWindow.ScrollRow = 470
    Range("AG3:AG500").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 468
    ActiveWindow.ScrollRow = 467
    ActiveWindow.ScrollRow = 462
    ActiveWindow.ScrollRow = 458
    ActiveWindow.ScrollRow = 450
    ActiveWindow.ScrollRow = 437
    ActiveWindow.ScrollRow = 431
    ActiveWindow.ScrollRow = 424
    ActiveWindow.ScrollRow = 410
    ActiveWindow.ScrollRow = 402
    ActiveWindow.ScrollRow = 387
    ActiveWindow.ScrollRow = 377
    ActiveWindow.ScrollRow = 356
    ActiveWindow.ScrollRow = 326
    ActiveWindow.ScrollRow = 307
    ActiveWindow.ScrollRow = 298
    ActiveWindow.ScrollRow = 281
    ActiveWindow.ScrollRow = 267
    ActiveWindow.ScrollRow = 260
    ActiveWindow.ScrollRow = 256
    ActiveWindow.ScrollRow = 242
    ActiveWindow.ScrollRow = 238
    ActiveWindow.ScrollRow = 230
    ActiveWindow.ScrollRow = 221
    ActiveWindow.ScrollRow = 214
    ActiveWindow.ScrollRow = 205
    ActiveWindow.ScrollRow = 198
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 186
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 173
    ActiveWindow.ScrollRow = 160
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 150
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 125
    ActiveWindow.ScrollRow = 110
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 41
    ActiveWindow.ScrollColumn = 43
    ActiveWindow.ScrollColumn = 48
    ActiveWindow.ScrollColumn = 53
    ActiveWindow.ScrollColumn = 58
    ActiveWindow.ScrollColumn = 68
    ActiveWindow.ScrollColumn = 72
    ActiveWindow.ScrollColumn = 74
    ActiveWindow.ScrollColumn = 75
    ActiveWindow.ScrollColumn = 76
    ActiveWindow.ScrollColumn = 78
    ActiveWindow.ScrollColumn = 80
    ActiveWindow.ScrollColumn = 81
    ActiveWindow.ScrollColumn = 82
    ActiveWindow.ScrollColumn = 83
    ActiveWindow.ScrollColumn = 84
    ActiveWindow.ScrollColumn = 85
    ActiveWindow.ScrollColumn = 86
    ActiveWindow.ScrollColumn = 87
    ActiveWindow.ScrollColumn = 88
    ActiveWindow.ScrollColumn = 89
    ActiveWindow.ScrollColumn = 90
    ActiveWindow.ScrollColumn = 91
    ActiveWindow.ScrollColumn = 92
    ActiveWindow.ScrollColumn = 93
    ActiveWindow.ScrollColumn = 94
    ActiveWindow.ScrollColumn = 95
    ActiveWindow.ScrollColumn = 96
    ActiveWindow.ScrollColumn = 97
    ActiveWindow.ScrollColumn = 98
    ActiveWindow.ScrollColumn = 99
    ActiveWindow.ScrollColumn = 100
    ActiveWindow.ScrollColumn = 101
    ActiveWindow.ScrollColumn = 102
    ActiveWindow.ScrollColumn = 103
    ActiveWindow.ScrollColumn = 104
    ActiveWindow.ScrollColumn = 105
    ActiveWindow.ScrollColumn = 106
    Range("DE2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF(AND(RC[-108]<>"""",RC[-106]=""FEMININ""),""e"",IF(AND(RC[-108]<>"""",RC[-106]=""MASCULIN""),"""",""""))"
    Range("DE3").Select
    ActiveWindow.ScrollColumn = 105
    ActiveWindow.ScrollColumn = 104
    ActiveWindow.ScrollColumn = 103
    ActiveWindow.ScrollColumn = 102
    ActiveWindow.ScrollColumn = 101
    ActiveWindow.ScrollColumn = 100
    ActiveWindow.ScrollColumn = 99
    ActiveWindow.ScrollColumn = 98
    ActiveWindow.ScrollColumn = 97
    ActiveWindow.ScrollColumn = 96
    ActiveWindow.ScrollColumn = 95
    ActiveWindow.ScrollColumn = 94
    ActiveWindow.ScrollColumn = 93
    ActiveWindow.ScrollColumn = 92
    ActiveWindow.ScrollColumn = 91
    ActiveWindow.ScrollColumn = 90
    ActiveWindow.ScrollColumn = 89
    ActiveWindow.ScrollColumn = 88
    ActiveWindow.ScrollColumn = 87
    ActiveWindow.ScrollColumn = 86
    ActiveWindow.ScrollColumn = 85
    ActiveWindow.ScrollColumn = 84
    ActiveWindow.ScrollColumn = 83
    ActiveWindow.ScrollColumn = 82
    ActiveWindow.ScrollColumn = 81
    ActiveWindow.ScrollColumn = 80
    ActiveWindow.ScrollColumn = 79
    ActiveWindow.ScrollColumn = 78
    ActiveWindow.ScrollColumn = 77
    ActiveWindow.ScrollColumn = 76
    ActiveWindow.ScrollColumn = 75
    ActiveWindow.ScrollColumn = 74
    ActiveWindow.ScrollColumn = 73
    ActiveWindow.ScrollColumn = 72
    ActiveWindow.ScrollColumn = 71
    ActiveWindow.ScrollColumn = 70
    ActiveWindow.ScrollColumn = 69
    ActiveWindow.ScrollColumn = 68
    ActiveWindow.ScrollColumn = 67
    ActiveWindow.ScrollColumn = 66
    ActiveWindow.ScrollColumn = 65
    ActiveWindow.ScrollColumn = 64
    ActiveWindow.ScrollColumn = 63
    ActiveWindow.ScrollColumn = 62
    ActiveWindow.ScrollColumn = 61
    ActiveWindow.ScrollColumn = 60
    ActiveWindow.ScrollColumn = 59
    ActiveWindow.ScrollColumn = 58
    ActiveWindow.ScrollColumn = 57
    ActiveWindow.ScrollColumn = 56
    ActiveWindow.ScrollColumn = 55
    ActiveWindow.ScrollColumn = 54
    ActiveWindow.ScrollColumn = 53
    ActiveWindow.ScrollColumn = 52
    ActiveWindow.ScrollColumn = 51
    ActiveWindow.ScrollColumn = 50
    ActiveWindow.ScrollColumn = 49
    ActiveWindow.ScrollColumn = 48
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 46
    ActiveWindow.ScrollColumn = 45
    ActiveWindow.ScrollColumn = 44
    ActiveWindow.ScrollColumn = 43
    ActiveWindow.ScrollColumn = 42
    ActiveWindow.ScrollColumn = 41
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 39
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 32
    Range("AH2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(AND(RC[-33]<>"""",RC[-31]=""FEMININ""),""e"",IF(AND(RC[-33]<>"""",RC[-31]=""MASCULIN""),"""",""""))"
    Range("AH2").Select
    Selection.Copy
    Range("AH3").Select
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 82
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 168
    ActiveWindow.ScrollRow = 174
    ActiveWindow.ScrollRow = 182
    ActiveWindow.ScrollRow = 188
    ActiveWindow.ScrollRow = 195
    ActiveWindow.ScrollRow = 210
    ActiveWindow.ScrollRow = 217
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 237
    ActiveWindow.ScrollRow = 251
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 267
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 279
    ActiveWindow.ScrollRow = 286
    ActiveWindow.ScrollRow = 303
    ActiveWindow.ScrollRow = 311
    ActiveWindow.ScrollRow = 318
    ActiveWindow.ScrollRow = 332
    ActiveWindow.ScrollRow = 347
    ActiveWindow.ScrollRow = 355
    ActiveWindow.ScrollRow = 362
    ActiveWindow.ScrollRow = 369
    ActiveWindow.ScrollRow = 380
    ActiveWindow.ScrollRow = 387
    ActiveWindow.ScrollRow = 391
    ActiveWindow.ScrollRow = 396
    ActiveWindow.ScrollRow = 404
    ActiveWindow.ScrollRow = 409
    ActiveWindow.ScrollRow = 410
    ActiveWindow.ScrollRow = 412
    ActiveWindow.ScrollRow = 413
    ActiveWindow.ScrollRow = 415
    ActiveWindow.ScrollRow = 417
    ActiveWindow.ScrollRow = 419
    ActiveWindow.ScrollRow = 420
    ActiveWindow.ScrollRow = 421
    ActiveWindow.ScrollRow = 422
    ActiveWindow.ScrollRow = 423
    ActiveWindow.ScrollRow = 424
    ActiveWindow.ScrollRow = 426
    ActiveWindow.ScrollRow = 428
    ActiveWindow.ScrollRow = 430
    ActiveWindow.ScrollRow = 432
    ActiveWindow.ScrollRow = 435
    ActiveWindow.ScrollRow = 437
    ActiveWindow.ScrollRow = 440
    ActiveWindow.ScrollRow = 444
    ActiveWindow.ScrollRow = 446
    ActiveWindow.ScrollRow = 450
    ActiveWindow.ScrollRow = 454
    ActiveWindow.ScrollRow = 455
    ActiveWindow.ScrollRow = 457
    ActiveWindow.ScrollRow = 460
    ActiveWindow.ScrollRow = 463
    ActiveWindow.ScrollRow = 465
    ActiveWindow.ScrollRow = 467
    ActiveWindow.ScrollRow = 468
    ActiveWindow.ScrollRow = 469
    ActiveWindow.ScrollRow = 470
    Range("AH3:AH500").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 469
    ActiveWindow.ScrollRow = 468
    ActiveWindow.ScrollRow = 465
    ActiveWindow.ScrollRow = 461
    ActiveWindow.ScrollRow = 456
    ActiveWindow.ScrollRow = 446
    ActiveWindow.ScrollRow = 435
    ActiveWindow.ScrollRow = 428
    ActiveWindow.ScrollRow = 406
    ActiveWindow.ScrollRow = 397
    ActiveWindow.ScrollRow = 377
    ActiveWindow.ScrollRow = 358
    ActiveWindow.ScrollRow = 348
    ActiveWindow.ScrollRow = 330
    ActiveWindow.ScrollRow = 322
    ActiveWindow.ScrollRow = 307
    ActiveWindow.ScrollRow = 299
    ActiveWindow.ScrollRow = 276
    ActiveWindow.ScrollRow = 269
    ActiveWindow.ScrollRow = 253
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 230
    ActiveWindow.ScrollRow = 216
    ActiveWindow.ScrollRow = 210
    ActiveWindow.ScrollRow = 198
    ActiveWindow.ScrollRow = 192
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 168
    ActiveWindow.ScrollRow = 157
    ActiveWindow.ScrollRow = 152
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 137
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 39
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 41
    ActiveWindow.ScrollColumn = 42
    ActiveWindow.ScrollColumn = 43
    ActiveWindow.ScrollColumn = 44
    ActiveWindow.ScrollColumn = 45
    ActiveWindow.ScrollColumn = 46
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 48
    ActiveWindow.ScrollColumn = 49
    ActiveWindow.ScrollColumn = 50
    ActiveWindow.ScrollColumn = 51
    ActiveWindow.ScrollColumn = 52
    ActiveWindow.ScrollColumn = 53
    ActiveWindow.ScrollColumn = 54
    ActiveWindow.ScrollColumn = 55
    ActiveWindow.ScrollColumn = 56
    ActiveWindow.ScrollColumn = 58
    ActiveWindow.ScrollColumn = 61
    ActiveWindow.ScrollColumn = 62
    ActiveWindow.ScrollColumn = 64
    ActiveWindow.ScrollColumn = 66
    ActiveWindow.ScrollColumn = 67
    ActiveWindow.ScrollColumn = 68
    ActiveWindow.ScrollColumn = 69
    ActiveWindow.ScrollColumn = 70
    ActiveWindow.ScrollColumn = 71
    ActiveWindow.ScrollColumn = 72
    ActiveWindow.ScrollColumn = 73
    ActiveWindow.ScrollColumn = 74
    ActiveWindow.ScrollColumn = 75
    ActiveWindow.ScrollColumn = 76
    ActiveWindow.ScrollColumn = 77
    ActiveWindow.ScrollColumn = 78
    ActiveWindow.ScrollColumn = 79
    ActiveWindow.ScrollColumn = 80
    ActiveWindow.ScrollColumn = 81
    ActiveWindow.ScrollColumn = 82
    ActiveWindow.ScrollColumn = 83
    ActiveWindow.ScrollColumn = 84
    ActiveWindow.ScrollColumn = 85
    ActiveWindow.ScrollColumn = 86
    ActiveWindow.ScrollColumn = 87
    ActiveWindow.ScrollColumn = 88
    ActiveWindow.ScrollColumn = 89
    ActiveWindow.ScrollColumn = 90
    ActiveWindow.ScrollColumn = 91
    ActiveWindow.ScrollColumn = 92
    ActiveWindow.ScrollColumn = 93
    ActiveWindow.ScrollColumn = 94
    ActiveWindow.ScrollColumn = 95
    ActiveWindow.ScrollColumn = 96
    ActiveWindow.ScrollColumn = 97
    ActiveWindow.ScrollColumn = 98
    ActiveWindow.ScrollColumn = 99
    ActiveWindow.ScrollColumn = 100
    ActiveWindow.ScrollColumn = 101
    ActiveWindow.ScrollColumn = 102
    ActiveWindow.ScrollColumn = 103
    ActiveWindow.ScrollColumn = 104
    ActiveWindow.ScrollColumn = 105
    ActiveWindow.ScrollColumn = 106
    Range("DF2").Select
    Application.CutCopyMode = False
    Range("DF3").Select
    ActiveWindow.ScrollColumn = 105
    ActiveWindow.ScrollColumn = 104
    ActiveWindow.ScrollColumn = 103
    ActiveWindow.ScrollColumn = 102
    ActiveWindow.ScrollColumn = 100
    ActiveWindow.ScrollColumn = 98
    ActiveWindow.ScrollColumn = 96
    ActiveWindow.ScrollColumn = 90
    ActiveWindow.ScrollColumn = 86
    ActiveWindow.ScrollColumn = 83
    ActiveWindow.ScrollColumn = 76
    ActiveWindow.ScrollColumn = 68
    ActiveWindow.ScrollColumn = 61
    ActiveWindow.ScrollColumn = 48
    ActiveWindow.ScrollColumn = 41
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 34
    Range("AI2").Select
    Range("AI2").Select
    Selection.Copy
    Range("AI3").Select
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 122
    ActiveWindow.ScrollRow = 174
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 238
    ActiveWindow.ScrollRow = 248
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 281
    ActiveWindow.ScrollRow = 290
    ActiveWindow.ScrollRow = 308
    ActiveWindow.ScrollRow = 313
    ActiveWindow.ScrollRow = 318
    ActiveWindow.ScrollRow = 323
    ActiveWindow.ScrollRow = 331
    ActiveWindow.ScrollRow = 336
    ActiveWindow.ScrollRow = 339
    ActiveWindow.ScrollRow = 342
    ActiveWindow.ScrollRow = 347
    ActiveWindow.ScrollRow = 351
    ActiveWindow.ScrollRow = 366
    ActiveWindow.ScrollRow = 370
    ActiveWindow.ScrollRow = 383
    ActiveWindow.ScrollRow = 389
    ActiveWindow.ScrollRow = 395
    ActiveWindow.ScrollRow = 399
    ActiveWindow.ScrollRow = 403
    ActiveWindow.ScrollRow = 410
    ActiveWindow.ScrollRow = 413
    ActiveWindow.ScrollRow = 418
    ActiveWindow.ScrollRow = 422
    ActiveWindow.ScrollRow = 427
    ActiveWindow.ScrollRow = 431
    ActiveWindow.ScrollRow = 434
    ActiveWindow.ScrollRow = 438
    ActiveWindow.ScrollRow = 440
    ActiveWindow.ScrollRow = 445
    ActiveWindow.ScrollRow = 446
    ActiveWindow.ScrollRow = 448
    ActiveWindow.ScrollRow = 450
    ActiveWindow.ScrollRow = 451
    ActiveWindow.ScrollRow = 453
    ActiveWindow.ScrollRow = 454
    ActiveWindow.ScrollRow = 457
    ActiveWindow.ScrollRow = 458
    ActiveWindow.ScrollRow = 460
    ActiveWindow.ScrollRow = 461
    ActiveWindow.ScrollRow = 462
    ActiveWindow.ScrollRow = 464
    ActiveWindow.ScrollRow = 465
    ActiveWindow.ScrollRow = 466
    ActiveWindow.ScrollRow = 467
    ActiveWindow.ScrollRow = 468
    ActiveWindow.ScrollRow = 470
    Range("AI3:AI500").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 469
    ActiveWindow.ScrollRow = 468
    ActiveWindow.ScrollRow = 465
    ActiveWindow.ScrollRow = 461
    ActiveWindow.ScrollRow = 448
    ActiveWindow.ScrollRow = 439
    ActiveWindow.ScrollRow = 419
    ActiveWindow.ScrollRow = 409
    ActiveWindow.ScrollRow = 378
    ActiveWindow.ScrollRow = 340
    ActiveWindow.ScrollRow = 298
    ActiveWindow.ScrollRow = 260
    ActiveWindow.ScrollRow = 220
    ActiveWindow.ScrollRow = 190
    ActiveWindow.ScrollRow = 167
    ActiveWindow.ScrollRow = 145
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 39
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 41
    ActiveWindow.ScrollColumn = 42
    ActiveWindow.ScrollColumn = 43
    ActiveWindow.ScrollColumn = 44
    ActiveWindow.ScrollColumn = 45
    ActiveWindow.ScrollColumn = 46
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 48
    ActiveWindow.ScrollColumn = 49
    ActiveWindow.ScrollColumn = 50
    ActiveWindow.ScrollColumn = 51
    ActiveWindow.ScrollColumn = 52
    ActiveWindow.ScrollColumn = 53
    ActiveWindow.ScrollColumn = 54
    ActiveWindow.ScrollColumn = 55
    ActiveWindow.ScrollColumn = 56
    ActiveWindow.ScrollColumn = 57
    ActiveWindow.ScrollColumn = 60
    ActiveWindow.ScrollColumn = 61
    ActiveWindow.ScrollColumn = 62
    ActiveWindow.ScrollColumn = 63
    ActiveWindow.ScrollColumn = 64
    ActiveWindow.ScrollColumn = 65
    ActiveWindow.ScrollColumn = 66
    ActiveWindow.ScrollColumn = 67
    ActiveWindow.ScrollColumn = 68
    ActiveWindow.ScrollColumn = 69
    ActiveWindow.ScrollColumn = 70
    ActiveWindow.ScrollColumn = 71
    ActiveWindow.ScrollColumn = 72
    ActiveWindow.ScrollColumn = 73
    ActiveWindow.ScrollColumn = 74
    ActiveWindow.ScrollColumn = 75
    ActiveWindow.ScrollColumn = 76
    ActiveWindow.ScrollColumn = 77
    ActiveWindow.ScrollColumn = 78
    ActiveWindow.ScrollColumn = 79
    ActiveWindow.ScrollColumn = 80
    ActiveWindow.ScrollColumn = 81
    ActiveWindow.ScrollColumn = 82
    ActiveWindow.ScrollColumn = 83
    ActiveWindow.ScrollColumn = 84
    ActiveWindow.ScrollColumn = 85
    ActiveWindow.ScrollColumn = 86
    ActiveWindow.ScrollColumn = 87
    ActiveWindow.ScrollColumn = 88
    ActiveWindow.ScrollColumn = 89
    ActiveWindow.ScrollColumn = 90
    ActiveWindow.ScrollColumn = 91
    ActiveWindow.ScrollColumn = 92
    ActiveWindow.ScrollColumn = 93
    ActiveWindow.ScrollColumn = 94
    ActiveWindow.ScrollColumn = 95
    ActiveWindow.ScrollColumn = 96
    ActiveWindow.ScrollColumn = 97
    ActiveWindow.ScrollColumn = 98
    ActiveWindow.ScrollColumn = 99
    ActiveWindow.ScrollColumn = 100
    ActiveWindow.ScrollColumn = 101
    ActiveWindow.ScrollColumn = 102
    ActiveWindow.ScrollColumn = 103
    ActiveWindow.ScrollColumn = 104
    ActiveWindow.ScrollColumn = 105
    ActiveWindow.ScrollColumn = 106
    Range("DG2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=IF(AND(RC[-110]<>"""",RC[-100]<>""""),""C/o"","""")"
    Range("DG3").Select
    ActiveWindow.ScrollColumn = 105
    ActiveWindow.ScrollColumn = 104
    ActiveWindow.ScrollColumn = 103
    ActiveWindow.ScrollColumn = 102
    ActiveWindow.ScrollColumn = 101
    ActiveWindow.ScrollColumn = 99
    ActiveWindow.ScrollColumn = 98
    ActiveWindow.ScrollColumn = 97
    ActiveWindow.ScrollColumn = 96
    ActiveWindow.ScrollColumn = 94
    ActiveWindow.ScrollColumn = 93
    ActiveWindow.ScrollColumn = 92
    ActiveWindow.ScrollColumn = 91
    ActiveWindow.ScrollColumn = 90
    ActiveWindow.ScrollColumn = 88
    ActiveWindow.ScrollColumn = 87
    ActiveWindow.ScrollColumn = 86
    ActiveWindow.ScrollColumn = 84
    ActiveWindow.ScrollColumn = 82
    ActiveWindow.ScrollColumn = 81
    ActiveWindow.ScrollColumn = 77
    ActiveWindow.ScrollColumn = 74
    ActiveWindow.ScrollColumn = 71
    ActiveWindow.ScrollColumn = 69
    ActiveWindow.ScrollColumn = 68
    ActiveWindow.ScrollColumn = 67
    ActiveWindow.ScrollColumn = 64
    ActiveWindow.ScrollColumn = 57
    ActiveWindow.ScrollColumn = 52
    ActiveWindow.ScrollColumn = 51
    ActiveWindow.ScrollColumn = 50
    ActiveWindow.ScrollColumn = 49
    ActiveWindow.ScrollColumn = 48
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 46
    ActiveWindow.ScrollColumn = 45
    ActiveWindow.ScrollColumn = 44
    ActiveWindow.ScrollColumn = 43
    ActiveWindow.ScrollColumn = 42
    ActiveWindow.ScrollColumn = 41
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 39
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 33
    Range("AJ2").Select
    ActiveCell.FormulaR1C1 = "=IF(AND(RC[-35]<>"""",RC[-25]<>""""),""C/o"","""")"
    Range("AJ2").Select
    Selection.Copy
    Range("AJ3").Select
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 113
    ActiveWindow.ScrollRow = 167
    ActiveWindow.ScrollRow = 183
    ActiveWindow.ScrollRow = 216
    ActiveWindow.ScrollRow = 244
    ActiveWindow.ScrollRow = 272
    ActiveWindow.ScrollRow = 293
    ActiveWindow.ScrollRow = 312
    ActiveWindow.ScrollRow = 326
    ActiveWindow.ScrollRow = 340
    ActiveWindow.ScrollRow = 347
    ActiveWindow.ScrollRow = 359
    ActiveWindow.ScrollRow = 373
    ActiveWindow.ScrollRow = 379
    ActiveWindow.ScrollRow = 389
    ActiveWindow.ScrollRow = 396
    ActiveWindow.ScrollRow = 402
    ActiveWindow.ScrollRow = 407
    ActiveWindow.ScrollRow = 418
    ActiveWindow.ScrollRow = 422
    ActiveWindow.ScrollRow = 428
    ActiveWindow.ScrollRow = 432
    ActiveWindow.ScrollRow = 434
    ActiveWindow.ScrollRow = 435
    ActiveWindow.ScrollRow = 439
    ActiveWindow.ScrollRow = 443
    ActiveWindow.ScrollRow = 446
    ActiveWindow.ScrollRow = 448
    ActiveWindow.ScrollRow = 450
    ActiveWindow.ScrollRow = 455
    ActiveWindow.ScrollRow = 457
    ActiveWindow.ScrollRow = 459
    ActiveWindow.ScrollRow = 461
    ActiveWindow.ScrollRow = 463
    ActiveWindow.ScrollRow = 465
    ActiveWindow.ScrollRow = 467
    ActiveWindow.ScrollRow = 469
    ActiveWindow.ScrollRow = 470
    Range("AJ3:AJ500").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollRow = 469
    ActiveWindow.ScrollRow = 468
    ActiveWindow.ScrollRow = 466
    ActiveWindow.ScrollRow = 462
    ActiveWindow.ScrollRow = 459
    ActiveWindow.ScrollRow = 448
    ActiveWindow.ScrollRow = 431
    ActiveWindow.ScrollRow = 421
    ActiveWindow.ScrollRow = 396
    ActiveWindow.ScrollRow = 371
    ActiveWindow.ScrollRow = 338
    ActiveWindow.ScrollRow = 282
    ActiveWindow.ScrollRow = 241
    ActiveWindow.ScrollRow = 205
    ActiveWindow.ScrollRow = 184
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 155
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    Range("AJ2").Select
End Sub

Hautement indigeste!!!!

LEs formules compexes sont du genre:

Code :

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

=SI(NB.SI(DONNEES!$A$2:$A$500;DONNEESADMAINSCRIRE!A2)<>0;SI(ESTNA(SI(A2<>"";DATEDIF(D2;RECHERCHE(A2;DONNEES!$A$2:$A$500;DONNEES!$E$2:$E$500);"y")&" an(s) "&DATEDIF(D1;RECHERCHE(A2;DONNEES!$A$2:$A$500;DONNEES!$E$2:$E$500);"ym")&" mois et "&DATEDIF(D2;RECHERCHE(A2;DONNEES!$A$2:$A$500;DONNEES!$E$2:$E$500);"md")&" jour(s)";""));"";SI(A2<>"";DATEDIF(D2;RECHERCHE(A2;DONNEES!$A$2:$A$500;DONNEES!$E$2:$E$500);"y")&" an(s) "&DATEDIF(D2;RECHERCHE(A2;DONNEES!$A$2:$A$500;DONNEES!$E$2:$E$500);"ym")&" mois et "&DATEDIF(D2;RECHERCHE(A2;DONNEES!$A$2:$A$500;DONNEES!$E$2:$E$500);"md")&" jour(s)";""));"")

ou:

Code :

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

=SI(ESTNA(SI(BF2="OUI";LIEN_HYPERTEXTE("mailto:"&RECHERCHE(AS2;DONNEESLISTES!$A$2:$A$239;DONNEESLISTES!$L$2:$L$239)&","&LIEN_HYPERTEXTE(BG2)&","&RECHERCHE(AF2;DONNEESLISTES!$T$2:$T$10;DONNEESLISTES!$AD$2:$AD$10));""));"";SI(BF2="OUI";LIEN_HYPERTEXTE(CB2)&","&LIEN_HYPERTEXTE(BG2)&","&LIEN_HYPERTEXTE(RECHERCHE(AF2;DONNEESLISTES!$T$2:$T$10;DONNEESLISTES!$AD$2:$AD$10));""))

En fait, je fait un tri sur mes colonnes et tout a tendence à bouger, s'il m'était possible de stocker ces formules hors de la zone de tri et de les copier/coller sans bouger les références relativs ça serait pas mal.
J'aurai du mal à reprendre toutes mes références sur 500 lignes sans pouvoir faire de copier/coller à cause des références absolues....

Ou alors une autre façon de faire?

**electrons** · 12/02/2014, 18h01

Rebonjour,

Je suis sur un Apple, pas d'excel donc...

J'ai pu solutionner le même genre de problème dans une boucle qui me copie une formule que j'ai inscrite dans un "StringVariable" avec aussi bien des références Absolues que Relatives.
J'ai utilisé le code Cells(X,Y).FormulaLocal = StringVariable. Dès que j'ai la possibilité, je te communique la fonction avec la méthode utilisée pour copier la formule qui est valable dans mon cas pour 12 feuilles différentes et environ 30 lignes par feuille. Le plus dur est de tout mettre dans le "StringVariable".

Je vais me communiquer sur un PC windows.

A+

**Kestion100** · 12/02/2014, 18h15

Merci

**electrons** · 12/02/2014, 18h20

Rebonjour,

Voici la fonction dont je te parlais:

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
Sub RemplacementHrJour(JrMois As Integer, ClCal As String)
 
'ecriture de la formule a partir de E6 pour le nombre de heures
'
Dim LgDepart As Integer
Dim i As Integer
Dim LgCal As Integer
Dim Teststr As String
Dim CelCalcul As String
Dim Compteur As Integer
Dim CptStr As String
 
LgDepart = 5
LgCal = 2
 
For i = 1 To JrMois
 
    Compteur = LgDepart + i
 
    CptStr = CStr(Compteur)
 
    CelCalcul = "=1;D" + CptStr + "-B" + CptStr + "-C" + CptStr + ";DonneesPerso!E4);"""")" 'Premier String pour meilleur visibilité
    Teststr = "=SI(B" + CptStr + "<" + ">""""" + ";SI(Calendrier!" + ClCal + CStr(LgCal) + CelCalcul
 
    'Cells(Compteur, 5).FormulaLocal = "=SI(B" & Compteur & "<>"""";DonneesPerso!E4;"""")"
 
    Cells(Compteur, 5).FormulaLocal = Teststr
 
    LgCal = LgCal + 1
 
Next i
 
End Sub

Ce code me permet de copier le "String" des cellules E6 jusque E... J'utilise "CStr(Compteur) pour ajouter la valeur dans le String.
Ceci est un exemple je pense qui pourrais t'inspirer.

L'appel de la fct est :

Code :

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

Call RemplacementHrJour(31, "O")

Bon travail

Michel

**Kestion100** · 12/02/2014, 18h28

Ok, peux tu me donner la formule d'origine s'il te plait.
Pourrais tu me donner juste l'exemple de base avec A3=A2+A1 par exemple?

**electrons** · 12/02/2014, 18h30

C' est encore moi:

j'ai oublié de te mettre la formule qui est céée automatiquement dans la cellule E6 d'une feuille et jusque E36

Code :

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

=IF(B6<>"";IF(Calendrier!O2=1;D6-B6-C6;DonneesPerso!E4);"")

Les 6 passe en 7 pour E7 etc......

Voila, la balle est dans ton camp.

Bonne soirée.

Michel

**Kestion100** · 12/02/2014, 18h35

Existe t il un moyen de connaitre les syntaxes des codes equivalents au formules (par exemple recherche et lien hypertext mailto?

Ok oui, c'est plus parlant

**electrons** · 12/02/2014, 19h28

Bonsoir,

Je viens de me connecter, je remarque que le code transmis de la formule est avec des "IF".
En réalité, c'est excel qui transforme automatiquement la formule écrite en fonction de la langue et l'ordi que j'ai pris pour te communiquer la fonction et le résultat de la fonction est avec un excel en anglais, les "Si" du string créé sont transformés automatiquement en "IF".

Pour ton problème, tu pourrais envisager de créer une fonction comme la mienne que j'appelle en changeant le paramètre "O" en "P" puis en "q"

Code :

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

Call RemplacementHrJour(30, "P")

J'espère avoir pu t'aider à solutionner ton problème.

Michel

**Kestion100** · 12/02/2014, 19h57

Ton dernier message m'a un peu perdu en fait.
Ton code inscrit la formule que tu as postee et la multiplie dans les cellule? C'est bien ca?
Les notions de temps et de remplacement me perdent un peu aussi tout comme ta toute derniere phrase sur les parametres d'ou ma demande d'un exemple bateau, je ne suis un professionnel de l'info bienque j'essaie d'automatiser au max mon boulot

**electrons** · 13/02/2014, 10h16

Bonjour,

Pour résumer:

Pour l'appel de la Fonction "RemplacementHrJour", je transmets en paramètre le nombre de jours par mois (ex : 30) et l'autre paramètre (ex: "O") qui
correspond à la colonne d'une autre Feuille. l'appel est : "Call RemplacementHrJour(30, "O")" Ceci juste pour te montrer comment écrire ta fonction et l'appel de cette fonction.
Dans la fonction, j'utilise le paramètre transmis (ici "30") dans la boucle "FOR i = 1 to JrMois" (JrMois = 30).
Je crée le "String" qui correspond à la formule que je désire mettre dans les cellules.
Le code suivant transforme "Compteur" qui est en "Integer" en "String" en créant la variable "CptStr" qui est le caractère correspondant. (6 Integer en 6 Caractère)

Code :

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

CptStr = CStr(Compteur)

le Code suivant est une partie de la formule que je crée avant pour plus de visibilité, cette chaîne sera ajoutée à la fin du String complet

Code :

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

CelCalcul = "=1;D" + CptStr + "-B" + CptStr + "-C" + CptStr + ";DonneesPerso!E4);"""")" "

Correspond à (si Compteur = 6 donc CptStr = 6):

Code :

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

=1;D6-B6-C6;DonneesPerso!E4);"")

(DonneesPerso!E4 est la référence de la cellule E4 de la feuille "DonneesPerso")
ensuite, je crée le "String" : Tessrtr :

Code :

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

Teststr = "=SI(B" + CptStr + "<" + ">""""" + ";SI(Calendrier!" + ClCal + CStr(LgCal) + CelCalcul

(J'ajoute la partie de la formule déjà créée CelCalcul)

Il correspond à :

Code :

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

=SI(B6<>"";SI(Calendrier!O2=1;D6-B6-C6;DonneesPerso!E4);"")

(Calendrier!O le "O" est l'autre paramètre transmis dans le "Call..."

Je vais écrire la première formule dans la cellule "E" de la feuille courante à la ligne 6 donc en E6. lors du premier "FOR":

Code :

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

Cells(Compteur, 5).FormulaLocal = Teststr

Ici, "Compteur est = à 6 donc la ligne 6 et 5 est la colonne E
Ensuite, j'arrive au "Next i" Compteur va passer à 7, donc ma formule sera :

Code :

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

=SI(B7<>"";SI(Calendrier!O3=1;D7-B7-C7;DonneesPerso!E4;""))

(petit détail le O2 est passé en O3 (voir la fonction)
Cette formule sera alors copiiée en "E7" car dans

Code :

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

Cells(Compteur, 5)

Compteur = 7
et ainsi de suite. (Donc ici, je vais remplir les cellule de E6 à E36 avec la fomule ad hoc:
En E6 :

Code :

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

=SI(B6<>"";SI(Calendrier!O2=1;D6-B6-C6;DonneesPerso!E4);"")

en E36 :

Code :

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

=SI(B36<>"";SI(Calendrier!O32=1;D36-B36-C36;DonneesPerso!E4);"")

Voila, j'espère que tu comprends mieux le fonctionnement de l'écriture du string que tu n'as plus qu'à adapter a tes formules complexes.
N'hésites pas à me laisser un message si ce n'est toujours pas clair pour toi.

Bonne journée.

**Kestion100** · 13/02/2014, 20h57

Ok c'est plus clair, je vais faire tourner et adapter

Je dois trouver un lexique des formules en code vba pour mettre dans les pas de ton code

J'ai copier coller ton code dans un module et excel ne le voit pas quand je demande a lancer une macro, aucune trace?

J'ai essayé de traduire mon code avec l'enregistreur de macro pour l'instant, ce qui est très fastidieux:

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
 
Sub Macro2()
'
' Macro2 Macro
'
 
'
    ActiveCell.FormulaR1C1 = _
        "=IF(ISNA(HYPERLINK(""mailto""&LOOKUP(RC[1],Feuil2!R[-1]C:RC,Feuil2!R[-1]C[1]:RC[1]))),"""",HYPERLINK(""mailto""&LOOKUP(RC[1],Feuil2!R[-1]C:RC,Feuil2!R[-1]C[1]:RC[1])))"
    Range("A3").Select
    ActiveWorkbook.Save
    Sheets("Feuil1").Select
    Range("A1").Select
End Sub
 
Sub Macro3()
'
' Macro3 Macro
'
 
'
    Range("A1").Select
    Selection.Copy
    Range("A2:A30").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    Sheets("Feuil1").Select
End Sub
Sub Macro4()
Macro2
Macro3
End Sub

Et encore c'est simplifié par rapport au vrai cas.

Les références R[] C [] ne me paraissent pas des plus simples, il ne faut pas s'y perdre.

En plus, je crois que je viens de comprendre qu'il faut que le curseur soit au bon emplacement au lancement de la macro, je l'ai lancé avec le curseur sur une autre cellule et j'ai droit aux ref....

J'ai lancé l'enregistreur de macro sur l'une des vraies formules, ce qui donne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub LAFORMULEENBN2EST()
'
' LAFORMULEENBN2EST Macro
'
 
'
    Range("BN18").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISNA(IF(RC[-8]=""OUI"",HYPERLINK(""mailto:""&LOOKUP(RC[-21],DONNEESLISTES!R2C1:R239C1,DONNEESLISTES!R2C12:R239C12)&"",""&HYPERLINK(RC[-7])&"",""&LOOKUP(RC[-34],DONNEESLISTES!R2C20:R10C20,DONNEESLISTES!R2C30:R10C30)),"""")),"""",IF(RC[-8]=""OUI"",HYPERLINK(RC[14])&"",""&HYPERLINK(RC[-7])&"",""&HYPERLINK(LOOKUP(RC[-34],DONNEESLISTES!R2C20:R10C20,DONNEESLISTES!R2C3" & _
        ")),""""))"
    Range("BN19").Select
End Sub

Je ne sais pas ce qui est en référence relative ou absolue.

La formule d'origine était:

Code :

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

=SI(ESTNA(SI(BF18="OUI";LIEN_HYPERTEXTE("mailto:"&RECHERCHE(AS18;DONNEESLISTES!$A$2:$A$239;DONNEESLISTES!$L$2:$L$239)&","&LIEN_HYPERTEXTE(BG18)&","&RECHERCHE(AF18;DONNEESLISTES!$T$2:$T$10;DONNEESLISTES!$AD$2:$AD$10));""));"";SI(BF18="OUI";LIEN_HYPERTEXTE(CB18)&","&LIEN_HYPERTEXTE(BG18)&","&LIEN_HYPERTEXTE(RECHERCHE(AF18;DONNEESLISTES!$T$2:$T$10;DONNEESLISTES!$AD$2:$AD$10));""))

Sinon, est ce que je peux transformer la formle d'origine après le "=" en texte dans un autre formule au loin puis, par une marco, copier ce texte, sélectionner la cellule BN2, y inscrire le "=" et copier le texte, le tout en espérant avoir une cellule BN2 active à la sortie?

Ou, carrément, en m'inspirant de ton code, sotcker dans une macro la formule d'origine sous forme de string et, par la macro, dire à excel de l'inscrire dans la cellule BN2.

La finalité de la chose étant de copier/coller ensuite la formule de BN3 à BN500 en formule seule.

J'ai essayé:

Code :

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

1
2
3
4
5
6
Sub INSCRIRELESFORMULES()
Range("DD3").Select
Range("DD3").Value = " = " & Range("DD2").Value
Range("DD3").Select
 
End Sub

Avec, en DD2:

Code :

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

SI(NB.SI(DONNEES!$A$2:$A$500;DONNEESADMAINSCRIRE!A2)<>0;SI(ESTNA(SI(A2<>"";DATEDIF(D2;RECHERCHE(A2;DONNEES!$A$2:$A$500;DONNEES!$E$2:$E$500);"y")&" an(s) "&DATEDIF(D1;RECHERCHE(A2;DONNEES!$A$2:$A$500;DONNEES!$E$2:$E$500);"ym")&" mois et "&DATEDIF(D2;RECHERCHE(A2;DONNEES!$A$2:$A$500;DONNEES!$E$2:$E$500);"md")&" jour(s)";""));"";SI(A2<>"";DATEDIF(D2;RECHERCHE(A2;DONNEES!$A$2:$A$500;DONNEES!$E$2:$E$500);"y")&" an(s) "&DATEDIF(D2;RECHERCHE(A2;DONNEES!$A$2:$A$500;DONNEES!$E$2:$E$500);"ym")&" mois et "&DATEDIF(D2;RECHERCHE(A2;DONNEES!$A$2:$A$500;DONNEES!$E$2:$E$500);"md")&" jour(s)";""));"")

Mais apparamment, le "=" est entouré d'espace et quand je les supprime du code, excel n'en veut plus....

Il semble qu'il faille régler au passage le souci de la différencede language entre:

Code :

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

1
2
3
ActiveCell.FormulaR1C1 = _
        "=IF(ISNA(IF(RC[-8]=""OUI"",HYPERLINK(""mailto:""&LOOKUP(RC[-21],DONNEESLISTES!R2C1:R239C1,DONNEESLISTES!R2C12:R239C12)&"",""&HYPERLINK(RC[-7])&"",""&LOOKUP(RC[-34],DONNEESLISTES!R2C20:R10C20,DONNEESLISTES!R2C30:R10C30)),"""")),"""",IF(RC[-8]=""OUI"",HYPERLINK(RC[14])&"",""&HYPERLINK(RC[-7])&"",""&HYPERLINK(LOOKUP(RC[-34],DONNEESLISTES!R2C20:R10C20,DONNEESLISTES!R2C3" & _
        ")),""""))"

Et:

Code :

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

SI(NB.SI(DONNEES!$A$2:$A$500;DONNEESADMAINSCRIRE!A2)<>0;SI(ESTNA(SI(A2<>"";DATEDIF(D2;RECHERCHE(A2;DONNEES!$A$2:$A$500;DONNEES

?????????????????

**Kestion100** · 14/02/2014, 13h32

J'essaie tout, faute d'arriver à faire tourner ton 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
Sub INSCRIRELESFORMULES()
Dim Formula As String, Formula2 As String
 
Formula2 = Range("DD2").Value
 Formula = Range("DC3").Value
        Range("DD3").Select
 
ActiveCell.FormulaR1C1 = Formula & Formula2
 
 
         Range("DD3").Select
 
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub MacroEGALETFORMULE()
'
' MacroEGALETFORMULE Macro
'
 
'
 
    Range("DD3").Select
 
    ActiveCell.FormulaR1C1 = "=RC[-1]&R[-1]C"
    Range("DD3").Select
End Sub

Avec = en DC3 et ma formule vue plus haut en DD2, pour un résultat en DD3

Passage formule code vba

Macros et VBA Excel

Discussions similaires

Partager

Partager