Ou est l'erreur? solution certainement rapide et simple mais que je ne trouve pas

**nicdodo** · 08/04/2015, 17h12

Bonjour pourriez vous me dire ou est l'erreur svp.

J'ai la colonne 2 ou il y'a plein de trucs inutiles et au milieu j'ai ça "0 - 0 7.50". Le 0 - 0 ne change jamais par contre le chiffre de derrière peut changer selon la semaine.
J'ai donc fait ça (ça marche pour mes autres donnée mais dans les autres données il y'a au moins 1 lettre. J'ai ait ça en grappillant sur un tuto par ci par la donc c'est pas très beau. J'ai essayé plusieurs choses je vais toutes les mettre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sheets("indexsite").Activate
 
For i = 1 To 280
 
'0 - 0'
If Cells(i, 2) Like ("*0 - 0*#,##") Then
Sheets("orgadonnées").Cells(16, 1).Value = Sheets("indexsite").Cells(i, 2).Value
Else: Sheets("orgadonnées").Cells(16, 1) = "Fait chier"
End If
Next

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sheets("indexsite").Activate
 
For i = 1 To 280
 
'0 - 0'
If Cells(i, 2) = ("0"&" "&"-"&" "&"0"&" "&"#,##") Then
Sheets("orgadonnées").Cells(16, 1).Value = Sheets("indexsite").Cells(i, 2).Value
Else: Sheets("orgadonnées").Cells(16, 1) = "Fait chier"
End If
Next

Etc vous voyez l'idée mais ça ne marche pas d'où le (else "fait chier") qui vient me confirmer que la boucle ne trouve pas l'info ou que celle ci ne correspond pas dans ma feuille('indexsite")
Je ne comprends pas

**joe.levrai** · 08/04/2015, 17h19

Bonjour,

au premier coup d'œil, je vois une incohérence

tu nous indique un exemple de chaine "0 - 0 7.50" ==> on a à la fin un chiffre non entier, à séparateur "point"

dans ton code, tu utilises un séparateur virgule

c'est normal ?

après, si tu sais qu'il faut chercher une chaine qui contient "0 - 0" suivi de "n'importe quoi", tu peux faire

Code :

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

1
2
 
If Cells(i, 2) Like "*" & "0 - 0" & "*" Then

**nicdodo** · 08/04/2015, 17h30

Oui c'est normal pour la virgule une fois toutes mes cases selectionnés je dois finir ma macro par une requete de type

Code :

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

Replace(Cell.Value, ";", ".")

merci http://silkyroad.developpez.com/VBA/...nesCaracteres/

Ceci étant cela ne fonctionne toujours pas je n'y comprends rien pourtant cela marche sur tout le reste du code. Je vous le met en entier sachant que la partie qui ne marche pas est à la fin

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
Sub trier_site_betclic()
 
 
e = 2
d = 3
c = 4
Sheets("indexsite").Activate
 
'MENU RESULTAT MATCH'
 
'recherche victoire equipe à domicile'
 
For i = 1 To 225
 
If Cells(i, 1).Value Like ("Montpellier" & " " & "#,##") Or Cells(i, 1).Value Like ("Monaco" & " " & "#,##") Or Cells(i, 1).Value Like ("Caen" & " " & "#,##") Or Cells(i, 1).Value Like ("Paris" & " " & "#,##") Or Cells(i, 1).Value Like ("Bastia" & " " & "#,##") Or Cells(i, 1).Value Like ("Marseille" & " " & "#,##") Or Cells(i, 1).Value Like ("Reims" & " " & "#,##") Or Cells(i, 1).Value Like ("Saint-Etienne" & " " & "#,##") Or Cells(i, 1).Value Like ("Lyon" & " " & "#,##") Or Cells(i, 1).Value Like ("Nantes" & " " & "#,##") Or Cells(i, 1).Value Like ("Lens" & " " & "#,##") Or Cells(i, 1).Value Like ("Toulouse" & " " & "#,##") Or Cells(i, 1).Value Like ("Evian Thonon G" & " " & "#,##") Or Cells(i, 1).Value Like ("Lille" & " " & "#,##") Or Cells(i, 1).Value Like ("Rennes" & " " & "#,##") Or Cells(i, 1).Value Like ("Lorient" & " " & "#,##") Or Cells(i, 1).Value Like ("Nice" & " " & "#,##") Or Cells(i, 1).Value Like ("Guinguamp" & " " & "#,##") Or Cells(i, 1).Value Like ("Bordeaux" & " " & "#,##") Then
Sheets("orgadonnées").Cells(2, 18).Value = Sheets("indexsite").Cells(i, 1).Value
End If
Next
 
