macro boucle de A à IK

**mizou00** · 27/08/2010, 15h40

Bonjour,

je voudrais utiliser une boucle qui va de A à IK
pouvé vous maider

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
 
Sub Ellipse4_Cliquer()
Dim n As Long
With Sheets("Données12")
 
'Sheets("données12").Range("A1") = Sheets("Données(1)").Range("A4")
   Sheets("Données(1)").Select
   Range("HE4:IV4").Select
   Selection.Copy
   Sheets("Données12").Select
   Range("B1:AS1").Select
   ActiveSheet.Paste
   Range("A1").Select
 
   Sheets("Données(2)").Select
   Range("A4:HC4").Select
   Selection.Copy
   Sheets("Données12").Select
   Range("AT1:IV1").Select
   ActiveSheet.Paste
   Range("A1").Select
 
   Sheets("Données12").Range("A1:A673").Value = Sheets("Données(1)").Range("A4:A676").Value
 
 
    For n = 3 To 673
 
 
        .Range("B" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("C" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("D" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("E" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("F" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("G" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("H" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("I" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("J" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("K" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("L" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("M" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("N" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("O" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("P" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("Q" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("R" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("S" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("T" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("U" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("V" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("W" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("X" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("Y" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("Z" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AA" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AB" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AC" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AD" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AE" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AF" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AG" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AH" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AI" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AJ" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AK" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AL" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AM" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AN" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AO" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AP" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AQ" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AR" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AS" & n).FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
        .Range("AT" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("AU" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("AV" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("AW" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("AX" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("AY" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("AZ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BA" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BB" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BC" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BD" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BE" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BF" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BG" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BH" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BI" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BJ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BK" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BL" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BM" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BN" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BO" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BQ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BR" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BS" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BT" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BU" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BV" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BW" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BX" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BY" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("BZ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CA" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CB" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CC" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CD" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CE" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CF" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CG" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CH" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CI" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CJ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CK" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CL" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CM" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CN" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CO" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CP" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CQ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CR" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CS" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CT" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CU" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CV" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CW" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CX" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CY" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("CZ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DA" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DB" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DC" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DD" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DE" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DF" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DG" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DH" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DI" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DJ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DK" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DL" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DM" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DN" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DO" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DP" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DQ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DR" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DS" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DT" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DU" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DV" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DW" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DX" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DY" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("DZ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
 
        .Range("EA" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EB" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EC" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("ED" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EE" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EF" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EG" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EH" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EI" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EJ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EK" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EL" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EM" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EN" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EO" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EP" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EQ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("ER" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("ES" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("ET" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EU" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EV" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EW" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EX" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EY" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("EZ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
 
        .Range("FA" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FB" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FC" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FD" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FE" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FF" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FG" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FH" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FI" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FJ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FK" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FL" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FM" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FN" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FO" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FP" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FQ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FR" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FS" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FT" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FU" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FV" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FW" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FX" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FY" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("FZ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
 
        .Range("GA" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GB" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GC" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GD" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GE" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GF" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GG" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GH" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GI" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GJ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GK" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GL" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GM" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GN" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GO" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GP" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GQ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GR" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GS" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GT" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GU" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GV" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GW" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GX" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GY" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("GZ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
 
        .Range("HA" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HB" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HC" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HD" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HE" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HF" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HG" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HH" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HI" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HJ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HK" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HL" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HM" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HN" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HO" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HP" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HQ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HR" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HS" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HT" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HU" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HV" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HW" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HX" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HY" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("HZ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
 
        .Range("IA" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("IB" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("IC" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("ID" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("IE" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("IF" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("IG" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("IH" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("II" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("IJ" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
        .Range("IK" & n).FormulaR1C1 = "='Données(2)'!R[3]C[211]-'Données(2)'!R[2]C[211]"
 
 
 
 
 
 
      Next n
 
End With
 
 
 
 
End Sub

**JeanSairien** · 27/08/2010, 15h49

Bonjour,

Utilise une double boucle For. Une boucle sur ta ligne puis une boucle sur ta colonne.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
For n = 3 to 673
 
    For m = 1 to 227
 
        Cells(n, m).Formula = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
 
    Next m
 
Next n

**mercatog** · 27/08/2010, 15h53

Sans boucles

Code :

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

1
2
3
4
5
With Sheets("Données12")
    .Range("B3").FormulaR1C1 = "='Données(1)'!R[3]C[211]-'Données(1)'!R[2]C[211]"
    .Range("B3").AutoFill .Range("B3:IK3")
    .Range("B3:IK3").AutoFill .Range("B3:IK673")
End With

macro boucle de A à IK

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager