RANGE qui ne fonctionne pas totalement

**Eric26** · 21/02/2011, 16h45

Salut,

J'ai 12 tableaux correspondant aux mois de l'année suivant le modèle ci-dessous où début et fin correspondent à des horaires au format nombre

août 2011 Début Fin
lundi 01
mardi 02
merc 03
jeudi 04
vend 05
sam 06
dim 07
lundi 08
mardi 09
merc 10
jeudi 11
vend 12
sam 13
dim 14
lundi 15
mardi 16
mer 17
jeudi 18
ven 19
sam 20
dim 21
lundi 22
mardi 23
merc 24
jeudi 25
vendr 26
sam 27
dim 28
lundi 29
mardi 30
mer 31

Afin de remplir automatiquement les cellules "Début" et "Fin", j'ai fais (on m'a aidé à faire) une formule pour recopier des valeurs contenues dans une autre feuille. la voici :

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
Sub Macro()
 
  For i = 5 To 35
 
  If Range("A" & i).Value <> "" Then
 
        'lundi
        If Weekday(Range("A" & i).Value, vbMonday) = 1 Then
        Range("D" & i).Value = Range("data!B3").Value
        Range("E" & i).Value = Range("data!C3").Value
        Range("F" & i).Value = Range("data!D3").Value
        Range("G" & i).Value = Range("data!E3").Value
        Range("H" & i).Value = Range("data!F3").Value
        Range("I" & i).Value = Range("data!G3").Value
        End If
 
        'mardi
        If Weekday(Range("A" & i).Value, vbMonday) = 2 Then
        Range("D" & i).Value = Range("data!B4").Value
        Range("E" & i).Value = Range("data!C4").Value
        Range("F" & i).Value = Range("data!D4").Value
        Range("G" & i).Value = Range("data!E4").Value
        Range("H" & i).Value = Range("data!F4").Value
        Range("I" & i).Value = Range("data!G4").Value
        End If
 
        'mercredi
        If Weekday(Range("A" & i).Value, vbMonday) = 3 Then
        Range("D" & i).Value = Range("data!B5").Value
        Range("E" & i).Value = Range("data!C5").Value
        Range("F" & i).Value = Range("data!D5").Value
        Range("G" & i).Value = Range("data!E5").Value
        Range("H" & i).Value = Range("data!F5").Value
        Range("I" & i).Value = Range("data!G5").Value
        End If
 
        'jeudi
        If Weekday(Range("A" & i).Value, vbMonday) = 4 Then
        Range("D" & i).Value = Range("data!B6").Value
        Range("E" & i).Value = Range("data!C6").Value
        Range("F" & i).Value = Range("data!D6").Value
        Range("G" & i).Value = Range("data!E6").Value
        Range("H" & i).Value = Range("data!F6").Value
        Range("I" & i).Value = Range("data!G6").Value
        End If
 
        'vendredi
        If Weekday(Range("A" & i).Value, vbMonday) = 5 Then
        Range("D" & i).Value = Range("data!B7").Value
        Range("E" & i).Value = Range("data!C7").Value
        Range("F" & i).Value = Range("data!D7").Value
        Range("G" & i).Value = Range("data!E7").Value
        Range("H" & i).Value = Range("data!F7").Value
        Range("I" & i).Value = Range("data!G7").Value
        End If
 
        'samedi
        If Weekday(Range("A" & i).Value, vbMonday) = 6 Then
        Range("D" & i).Value = Range("data!B8").Value
        Range("E" & i).Value = Range("data!C8").Value
        Range("F" & i).Value = Range("data!D8").Value
        Range("G" & i).Value = Range("data!E8").Value
        Range("H" & i).Value = Range("data!F8").Value
        Range("I" & i).Value = Range("data!G8").Value
        End If
 
        'dimanche
        If Weekday(Range("A" & i).Value, vbMonday) = 7 Then
        Range("D" & i).Value = Range("data!B9").Value
        Range("E" & i).Value = Range("data!C9").Value
        Range("F" & i).Value = Range("data!D9").Value
        Range("G" & i).Value = Range("data!E9").Value
        Range("H" & i).Value = Range("data!F9").Value
        Range("I" & i).Value = Range("data!G9").Value
        End If
 
 
  End If
  Next i
 
End Sub

où 35 correspond dans mes tableaux au 31ème jour du mois.

Tout fonctionne bien sauf que la fonction ne remplit par le 31ème jour du mois justement.

Si quelqu'un a une idée, je suis preneur.

Merci

**tedo01** · 21/02/2011, 16h53

Bonjour,
Je ne vois pas ce qui peut poser problème, un petit exemple peut-être ?

**Eric26** · 22/02/2011, 09h45

salut tedo01

si si y'a un problème comme tu pourras le constater sur l'exemple ci dessous :