'recherche defaite equipe à domicile'
 
For i = 1 To 225
 
If Cells(i, d).Value Like ("Montpellier" & " " & "#,##") Or Cells(i, d).Value Like ("Monaco" & " " & "#,##") Or Cells(i, d).Value Like ("Caen" & " " & "#,##") Or Cells(i, d).Value Like ("Paris" & " " & "#,##") Or Cells(i, d).Value Like ("Bastia" & " " & "#,##") Or Cells(i, d).Value Like ("Marseille" & " " & "#,##") Or Cells(i, d).Value Like ("Reims" & " " & "#,##") Or Cells(i, d).Value Like ("Saint-Etienne" & " " & "#,##") Or Cells(i, d).Value Like ("Lyon" & " " & "#,##") Or Cells(i, d).Value Like ("Nantes" & " " & "#,##") Or Cells(i, d).Value Like ("Lens" & " " & "#,##") Or Cells(i, d).Value Like ("Toulouse" & " " & "#,##") Or Cells(i, d).Value Like ("Evian Thonon G" & " " & "#,##") Or Cells(i, d).Value Like ("Lille" & " " & "#,##") Or Cells(i, d).Value Like ("Rennes" & " " & "#,##") Or Cells(i, d).Value Like ("Lorient" & " " & "#,##") Or Cells(i, d).Value Like ("Nice" & " " & "#,##") Or Cells(i, d).Value Like ("Guinguamp" & " " & "#,##") Or Cells(i, d).Value Like ("Bordeaux" & " " & "#,##") Then
Sheets("orgadonnées").Cells(2, 19).Value = Sheets("indexsite").Cells(i, d).Value
End If
Next
 
'recherche Nul'
 
For i = 1 To 225
 
If Cells(i, e) Like ("*Nul*#,##") Then
Sheets("orgadonnées").Cells(2, 3).Value = Sheets("indexsite").Cells(i, e).Value
End If
Next
 