cliques sur l'onglet "bouton" et tu verras que pour la ligne 35, 2 tableaux ne sont pas remplis (il s'agit du samedi 31 mars et du jeudi 31 mai)

Je ne comprends pas du tout

en tout cas merci

**Godzestla** · 22/02/2011, 10h08

Bonjour Eric26,

en cherchant 5 secondes l'erreur est évidente.
Regarde le code ici :

Code :

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

  If Range("A" & i).Value <> "" And Range("Y" & i).Value <> "" And Range("AW" & i).Value <> "" Then

et regarde en Y35. BingO.

Donc, ta logique est à revoir car tous les mois n'ont pas 31 jours et donc il faut traiter 1 mois à la fois et pas 3.

De plus ton code est très lent pour cause de réaffichage.

Met ceci au début :

Code :

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

  Application.ScreenUpdating = False

et ceci à la fin.

Code :

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

  Application.ScreenUpdating = True

Ensuite tu peux simplifier lourdement.

Laisse moi qq minutes pour regarder cela.

---------Edit------------------

Voilà.

J'ai simplifié. On peut encore faire mieux mais j'arrête là.

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
Sub Macro()
  Dim val_a As Integer
  Dim val_y As Integer
  Dim val_aw As Integer
 
 
  Application.ScreenUpdating = False
  For i = 5 To 36
 
 
  With Range("A" & i)
    If .Value <> "" Then
       'lundi au dimanche
        val_a = Weekday(.Value, vbMonday)
        Range("D" & i).Value = Range("data!B" & val_a + 2).Value
        Range("E" & i).Value = Range("data!C" & val_a + 2).Value
        Range("F" & i).Value = Range("data!D" & val_a + 2).Value
        Range("G" & i).Value = Range("data!E" & val_a + 2).Value
        Range("H" & i).Value = Range("data!F" & val_a + 2).Value
        Range("I" & i).Value = Range("data!G" & val_a + 2).Value
    End If
  End With
 
  With Range("Y" & i)
    If .Value <> "" Then
       'lundi au dimanche
        val_y = Weekday(.Value, vbMonday)
        Range("AB" & i).Value = Range("data!B" & val_y + 2).Value
        Range("AC" & i).Value = Range("data!C" & val_y + 2).Value
        Range("AD" & i).Value = Range("data!D" & val_y + 2).Value
        Range("AE" & i).Value = Range("data!E" & val_y + 2).Value
        Range("AF" & i).Value = Range("data!F" & val_y + 2).Value
        Range("AG" & i).Value = Range("data!G" & val_y + 2).Value
     End If
  End With
 
   With Range("AW" & i)
    If .Value <> "" Then
       'lundi au dimanche
        val_aw = Weekday(.Value, vbMonday)
 
        Range("AZ" & i).Value = Range("data!B" & val_aw + 2).Value
        Range("BA" & i).Value = Range("data!C" & val_aw + 2).Value
        Range("BB" & i).Value = Range("data!D" & val_aw + 2).Value
        Range("BC" & i).Value = Range("data!E" & val_aw + 2).Value
        Range("BD" & i).Value = Range("data!F" & val_aw + 2).Value
        Range("BE" & i).Value = Range("data!G" & val_aw + 2).Value
    End If
 End With
 
 
  Application.ScreenUpdating = true
 
 
  Next i
 
End Sub

**Eric26** · 22/02/2011, 14h37

Ouaaaahhh!!!

Niquel la rapidité avec ta formule à mettre au début et à la fin

merci Godzestla

ça marche

en fait j'avais trouvé autre chose, mais ta solution est plus claire.