'separation des données du Menu resulat Match
Sheets("orgadonnées").Activate
 
    Range("N2").FormulaR1C1 = "=LEFT(RC[4],SEARCH("" "",RC[4])-1)"
    Range("O2").FormulaR1C1 = "=RIGHT(RC[3],LEN(RC[3])-SEARCH("" "",RC[3]))"
        Range("N2").Copy
    Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("O2").Copy
    Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    Range("C2").TextToColumns Destination:=Range("C2"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(3, 1)), TrailingMinusNumbers:=True
 
    Range("P2").FormulaR1C1 = "=LEFT(RC[3],SEARCH("" "",RC[3])-1)"
    Range("Q2").FormulaR1C1 = "=RIGHT(RC[2],LEN(RC[2])-SEARCH("" "",RC[2]))"
    Range("P2").Copy
    Range("F2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("Q2").Copy
    Range("G2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    Range("N2:S2").ClearContents
 
'MENU NOMBRE DE BUT TOTAL '
 
'A match - de x'
Sheets("indexsite").Activate
For i = 1 To 255
 
'- de 0.5but'
If Cells(i, e) Like ("*- de 0,5*#,##") Then
Sheets("orgadonnées").Cells(4, 1).Value = Sheets("indexsite").Cells(i, e).Value
End If
'- de 1.5but'
If Cells(i, e) Like ("*- de 1,5*#,##") Then
Sheets("orgadonnées").Cells(4, 3).Value = Sheets("indexsite").Cells(i, e).Value
End If
'- de 2.5but'
If Cells(i, e) Like ("*- de 2,5*#,##") Then
Sheets("orgadonnées").Cells(4, 5).Value = Sheets("indexsite").Cells(i, e).Value
End If
'- de 3.5but'
If Cells(i, e) Like ("*- de 3,5*#,##") Then
Sheets("orgadonnées").Cells(4, 7).Value = Sheets("indexsite").Cells(i, e).Value
End If
'- de 4.5but'
If Cells(i, e) Like ("*- de 4,5*#,##") Then
Sheets("orgadonnées").Cells(4, 9).Value = Sheets("indexsite").Cells(i, e).Value
End If
'- de 5.5but'
If Cells(i, e) Like ("*- de 5,5*#,##") Then
Sheets("orgadonnées").Cells(4, 11).Value = Sheets("indexsite").Cells(i, e).Value
End If
Next
 
'on enleve les espaces pour préparer la réorganisation des cellules'
 
Sheets("orgadonnées").Rows(4).Replace " ", ""
 
'separation des données du Menu resulat Match
Sheets("orgadonnées").Activate
 
    Range("A4").TextToColumns Destination:=Range("A4"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
    Range("C4").TextToColumns Destination:=Range("C4"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
    Range("E4").TextToColumns Destination:=Range("E4"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
    Range("G4").TextToColumns Destination:=Range("G4"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
    If Cells(4, 9) <> "" Then
    Range("I4").TextToColumns Destination:=Range("I4"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(4, 9) = ""
        End If
    If Cells(4, 11) <> "" Then
    Range("K4").TextToColumns Destination:=Range("K4"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(4, 11) = ""
        End If
'B match + de x'
Sheets("indexsite").Activate
For i = 1 To 255
 
'+ de 0.5but'
If Cells(i, e) Like ("*+ de 0,5*#,##") Then
Sheets("orgadonnées").Cells(6, 1).Value = Sheets("indexsite").Cells(i, e).Value
End If
'+ de 1.5but'
If Cells(i, e) Like ("*+ de 1,5*#,##") Then
Sheets("orgadonnées").Cells(6, 3).Value = Sheets("indexsite").Cells(i, e).Value
End If
'+ de 2.5but'
If Cells(i, e) Like ("*+ de 2,5*#,##") Then
Sheets("orgadonnées").Cells(6, 5).Value = Sheets("indexsite").Cells(i, e).Value
End If
'+ de 3.5but'
If Cells(i, e) Like ("*+ de 3,5*#,##") Then
Sheets("orgadonnées").Cells(6, 7).Value = Sheets("indexsite").Cells(i, e).Value
End If
'+ de 4.5but'
If Cells(i, e) Like ("*+ de 4,5*#,##") Then
Sheets("orgadonnées").Cells(6, 9).Value = Sheets("indexsite").Cells(i, e).Value
End If
'+ de 5.5but'
If Cells(i, e) Like ("*+ de 5,5*#,##") Then
Sheets("orgadonnées").Cells(6, 11).Value = Sheets("indexsite").Cells(i, e).Value
End If
Next
 
'on enleve les espaces pour préparer la réorganisation des cellules'
 
Sheets("orgadonnées").Rows(6).Replace " ", ""
 
'separation des données du Menu resulat Match
Sheets("orgadonnées").Activate
 
    Range("A6").TextToColumns Destination:=Range("A6"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
    Range("C6").TextToColumns Destination:=Range("C6"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
    Range("E6").TextToColumns Destination:=Range("E6"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
    Range("G6").TextToColumns Destination:=Range("G6"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
     If Cells(6, 9) <> "" Then
    Range("I6").TextToColumns Destination:=Range("I6"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
      Else: Cells(6, 9) = ""
      End If
     If Cells(6, 11) <> "" Then
    Range("K6").TextToColumns Destination:=Range("K6"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
      Else: Cells(6, 11) = ""
      End If
 
'MENU NOMBRE DE BUT 1ER MI TEMPS '
 
'A 1er mi temps - de x'
 
Sheets("indexsite").Activate
 
For i = 1 To 255
 
'- de 0.5but'
If Cells(i, d) Like ("*- de 0,5*#,##") Then
Sheets("orgadonnées").Cells(8, 1).Value = Sheets("indexsite").Cells(i, d).Value
End If
'- de 1.5but'
If Cells(i, d) Like ("*- de 1,5*#,##") Then
Sheets("orgadonnées").Cells(8, 3).Value = Sheets("indexsite").Cells(i, d).Value
End If
'- de 2.5but'
If Cells(i, d) Like ("*- de 2,5*#,##") Then
Sheets("orgadonnées").Cells(8, 5).Value = Sheets("indexsite").Cells(i, d).Value
End If
'- de 3.5but'
If Cells(i, d) Like ("*- de 3,5*#,##") Then
Sheets("orgadonnées").Cells(8, 7).Value = Sheets("indexsite").Cells(i, d).Value
End If
'- de 4.5but'
If Cells(i, d) Like ("*- de 4,5*#,##") Then
Sheets("orgadonnées").Cells(8, 9).Value = Sheets("indexsite").Cells(i, d).Value
End If
'- de 5.5but'
If Cells(i, d) Like ("*- de 5,5*#,##") Then
Sheets("orgadonnées").Cells(8, 11).Value = Sheets("indexsite").Cells(i, d).Value
End If
Next
 
'on enleve les espaces pour préparer la réorganisation des cellules'
 
Sheets("orgadonnées").Rows(8).Replace " ", ""
 
'separation des données du Menu resulat Match
 
Sheets("orgadonnées").Activate
 
    If Cells(8, 1) <> "" Then
    Range("A8").TextToColumns Destination:=Range("A8"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
     Else: Cells(8, 1) = ""
        End If
 
    If Cells(8, 3) <> "" Then
    Range("C8").TextToColumns Destination:=Range("C8"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
    Else: Cells(8, 3) = ""
        End If
 
    If Cells(8, 5) <> "" Then
    Range("E8").TextToColumns Destination:=Range("E8"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(8, 5) = ""
        End If
 
    If Cells(8, 7) <> "" Then
    Range("G8").TextToColumns Destination:=Range("G8"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(8, 7) = ""
        End If
 
    If Cells(8, 9) <> "" Then
    Range("I8").TextToColumns Destination:=Range("I8"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(8, 9) = ""
 
        End If
    If Cells(8, 11) <> "" Then
    Range("K4").TextToColumns Destination:=Range("K4"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(8, 11) = ""
        End If
 
'B 1er mi temps + de x'
 
Sheets("indexsite").Activate
 
For i = 1 To 255
 
'+ de 0.5but'
If Cells(i, d) Like ("*+ de 0,5*#,##") Then
Sheets("orgadonnées").Cells(10, 1).Value = Sheets("indexsite").Cells(i, d).Value
End If
'+ de 1.5but'
If Cells(i, d) Like ("*+ de 1,5*#,##") Then
Sheets("orgadonnées").Cells(10, 3).Value = Sheets("indexsite").Cells(i, d).Value
End If
'+ de 2.5but'
If Cells(i, d) Like ("*+ de 2,5*#,##") Then
Sheets("orgadonnées").Cells(10, 5).Value = Sheets("indexsite").Cells(i, d).Value
End If
'+ de 3.5but'
If Cells(i, d) Like ("*+ de 3,5*#,##") Then
Sheets("orgadonnées").Cells(10, 7).Value = Sheets("indexsite").Cells(i, d).Value
End If
'+ de 4.5but'
If Cells(i, d) Like ("*+ de 4,5*#,##") Then
Sheets("orgadonnées").Cells(10, 9).Value = Sheets("indexsite").Cells(i, d).Value
End If
'+ de 5.5but'
If Cells(i, d) Like ("*+ de 5,5*#,##") Then
Sheets("orgadonnées").Cells(10, 11).Value = Sheets("indexsite").Cells(i, d).Value
End If
Next
 
'on enleve les espaces pour préparer la réorganisation des cellules'
 
Sheets("orgadonnées").Rows(10).Replace " ", ""
 
'separation des données du Menu resulat Match
 
Sheets("orgadonnées").Activate
    If Cells(10, 1) <> "" Then
    Range("A10").TextToColumns Destination:=Range("A10"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
     Else: Cells(10, 1) = ""
        End If
 
    If Cells(10, 3) <> "" Then
    Range("C10").TextToColumns Destination:=Range("C10"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
    Else: Cells(10, 3) = ""
        End If
 
    If Cells(10, 5) <> "" Then
    Range("E10").TextToColumns Destination:=Range("E10"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(10, 5) = ""
        End If
 
    If Cells(10, 7) <> "" Then
    Range("G10").TextToColumns Destination:=Range("G10"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(10, 7) = ""
        End If
 
    If Cells(10, 9) <> "" Then
    Range("I10").TextToColumns Destination:=Range("I10"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(10, 9) = ""
        End If
 
    If Cells(10, 11) <> "" Then
    Range("K10").TextToColumns Destination:=Range("K10"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(10, 11) = ""
        End If
 
'MENU NOMBRE DE BUT 2ND MI TEMPS '
 
'A 2nd mi temps - de x'
 
Sheets("indexsite").Activate
 
For i = 1 To 255
 
'- de 0.5but'
If Cells(i, c) Like ("*- de 0,5*#,##") Then
Sheets("orgadonnées").Cells(12, 1).Value = Sheets("indexsite").Cells(i, c).Value
End If
'- de 1.5but'
If Cells(i, c) Like ("*- de 1,5*#,##") Then
Sheets("orgadonnées").Cells(12, 3).Value = Sheets("indexsite").Cells(i, c).Value
End If
'- de 2.5but'
If Cells(i, c) Like ("*- de 2,5*#,##") Then
Sheets("orgadonnées").Cells(12, 5).Value = Sheets("indexsite").Cells(i, c).Value
End If
'- de 3.5but'
If Cells(i, c) Like ("*- de 3,5*#,##") Then
Sheets("orgadonnées").Cells(12, 7).Value = Sheets("indexsite").Cells(i, c).Value
End If
'- de 4.5but'
If Cells(i, c) Like ("*- de 4,5*#,##") Then
Sheets("orgadonnées").Cells(12, 9).Value = Sheets("indexsite").Cells(i, c).Value
End If
'- de 5.5but'
If Cells(i, c) Like ("*- de 5,5*#,##") Then
Sheets("orgadonnées").Cells(12, 11).Value = Sheets("indexsite").Cells(i, c).Value
End If
Next
 
'on enleve les espaces pour préparer la réorganisation des cellules'
 
Sheets("orgadonnées").Rows(12).Replace " ", ""
 
'separation des données du Menu resulat Match
 
Sheets("orgadonnées").Activate
 
    If Cells(12, 1) <> "" Then
    Range("A12").TextToColumns Destination:=Range("A12"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
     Else: Cells(12, 1) = ""
        End If
 
    If Cells(12, 3) <> "" Then
    Range("C12").TextToColumns Destination:=Range("C12"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
    Else: Cells(12, 3) = ""
        End If
 
    If Cells(12, 5) <> "" Then
    Range("E12").TextToColumns Destination:=Range("E12"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(12, 5) = ""
        End If
 
    If Cells(12, 7) <> "" Then
    Range("G12").TextToColumns Destination:=Range("G12"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(12, 7) = ""
        End If
 
    If Cells(12, 9) <> "" Then
    Range("I8").TextToColumns Destination:=Range("I12"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(12, 9) = ""
 
        End If
    If Cells(12, 11) <> "" Then
    Range("K4").TextToColumns Destination:=Range("K12"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(12, 11) = ""
        End If
 
'B 2nd mi temps + de x'
 
Sheets("indexsite").Activate
 
For i = 1 To 255
 
'+ de 0.5but'
If Cells(i, c) Like ("*+ de 0,5*#,##") Then
Sheets("orgadonnées").Cells(14, 1).Value = Sheets("indexsite").Cells(i, c).Value
End If
'+ de 1.5but'
If Cells(i, c) Like ("*+ de 1,5*#,##") Then
Sheets("orgadonnées").Cells(14, 3).Value = Sheets("indexsite").Cells(i, c).Value
End If
'+ de 2.5but'
If Cells(i, c) Like ("*+ de 2,5*#,##") Then
Sheets("orgadonnées").Cells(14, 5).Value = Sheets("indexsite").Cells(i, c).Value
End If
'+ de 3.5but'
If Cells(i, c) Like ("*+ de 3,5*#,##") Then
Sheets("orgadonnées").Cells(14, 7).Value = Sheets("indexsite").Cells(i, c).Value
End If
'+ de 4.5but'
If Cells(i, c) Like ("*+ de 4,5*#,##") Then
Sheets("orgadonnées").Cells(14, 9).Value = Sheets("indexsite").Cells(i, c).Value
End If
'+ de 5.5but'
If Cells(i, c) Like ("*+ de 5,5*#,##") Then
Sheets("orgadonnées").Cells(14, 11).Value = Sheets("indexsite").Cells(i, c).Value
End If
Next
 
'on enleve les espaces pour préparer la réorganisation des cellules'
 
Sheets("orgadonnées").Rows(14).Replace " ", ""
 
'separation des données du Menu resulat Match
 
Sheets("orgadonnées").Activate
    If Cells(14, 1) <> "" Then
    Range("A14").TextToColumns Destination:=Range("A14"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
     Else: Cells(14, 1) = ""
        End If
 
    If Cells(14, 3) <> "" Then
    Range("C14").TextToColumns Destination:=Range("C14"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
    Else: Cells(14, 3) = ""
        End If
 
    If Cells(14, 5) <> "" Then
    Range("E14").TextToColumns Destination:=Range("E14"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(14, 5) = ""
        End If
 
    If Cells(14, 7) <> "" Then
    Range("G14").TextToColumns Destination:=Range("G14"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(14, 7) = ""
        End If
 
    If Cells(14, 9) <> "" Then
    Range("I14").TextToColumns Destination:=Range("I14"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(14, 9) = ""
        End If
 
    If Cells(14, 11) <> "" Then
    Range("K14").TextToColumns Destination:=Range("K14"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
        Else: Cells(14, 11) = ""
 
        End If
 
'MENU SCORE EXACT '
 
'A 2nd mi temps - de x'
 
Sheets("indexsite").Activate
 
For i = 1 To 280
 
'0 - 0'
If Cells(i, 2) Like ("*" & "0 - 0" & "*") Then
Sheets("orgadonnées").Cells(16, 1).Value = Sheets("indexsite").Cells(i, 2).Value
Else: Sheets("orgadonnées").Cells(16, 1) = "fuck"
End If
Next
Sheets("orgadonnées").Activate
end sub

**joe.levrai** · 08/04/2015, 18h55

la condition est correctement écrite, donc ça doit venir de la valeur de tes cellules

faut tester.

dans ton code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
For i = 1 To 280
 
'0 - 0'
If Cells(i, 2) Like ("*" & "0 - 0" & "*") Then
Sheets("orgadonnées").Cells(16, 1).Value = Sheets("indexsite").Cells(i, 2).Value
Else: Sheets("orgadonnées").Cells(16, 1) = "fuck"
End If
Next
Sheets("orgadonnées").Activate
end sub

teste la valeur de ta cellule avant l'application du if, et regarde si c'est bien "0" / "espace" / "-" / "espace" / "0"

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
 
 
 
 
' on va uniquement tester les 10 premières
For i = 1 To 10
 
Msgbox Cells(i,2).value
 
'0 - 0'
If Cells(i, 2) Like ("*" & "0 - 0" & "*") Then
Sheets("orgadonnées").Cells(16, 1).Value = Sheets("indexsite").Cells(i, 2).Value
Else: Sheets("orgadonnées").Cells(16, 1) = "fuck"
End If
Next
Sheets("orgadonnées").Activate
end sub

**nicdodo** · 08/04/2015, 19h05

Oui oui ça l'est la message box me met bien 0 - 0 c'est tellement bizarre

**joe.levrai** · 08/04/2015, 19h11

j'ai pas l'habitude de demander .... mais tu peux mettre une copie du classeur en question ?

**nicdodo** · 08/04/2015, 19h56

OK alors c'est un petit programme d'optimisation de pari sportif, il est pas totalement fini mais il y'a bcp de feuilles du coup pour simplifiez l'utilisation pour ce qui nous interesse :

- feuille "accueil" bouton betclic (relié au module 6) ==>action de choisir et d'envoyer les données de la feuilles "indexsite" à la feuille "orgadonnées"
- feuille "indexsite" ==> pour recuper ces données j'ai utilisé l'outils (données ==> à partir du web)
- feuille "orgadonnées" ==> feuille de classement des données (le bouton 18 sert à effacer les ranges pour mes test de code sur cette feuille

Merci pour votre temps et votre aide

**joe.levrai** · 08/04/2015, 20h07

Comme ça, je détecte bien les "*" & "0 - 0" & "*" :

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
 
 
'Sheets("indexsite").Activate
 
For i = 1 To 280
 
    '0 - 0'
    If Sheets("indexsite").Cells(i, 2) Like "*" & "0 - 0" & "*" Then
        Sheets("orgadonnées").Cells(16, 1).Value = Sheets("indexsite").Cells(i, 2).Value
    Else
        Sheets("orgadonnées").Cells(16, 1) = "fuck"
    End If
Next i
 
Sheets("orgadonnées").Activate
 
End Sub

**nicdodo** · 08/04/2015, 20h24

je comprends pas pourquoi sur mon excel ça ne marche pas. C'est incompréhensible

**nicdodo** · 08/04/2015, 20h33

OK bon ben j'ai trouvé la solution, je comprends pas trop mais bon, en fait comme les données sont tirer d'un site je me suis dit que peut etre ça avait un lein du coup j'ai copier coller en valeur tout le site sur la même page et ça marche. Etrange etrange

Ou est l'erreur? solution certainement rapide et simple mais que je ne trouve pas

Macros et VBA Excel

Discussions similaires

Partager

Partager