Voilà ce que j'avais trouvé pour contourner le pb :

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
Sub Macro()
Application.ScreenUpdating = False
 
  For i = 5 To 36
 
  If Range("A" & i).Value <> "" Then
 
        'lundi
        If Weekday(Range("A" & i).Value, vbMonday) = 1 Then
        Range("D" & i).Value = Range("data!B3").Value
        Range("E" & i).Value = Range("data!C3").Value
        Range("F" & i).Value = Range("data!D3").Value
        Range("G" & i).Value = Range("data!E3").Value
        Range("H" & i).Value = Range("data!F3").Value
        Range("I" & i).Value = Range("data!G3").Value
        End If
 
 
        'mardi
        If Weekday(Range("A" & i).Value, vbMonday) = 2 Then
        Range("D" & i).Value = Range("data!B4").Value
        Range("E" & i).Value = Range("data!C4").Value
        Range("F" & i).Value = Range("data!D4").Value
        Range("G" & i).Value = Range("data!E4").Value
        Range("H" & i).Value = Range("data!F4").Value
        Range("I" & i).Value = Range("data!G4").Value
        End If
 
 
        'mercredi
        If Weekday(Range("A" & i).Value, vbMonday) = 3 Then
        Range("D" & i).Value = Range("data!B5").Value
        Range("E" & i).Value = Range("data!C5").Value
        Range("F" & i).Value = Range("data!D5").Value
        Range("G" & i).Value = Range("data!E5").Value
        Range("H" & i).Value = Range("data!F5").Value
        Range("I" & i).Value = Range("data!G5").Value
        End If
 
 
        'jeudi
        If Weekday(Range("A" & i).Value, vbMonday) = 4 Then
        Range("D" & i).Value = Range("data!B6").Value
        Range("E" & i).Value = Range("data!C6").Value
        Range("F" & i).Value = Range("data!D6").Value
        Range("G" & i).Value = Range("data!E6").Value
        Range("H" & i).Value = Range("data!F6").Value
        Range("I" & i).Value = Range("data!G6").Value
        End If
 
 
        'vendredi
        If Weekday(Range("A" & i).Value, vbMonday) = 5 Then
        Range("D" & i).Value = Range("data!B7").Value
        Range("E" & i).Value = Range("data!C7").Value
        Range("F" & i).Value = Range("data!D7").Value
        Range("G" & i).Value = Range("data!E7").Value
        Range("H" & i).Value = Range("data!F7").Value
        Range("I" & i).Value = Range("data!G7").Value
        End If
 
 
        'samedi
        If Weekday(Range("A" & i).Value, vbMonday) = 6 Then
        Range("D" & i).Value = Range("data!B8").Value
        Range("E" & i).Value = Range("data!C8").Value
        Range("F" & i).Value = Range("data!D8").Value
        Range("G" & i).Value = Range("data!E8").Value
        Range("H" & i).Value = Range("data!F8").Value
        Range("I" & i).Value = Range("data!G8").Value
        End If
 
        'dimanche
        If Weekday(Range("A" & i).Value, vbMonday) = 7 Then
        Range("D" & i).Value = Range("data!B9").Value
        Range("E" & i).Value = Range("data!C9").Value
        Range("F" & i).Value = Range("data!D9").Value
        Range("G" & i).Value = Range("data!E9").Value
        Range("H" & i).Value = Range("data!F9").Value
        Range("I" & i).Value = Range("data!G9").Value
        End If
 
 
  End If
 
 
 
 
  If Range("Y" & i).Value <> "" Then
 
        'lundi
 
        If Weekday(Range("Y" & i).Value, vbMonday) = 1 Then
        Range("AB" & i).Value = Range("data!B3").Value
        Range("AC" & i).Value = Range("data!C3").Value
        Range("AD" & i).Value = Range("data!D3").Value
        Range("AE" & i).Value = Range("data!E3").Value
        Range("AF" & i).Value = Range("data!F3").Value
        Range("AG" & i).Value = Range("data!G3").Value
        End If
 
 
        'mardi
 
        If Weekday(Range("Y" & i).Value, vbMonday) = 2 Then
        Range("AB" & i).Value = Range("data!B4").Value
        Range("AC" & i).Value = Range("data!C4").Value
        Range("AD" & i).Value = Range("data!D4").Value
        Range("AE" & i).Value = Range("data!E4").Value
        Range("AF" & i).Value = Range("data!F4").Value
        Range("AG" & i).Value = Range("data!G4").Value
        End If
 
 
        'mercredi
 
        If Weekday(Range("Y" & i).Value, vbMonday) = 3 Then
        Range("AB" & i).Value = Range("data!B5").Value
        Range("AC" & i).Value = Range("data!C5").Value
        Range("AD" & i).Value = Range("data!D5").Value
        Range("AE" & i).Value = Range("data!E5").Value
        Range("AF" & i).Value = Range("data!F5").Value
        Range("AG" & i).Value = Range("data!G5").Value
        End If
 
        'jeudi
 
 
        If Weekday(Range("Y" & i).Value, vbMonday) = 4 Then
        Range("AB" & i).Value = Range("data!B6").Value
        Range("AC" & i).Value = Range("data!C6").Value
        Range("AD" & i).Value = Range("data!D6").Value
        Range("AE" & i).Value = Range("data!E6").Value
        Range("AF" & i).Value = Range("data!F6").Value
        Range("AG" & i).Value = Range("data!G6").Value
        End If
 
 
        'vendredi
 
 
        If Weekday(Range("Y" & i).Value, vbMonday) = 5 Then
        Range("AB" & i).Value = Range("data!B7").Value
        Range("AC" & i).Value = Range("data!C7").Value
        Range("AD" & i).Value = Range("data!D7").Value
        Range("AE" & i).Value = Range("data!E7").Value
        Range("AF" & i).Value = Range("data!F7").Value
        Range("AG" & i).Value = Range("data!G7").Value
        End If
 
        'samedi
 
        If Weekday(Range("Y" & i).Value, vbMonday) = 6 Then
        Range("AB" & i).Value = Range("data!B8").Value
        Range("AC" & i).Value = Range("data!C8").Value
        Range("AD" & i).Value = Range("data!D8").Value
        Range("AE" & i).Value = Range("data!E8").Value
        Range("AF" & i).Value = Range("data!F8").Value
        Range("AG" & i).Value = Range("data!G8").Value
        End If
 
 
        'dimanche
 
 
        If Weekday(Range("Y" & i).Value, vbMonday) = 7 Then
        Range("AB" & i).Value = Range("data!B9").Value
        Range("AC" & i).Value = Range("data!C9").Value
        Range("AD" & i).Value = Range("data!D9").Value
        Range("AE" & i).Value = Range("data!E9").Value
        Range("AF" & i).Value = Range("data!F9").Value
        Range("AG" & i).Value = Range("data!G9").Value
        End If
 
 
  End If
 
 
  If Range("AW" & i).Value <> "" Then
 
        'lundi
 
 
        If Weekday(Range("AW" & i).Value, vbMonday) = 1 Then
        Range("AZ" & i).Value = Range("data!B3").Value
        Range("BA" & i).Value = Range("data!C3").Value
        Range("BB" & i).Value = Range("data!D3").Value
        Range("BC" & i).Value = Range("data!E3").Value
        Range("BD" & i).Value = Range("data!F3").Value
        Range("BE" & i).Value = Range("data!G3").Value
        End If
 
        'mardi
 
        If Weekday(Range("AW" & i).Value, vbMonday) = 2 Then
        Range("AZ" & i).Value = Range("data!B4").Value
        Range("BA" & i).Value = Range("data!C4").Value
        Range("BB" & i).Value = Range("data!D4").Value
        Range("BC" & i).Value = Range("data!E4").Value
        Range("BD" & i).Value = Range("data!F4").Value
        Range("BE" & i).Value = Range("data!G4").Value
        End If
 
        'mercredi
 
        If Weekday(Range("AW" & i).Value, vbMonday) = 3 Then
        Range("AZ" & i).Value = Range("data!B5").Value
        Range("BA" & i).Value = Range("data!C5").Value
        Range("BB" & i).Value = Range("data!D5").Value
        Range("BC" & i).Value = Range("data!E5").Value
        Range("BD" & i).Value = Range("data!F5").Value
        Range("BE" & i).Value = Range("data!G5").Value
        End If
 
        'jeudi
 
        If Weekday(Range("AW" & i).Value, vbMonday) = 4 Then
        Range("AZ" & i).Value = Range("data!B6").Value
        Range("BA" & i).Value = Range("data!C6").Value
        Range("BB" & i).Value = Range("data!D6").Value
        Range("BC" & i).Value = Range("data!E6").Value
        Range("BD" & i).Value = Range("data!F6").Value
        Range("BE" & i).Value = Range("data!G6").Value
        End If
 
        'vendredi
 
 
        If Weekday(Range("AW" & i).Value, vbMonday) = 5 Then
        Range("AZ" & i).Value = Range("data!B7").Value
        Range("BA" & i).Value = Range("data!C7").Value
        Range("BB" & i).Value = Range("data!D7").Value
        Range("BC" & i).Value = Range("data!E7").Value
        Range("BD" & i).Value = Range("data!F7").Value
        Range("BE" & i).Value = Range("data!G7").Value
        End If
 
        'samedi
 
        If Weekday(Range("AW" & i).Value, vbMonday) = 6 Then
        Range("AZ" & i).Value = Range("data!B8").Value
        Range("BA" & i).Value = Range("data!C8").Value
        Range("BB" & i).Value = Range("data!D8").Value
        Range("BC" & i).Value = Range("data!E8").Value
        Range("BD" & i).Value = Range("data!F8").Value
        Range("BE" & i).Value = Range("data!G8").Value
        End If
 
        'dimanche
 
        If Weekday(Range("AW" & i).Value, vbMonday) = 7 Then
        Range("AZ" & i).Value = Range("data!B9").Value
        Range("BA" & i).Value = Range("data!C9").Value
        Range("BB" & i).Value = Range("data!D9").Value
        Range("BC" & i).Value = Range("data!E9").Value
        Range("BD" & i).Value = Range("data!F9").Value
        Range("BE" & i).Value = Range("data!G9").Value
        End If
 
  End If
  Next i
 
Application.ScreenUpdating = True
End Sub

1 chose : en mettant "Application.ScreenUpdating = True" après le Next i, c'est encore plus rapide.

Merci à vous deux pour votre aide.

RANGE qui ne fonctionne pas totalement [XL-2003]

Macros et VBA Excel

Discussions similaires

Partager

Partager