Tri d'un planning en VBA

Version imprimable

Bonjour,
je veux réaliser un planning avec un bouton permettant de demander le nom de la personne et ensuite sa tranche horaire pour ainsi la visualiser en couleur sur une plage horaire. Cela fonctionne (fichier : Pièce jointe 215481 mais j'ai l'intention de créer un trie permettant d'avoir ce genre de résultat :

Pièce jointe 215480

Mon code étant pour le moment de cette manière :
Code:

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 Sub trie() Dim Ax As Integer Dim Dx As Integer Dim Dexex As Integer Dim tableauexcel As Application For Ax = 7 To 69 Step 2 For Dx = 9 To 69 Step 2 If Range("AL" & Ax) > Range("AL" & Dx) Then Worksheets("Feuil1").Range("A" & Ax, "AF" & Ax).Copy _ Destination:=Worksheets("Feuil1").Range("A74", "AF74") Worksheets("Feuil1").Range("A" & Dx, "AF" & Dx).Copy _ Destination:=Worksheets("Feuil1").Range("A" & Ax, "AF" & Ax) Worksheets("Feuil1").Range("A74", "AF74").Copy _ Destination:=Worksheets("Feuil1").Range("A" & Dx, "AF" & Dx) Range("AL74") = Range("AL" & Ax) Range("AL" & Ax) = Range("AL" & Dx) Range("AL" & Dx) = Range("Al74") Exit For End If Next Next End Sub
Je vous demande votre aide si quelqu'un peut m'aider sa serait formidable pour que je finalise ce fichier. :oops:

18/07/2016, 08h27
jeanmidudu

Bonjour,

Si c'est seulement pour effectuer un tri, utiliser l'enregistreur de macro est ce qu'il y a de plus simple. A adapter ensuite au besoin.
18/07/2016, 09h31
lurrik

Au final, j'ai trouvé la solution, j'ai inséré à chaque fois un numéro du plus petit au plus grand celon la maniere que le planning devait se former en copiant et collant la ligne en faisant un tri par sélection et ça fonctionne encore merci pour l'aide apporté à mes questions Jeanmidudu :)
18/07/2016, 09h33
Al__22

Je vais peut être dire une bêtise mais je vois pas l’intérêt de faire une macro "trie" alors qu'il existe une fonction trie dans excel (et qui est très bien faite d'ailleurs) :mrgreen:
18/07/2016, 10h51
lurrik

8 pièce(s) jointe(s)

En faite le logiciel se présente comme cela :

Etape 1 : cliquez sur le bouton "gestion"

Pièce jointe 215685

Etape 2 : Donnez la date

Pièce jointe 215686

Etape 3 Donnez le nom de la personne

Pièce jointe 215687

Etape 4 : Donnez le début de l'heure ( ça ne fonctionne que par tranche de 00 à 30 car je ne sais pas comment faire pour que sa soit entre ex : on ne peut pas faire 12h39 mais 12h30 :/)

Pièce jointe 215688

Etape 5 : Même chose on donne la fin de l'heure (même problème qu'à l'étape 4)

Pièce jointe 215690

Etape 6 : Cliquez sur "Ok" et ça se représente de cette manière

Pièce jointe 215691

Etape 7 : Ensuite on continue pour les autres et une fois fini quand tu réappuie sur "Ok" au prochain nom sans rien mettre

Pièce jointe 215692

Etape 8 : Grâce au trie que j'ai réalisé, on obtient le résultat que je souhaitais ci dessous une fois l'étape 7 fini

Pièce jointe 215693

Voilà :lol:

Ps :mais c'est vrai que j'aurais bien aimé que ça ne soit pas par tranche de 00 à 30 mais je ne pense pas qu'on puisse le faire ^^'
18/07/2016, 13h39
halaster08

Citation:

Ps :mais c'est vrai que j'aurais bien aimé que ça ne soit pas par tranche de 00 à 30 mais je ne pense pas qu'on puisse le faire ^^'

Bonjour,

Je ne vois pas ce qui t'en empeche, la limite d'excel étant de 16384 colonnes, si tu fais une colonne par minute sur 24h ça ne fais "que" 1440 colonnes.
En réduisant la taille des colonnes tu peux toujours faire tenir le tableau sur une page.

Après je n'ai pas le code de la macro qui met les couleurs mais je suis sur que c'est adaptable.

La vraie question est de quelle précision as tu vraiment besoin?

Autre option possible: arrondir les valeurs: exemple si tu gardes des tranches de 30min, 16h19 -> 16h30 et ensuite tu rempli ton planning
Autre option possible: avec les "data bars" la MFC tu pourrais ne colorer que la moitié de la case si tu rentre 16h15

J'ai déjà eu un problème avec la procédure qui était trop longue donc je ne pense pas que ça fonctionnera, je te laisse en juger par toi même mais je pense que si on rajoute du code, la procédure sera dite "trop longue" et ne pourra pas compiler le code.

Je te laisse en juger :?

Le code :

Code:

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
 Sub gerere()
 Dim resultat As String
  Dim resu As String
    Dim deb As Integer
    Dim plage As Range
    Dim tmp() As String, tmr() As String
    Dim erreur As Boolean
 
 resu = InputBox("Donner la date", "Gestion")
     If resu <> "" Then 'Si la valeur est différente de "" on affiche le résultat
        Range("K2").Value = resu
        End If
    For deb = 7 To 102 Step 2
        resultat = InputBox("Donner le nom", "Gestion")
        If resultat = "" Then Exit For 'Si la valeur est différente de "" on affiche le résultat
 
        Range("A" & deb).Value = resultat
 
        heureSaisie = InputBox("Donner le début de l'heure au format xx:xx", "heure")
 
        ' Vérifiaction de la validitée
        If Len(heureSaisie) Then tmp = Split(heureSaisie, ":")
 
        ' Présence de deux ; les valeurs sont numériques
        If UBound(tmp) = 2 Then erreur = Not (IsNumeric(tmp(0)) And IsNumeric(tmp(1)))
 
        heureSaisi = InputBox("Donner la fin de l'heure au format xx:xx", "heure")
 
        ' Vérifiaction de la validitée
        If Len(heureSaisi) Then tmr = Split(heureSaisi, ":")
 
        ' Présence de deux ; les valeurs sont numériques
        If UBound(tmr) = 2 Then erreur = Not (IsNumeric(tmr(0)) And IsNumeric(tmr(1)))
 
        If tmp(0) = 5 And tmp(1) = 30 Then '5h30
            If tmr(0) = 8 And tmr(1) = 30 Then Call coloriage(Range("B" & deb, "G" & deb), 50)
            If tmr(0) = 9 And tmr(1) = 0 Then Call coloriage(Range("B" & deb, "H" & deb), 50)
            If tmr(0) = 9 And tmr(1) = 30 Then Call coloriage(Range("B" & deb, "I" & deb), 50)
            If tmr(0) = 10 And tmr(1) = 0 Then Call coloriage(Range("B" & deb, "J" & deb), 50)
            If tmr(0) = 10 And tmr(1) = 30 Then Call coloriage(Range("B" & deb, "K" & deb), 50)
            If tmr(0) = 11 And tmr(1) = 0 Then Call coloriage(Range("B" & deb, "L" & deb), 50)
            If tmr(0) = 11 And tmr(1) = 30 Then Call coloriage(Range("B" & deb, "M" & deb), 50)
            If tmr(0) = 12 And tmr(1) = 0 Then Call coloriage(Range("B" & deb, "N" & deb), 50)
            If tmr(0) = 12 And tmr(1) = 30 Then Call coloriage(Range("B" & deb, "O" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 0 Then Call coloriage(Range("B" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("B" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("B" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "R" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("B" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "S" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("B" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "T" & deb), 4)
            Range("BA" & deb) = 1
            End If
 
 
         If tmp(0) = 6 And tmp(1) = 0 Then  '6h00
            If tmr(0) = 9 And tmr(1) = 0 Then Call coloriage(Range("C" & deb, "H" & deb), 50)
            If tmr(0) = 9 And tmr(1) = 30 Then Call coloriage(Range("C" & deb, "I" & deb), 50)
            If tmr(0) = 10 And tmr(1) = 0 Then Call coloriage(Range("C" & deb, "J" & deb), 50)
            If tmr(0) = 10 And tmr(1) = 30 Then Call coloriage(Range("C" & deb, "K" & deb), 50)
            If tmr(0) = 11 And tmr(1) = 0 Then Call coloriage(Range("C" & deb, "L" & deb), 50)
            If tmr(0) = 11 And tmr(1) = 30 Then Call coloriage(Range("C" & deb, "M" & deb), 50)
            If tmr(0) = 12 And tmr(1) = 0 Then Call coloriage(Range("C" & deb, "N" & deb), 50)
            If tmr(0) = 12 And tmr(1) = 30 Then Call coloriage(Range("C" & deb, "O" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 0 Then Call coloriage(Range("C" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("C" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("C" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "R" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("C" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "S" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("C" & deb, "P" & deb), 50)
             If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "T" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("C" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "U" & deb), 4)
             Range("BA" & deb) = 2
             End If
 
         If tmp(0) = 6 And tmp(1) = 30 Then '6h30
            If tmr(0) = 9 And tmr(1) = 30 Then Call coloriage(Range("D" & deb, "I" & deb), 50)
            If tmr(0) = 10 And tmr(1) = 0 Then Call coloriage(Range("D" & deb, "J" & deb), 50)
            If tmr(0) = 10 And tmr(1) = 30 Then Call coloriage(Range("D" & deb, "K" & deb), 50)
            If tmr(0) = 11 And tmr(1) = 0 Then Call coloriage(Range("D" & deb, "L" & deb), 50)
            If tmr(0) = 11 And tmr(1) = 30 Then Call coloriage(Range("D" & deb, "M" & deb), 50)
            If tmr(0) = 12 And tmr(1) = 0 Then Call coloriage(Range("D" & deb, "N" & deb), 50)
            If tmr(0) = 12 And tmr(1) = 30 Then Call coloriage(Range("D" & deb, "O" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 0 Then Call coloriage(Range("D" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("D" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("D" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "R" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("D" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "S" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("D" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "T" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("D" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "U" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("D" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "V" & deb), 4)
            Range("BA" & deb) = 3
            End If
 
          If tmp(0) = 7 And tmp(1) = 0 Then '7h00
            If tmr(0) = 10 And tmr(1) = 0 Then Call coloriage(Range("E" & deb, "J" & deb), 50)
            If tmr(0) = 10 And tmr(1) = 30 Then Call coloriage(Range("E" & deb, "K" & deb), 50)
            If tmr(0) = 11 And tmr(1) = 0 Then Call coloriage(Range("E" & deb, "L" & deb), 50)
            If tmr(0) = 11 And tmr(1) = 30 Then Call coloriage(Range("E" & deb, "M" & deb), 50)
            If tmr(0) = 12 And tmr(1) = 0 Then Call coloriage(Range("E" & deb, "N" & deb), 50)
            If tmr(0) = 12 And tmr(1) = 30 Then Call coloriage(Range("E" & deb, "O" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 0 Then Call coloriage(Range("E" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("E" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("E" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "R" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("E" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "S" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("E" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "T" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("E" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "U" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("E" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "V" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("E" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "W" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("E" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "X" & deb), 4)
            Range("BA" & deb) = 4
            End If
 
           If tmp(0) = 7 And tmp(1) = 30 Then '7h30
            If tmr(0) = 10 And tmr(1) = 30 Then Call coloriage(Range("F" & deb, "K" & deb), 50)
            If tmr(0) = 11 And tmr(1) = 0 Then Call coloriage(Range("F" & deb, "L" & deb), 50)
            If tmr(0) = 11 And tmr(1) = 30 Then Call coloriage(Range("F" & deb, "M" & deb), 50)
            If tmr(0) = 12 And tmr(1) = 0 Then Call coloriage(Range("F" & deb, "N" & deb), 50)
            If tmr(0) = 12 And tmr(1) = 30 Then Call coloriage(Range("F" & deb, "O" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 0 Then Call coloriage(Range("F" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("F" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("F" & deb, "P" & deb), 50)
             If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "R" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("F" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "S" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("F" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "T" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("F" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "U" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("F" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "V" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("F" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "W" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("F" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "X" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("F" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "Y" & deb), 4)
            Range("BA" & deb) = 5
            End If
 
           If tmp(0) = 8 And tmp(1) = 0 Then '8h00
            If tmr(0) = 11 And tmr(1) = 0 Then Call coloriage(Range("G" & deb, "L" & deb), 50)
            If tmr(0) = 11 And tmr(1) = 30 Then Call coloriage(Range("G" & deb, "M" & deb), 50)
            If tmr(0) = 12 And tmr(1) = 0 Then Call coloriage(Range("G" & deb, "N" & deb), 50)
            If tmr(0) = 12 And tmr(1) = 30 Then Call coloriage(Range("G" & deb, "O" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 0 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "R" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "S" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "T" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "U" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "V" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "W" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "X" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "Y" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "Z" & deb), 4)
            Range("BA" & deb) = 6
            End If
 
           If tmp(0) = 8 And tmp(1) = 30 Then '8h30
            If tmr(0) = 11 And tmr(1) = 30 Then Call coloriage(Range("H" & deb, "M" & deb), 50)
            If tmr(0) = 12 And tmr(1) = 0 Then Call coloriage(Range("H" & deb, "N" & deb), 50)
            If tmr(0) = 12 And tmr(1) = 30 Then Call coloriage(Range("H" & deb, "O" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 0 Then Call coloriage(Range("H" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("H" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("H" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "R" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("H" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "S" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("H" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "T" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("H" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "U" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "V" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "W" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "X" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "Y" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "Z" & deb), 4)
            Range("BA" & deb) = 7
            End If
 
           If tmp(0) = 9 And tmp(1) = 0 Then '9h00
            If tmr(0) = 12 And tmr(1) = 0 Then Call coloriage(Range("I" & deb, "N" & deb), 50)
            If tmr(0) = 12 And tmr(1) = 30 Then Call coloriage(Range("I" & deb, "O" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 0 Then Call coloriage(Range("I" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("I" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("I" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "R" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("I" & deb, "P" & deb), 50)
             If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "S" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("I" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "T" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("I" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "U" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("I" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "V" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("I" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "W" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("I" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "X" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("I" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "Y" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("I" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "Z" & deb), 4)
            Range("BA" & deb) = 8
            End If
 
            If tmp(0) = 9 And tmp(1) = 30 Then '9h30
            If tmr(0) = 12 And tmr(1) = 30 Then Call coloriage(Range("J" & deb, "O" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 0 Then Call coloriage(Range("J" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("J" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("J" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "R" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("J" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "S" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("J" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "T" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("J" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "U" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("J" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "V" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("J" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "W" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("J" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "X" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("J" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "Y" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("J" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "Z" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("J" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "AA" & deb), 4)
            Range("BA" & deb) = 9
            End If
 
            If tmp(0) = 10 And tmp(1) = 0 Then '10h00
            If tmr(0) = 13 And tmr(1) = 0 Then Call coloriage(Range("K" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("K" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("K" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "R" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("K" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "S" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("K" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "T" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("K" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "U" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("K" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "V" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("K" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "W" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("K" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "X" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("K" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "Y" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("K" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "Z" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("K" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "AB" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("K" & deb, "P" & deb), 50)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "AB" & deb), 4)
            Range("BA" & deb) = 10
            End If
 
            If tmp(0) = 10 And tmp(1) = 30 Then '10h30
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("L" & deb, "P" & deb), 50)
            If tmr(0) = 13 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("L" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "R" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("L" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "S" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("L" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "T" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("L" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "U" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("L" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "V" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("L" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "W" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("L" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "X" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("L" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "Y" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("L" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "Z" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("L" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "AA" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("L" & deb, "P" & deb), 50)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "AB" & deb), 4)
            Range("BA" & deb) = 11
            End If
 
 
            If tmp(0) = 11 And tmp(1) = 0 Then '11h00
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("M" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "R" & deb), 4)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("M" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "S" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("M" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "T" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("M" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "U" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("M" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "V" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("M" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "W" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("M" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "X" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("M" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "Y" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("M" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "Z" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("M" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "AA" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("M" & deb, "P" & deb), 50)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "AB" & deb), 4)
            Range("BA" & deb) = 12
            End If
 
            If tmp(0) = 11 And tmp(1) = 30 Then '11h30
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("N" & deb, "P" & deb), 50)
            If tmr(0) = 14 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "S" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("N" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "T" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("N" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "U" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("N" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "V" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("N" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "W" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("N" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "X" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("N" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "Y" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("N" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "Z" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("N" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "AA" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("N" & deb, "P" & deb), 50)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "AB" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 30 Then Call coloriage(Range("N" & deb, "P" & deb), 50)
            If tmr(0) = 19 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "AC" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 0 Then Call coloriage(Range("N" & deb, "P" & deb), 50)
            If tmr(0) = 20 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "AD" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "AE" & deb), 4)
            Range("BA" & deb) = 13
            End If
 
 
            If tmp(0) = 12 And tmp(1) = 0 Then '12h00
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("O" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "T" & deb), 4)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("O" & deb, "P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "U" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("O" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "V" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("O" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "W" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("O" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "X" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("O" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "Y" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("O" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "Z" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("O" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "AA" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("O" & deb, "P" & deb), 50)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "AB" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 30 Then Call coloriage(Range("O" & deb, "P" & deb), 50)
            If tmr(0) = 19 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "AC" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 0 Then Call coloriage(Range("O" & deb, "P" & deb), 50)
            If tmr(0) = 20 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "AD" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("O" & deb, "P" & deb), 50)
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "AE" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 45 Then Call coloriage(Range("O" & deb, "P" & deb), 50)
            If tmr(0) = 20 And tmr(1) = 45 Then Call coloriage(Range("Q" & deb, "AF" & deb), 4)
            Range("BA" & deb) = 14
            End If
 
            If tmp(0) = 12 And tmp(1) = 30 Then '12h30
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("P" & deb), 50)
            If tmr(0) = 15 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "U" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("P" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "V" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("P" & deb, "P" & deb), 50)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "W" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("P" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "X" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("P" & deb, "P" & deb), 50)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "Y" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("P" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "Z" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("P" & deb, "P" & deb), 50)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "AA" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("P" & deb, "P" & deb), 50)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "AB" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 30 Then Call coloriage(Range("P" & deb, "P" & deb), 50)
            If tmr(0) = 19 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "AC" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 0 Then Call coloriage(Range("P" & deb, "P" & deb), 50)
            If tmr(0) = 20 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "AD" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "AE" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 45 Then Call coloriage(Range("G" & deb, "P" & deb), 50)
            If tmr(0) = 20 And tmr(1) = 45 Then Call coloriage(Range("Q" & deb, "AF" & deb), 4)
            Range("BA" & deb) = 15
            End If
 
            If tmp(0) = 13 And tmp(1) = 0 Then '13h00
            If tmr(0) = 16 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "V" & deb), 4)
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "W" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "X" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "Y" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "Z" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "AA" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "AB" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "AC" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 0 Then Call coloriage(Range("Q" & deb, "AD" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("Q" & deb, "AE" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 45 Then Call coloriage(Range("Q" & deb, "AF" & deb), 4)
            Range("BA" & deb) = 16
            End If
 
            If tmp(0) = 13 And tmp(1) = 30 Then
            If tmr(0) = 16 And tmr(1) = 30 Then Call coloriage(Range("R" & deb, "W" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("R" & deb, "X" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("R" & deb, "Y" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("R" & deb, "Z" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("R" & deb, "AA" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("R" & deb, "AB" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 30 Then Call coloriage(Range("R" & deb, "AC" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 0 Then Call coloriage(Range("R" & deb, "AD" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("R" & deb, "AE" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 45 Then Call coloriage(Range("R" & deb, "AF" & deb), 4)
            Range("BA" & deb) = 17
            End If
 
            If tmp(0) = 14 And tmp(1) = 0 Then
            If tmr(0) = 17 And tmr(1) = 0 Then Call coloriage(Range("S" & deb, "X" & deb), 4)
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("S" & deb, "Y" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("S" & deb, "Z" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("S" & deb, "AA" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("S" & deb, "AB" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 30 Then Call coloriage(Range("S" & deb, "AC" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 0 Then Call coloriage(Range("S" & deb, "AD" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("S" & deb, "AE" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 45 Then Call coloriage(Range("S" & deb, "AF" & deb), 4)
            Range("BA" & deb) = 18
            End If
 
            If tmp(0) = 14 And tmp(1) = 30 Then
            If tmr(0) = 17 And tmr(1) = 30 Then Call coloriage(Range("T" & deb, "Y" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("T" & deb, "Z" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("T" & deb, "AA" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("T" & deb, "AB" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 30 Then Call coloriage(Range("T" & deb, "AC" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 0 Then Call coloriage(Range("T" & deb, "AD" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("T" & deb, "AE" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 45 Then Call coloriage(Range("T" & deb, "AF" & deb), 4)
            Range("BA" & deb) = 19
            End If
 
            If tmp(0) = 15 And tmp(1) = 0 Then
            If tmr(0) = 18 And tmr(1) = 0 Then Call coloriage(Range("U" & deb, "Z" & deb), 4)
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("U" & deb, "AA" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("U" & deb, "AB" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 30 Then Call coloriage(Range("U" & deb, "AC" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 0 Then Call coloriage(Range("U" & deb, "AD" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("U" & deb, "AE" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 45 Then Call coloriage(Range("U" & deb, "AF" & deb), 4)
            Range("BA" & deb) = 20
            End If
 
            If tmp(0) = 15 And tmp(1) = 30 Then
            If tmr(0) = 18 And tmr(1) = 30 Then Call coloriage(Range("V" & deb, "AA" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("V" & deb, "AB" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 30 Then Call coloriage(Range("V" & deb, "AC" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 0 Then Call coloriage(Range("V" & deb, "AD" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("V" & deb, "AE" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 45 Then Call coloriage(Range("V" & deb, "AF" & deb), 4)
            Range("BA" & deb) = 21
            End If
 
            If tmp(0) = 16 And tmp(1) = 0 Then
             If tmr(0) = 19 And tmr(1) = 0 Then Call coloriage(Range("W" & deb, "AB" & deb), 4)
            If tmr(0) = 19 And tmr(1) = 30 Then Call coloriage(Range("W" & deb, "AC" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 0 Then Call coloriage(Range("W" & deb, "AD" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("W" & deb, "AE" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 45 Then Call coloriage(Range("W" & deb, "AF" & deb), 4)
            Range("BA" & deb) = 22
            End If
 
            If tmp(0) = 16 And tmp(1) = 30 Then
            If tmr(0) = 19 And tmr(1) = 30 Then Call coloriage(Range("X" & deb, "AC" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 0 Then Call coloriage(Range("X" & deb, "AD" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("X" & deb, "AE" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 45 Then Call coloriage(Range("X" & deb, "AF" & deb), 4)
            Range("BA" & deb) = 23
            End If
 
 
            If tmp(0) = 17 And tmp(1) = 0 Then
            If tmr(0) = 20 And tmr(1) = 0 Then Call coloriage(Range("Y" & deb, "AD" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("Y" & deb, "AE" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 45 Then Call coloriage(Range("Y" & deb, "AF" & deb), 4)
            Range("BA" & deb) = 24
            End If
 
            If tmp(0) = 17 And tmp(1) = 30 Then
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("Z" & deb, "AE" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 45 Then Call coloriage(Range("Z" & deb, "AF" & deb), 4)
            Range("BA" & deb) = 25
            End If
 
            If tmp(0) = 18 And tmp(1) = 0 Then
            If tmr(0) = 20 And tmr(1) = 30 Then Call coloriage(Range("AA" & deb, "AE" & deb), 4)
            If tmr(0) = 20 And tmr(1) = 45 Then Call coloriage(Range("AA" & deb, "AF" & deb), 4)
            Range("BA" & deb) = 26
            End If
 
 
        Range("A" & deb).Value = Range("A" & deb).Value + Incr
Next deb
Call trie
 
 
 
End Sub
 
Private Sub coloriage(rng As Range, couleur As Integer)
    rng.Interior.ColorIndex = couleur
End Sub

Après si tu as une solution fait le moi savoir ;)

18/07/2016, 14h18
halaster08

1 pièce(s) jointe(s)

Je vais essayer de faire qqch mais ça risque de me prendre un peu de temps.

J'aurai quand meme quelques question:

-"trop long" c'est combien de temps?
- de quelle précison aurais tu besoin? 1min 10min 15min ?
- si je garde un cellule pour 30min mais que la couleur de rempli suivant la valeur (exemple début 10h20 Pièce jointe 215747 ) ça te convient?
18/07/2016, 14h41
lurrik

1 pièce(s) jointe(s)

Voici le fichier halaster08 : Pièce jointe 215748

Après quand je parle de la procédure trop longue,c'est en longueur du programme, une procédure a ses limites en terme d'écrit (hélas).

Et bien sur, tu peux garder la cellule pour 30 min,avec 1 min de précision ce que tu m'a montré correspond tout à fait, c'est beaucoup mieux mais si tu réussi chapeau ;)

Car je t'avouerai que je ne vois vraiment pas comment faire avec le problème de la procédure qui a ses limites.

J'attendrais ta solution avec impatience :D Auquel cas prévient moi pour ne pas attendre :lol:

Merci beaucoup !
18/07/2016, 14h51
halaster08

Citation:

Envoyé par lurrik

Car je t'avouerai que je ne vois vraiment pas comment faire avec le problème de la procédure qui a ses limites.

En fait tu pourrais simplifier énormément ton code avec deux boucles for, pour ne pas avoir tous ces if les uns après les autres.
18/07/2016, 14h58
lurrik

Je crois voir un peu près ce que tu veux dire, après j'essaie de le faire au plus vite car dans plus très longtemps, je ne pourrais plus me remettre dessus donc c'est vrai que j'ai essayé de le simplifier mais j'ai pas pensé à tous...

Essaye ceci, et dis moi ce qui tu en pense, les cases restent par 30min mais la précision du remplissage est a la minute
Attention il faut rajouter une colonne 5h-5h30 en B (quitte a la masquer par la suite vu qu'elle ne te sert pas, mais la macro en a besoin)

PS: je n'ai pas eu le temps de faire beaucoup de test n'hesite pas a me prevenir en cas d'erreur
J'ai vu dans tes exemples que tu changeais la couleur après 13h, je n'ai pas encore eu le temps de le faire

PS2: le code n'est pas commenté non plus, je le ferais ce weekend

Code:

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
 Sub test()
 
 
 Dim resultat As String
  Dim resu As String
    Dim deb As Integer
    Dim plage As Range
    Dim tmp() As String, tmr() As String
    Dim erreur As Boolean
 
 resu = InputBox("Donner la date", "Gestion")
     If resu <> "" Then 'Si la valeur est différente de "" on affiche le résultat
        Range("K2").Value = resu
        End If
    For deb = 7 To 102 Step 2
        resultat = InputBox("Donner le nom", "Gestion")
        If resultat = "" Then Exit For 'Si la valeur est différente de "" on affiche le résultat
 
        Range("A" & deb).Value = resultat
 
        heureSaisie = InputBox("Donner le début de l'heure au format xx:xx", "heure")
 
        ' Vérifiaction de la validitée
        If Len(heureSaisie) Then tmp = Split(heureSaisie, ":")
 
        ' Présence de deux ; les valeurs sont numériques
        If UBound(tmp) = 2 Then erreur = Not (IsNumeric(tmp(0)) And IsNumeric(tmp(1)))
 
        heureSaisi = InputBox("Donner la fin de l'heure au format xx:xx", "heure")
 
        ' Vérifiaction de la validitée
        If Len(heureSaisi) Then tmr = Split(heureSaisi, ":")
 
        ' Présence de deux ; les valeurs sont numériques
        If UBound(tmr) = 2 Then erreur = Not (IsNumeric(tmr(0)) And IsNumeric(tmr(1)))
 
       Range(Cells(deb, (tmp(0) - 5) * 2 + 2), Cells(deb, (tmr(0) - 5) * 2 + 2)) = 30
       If tmp(1) < 30 Then
            Cells(deb, (tmp(0) - 5) * 2 + 2) = 30 - tmp(1)
        Else
            Cells(deb, (tmp(0) - 5) * 2 + 2) = 0
            Cells(deb, (tmp(0) - 5) * 2 + 2 + 1) = 60 - tmp(1)
        End If
 
        If tmr(1) < 30 Then
         Cells(deb, (tmr(0) - 5) * 2 + 2) = tmr(1)
        Else
         Cells(deb, (tmr(0) - 5) * 2 + 2 + 1) = tmr(1) - 30
        End If
 
    Range(Cells(deb, (tmp(0) - 5) * 2 + 2), Cells(deb, (tmr(0) - 5) * 2 + 2)).Select
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueAutomaticMin
        .MaxPoint.Modify newtype:=xlConditionValueAutomaticMax
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 13012579
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlContext
    Selection.FormatConditions(1).NegativeBarFormat.ColorType = xlDataBarColor
    Selection.FormatConditions(1).BarBorder.Type = xlDataBarBorderNone
    Selection.FormatConditions(1).AxisPosition = xlDataBarAxisAutomatic
 
    If tmp(1) < 30 Then
        Range(Cells(deb, (tmp(0) - 5) * 2 + 2), Cells(deb, (tmp(0) - 5) * 2 + 2 + 1)).Select
    Else
        Range(Cells(deb, (tmp(0) - 5) * 2 + 2 + 1), Cells(deb, (tmp(0) - 5) * 2 + 2 + 2)).Select
    End If
 
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueAutomaticMin
        .MaxPoint.Modify newtype:=xlConditionValueAutomaticMax
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 13012579
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlRTL
    Selection.FormatConditions(1).NegativeBarFormat.ColorType = xlDataBarColor
    Selection.FormatConditions(1).BarBorder.Type = xlDataBarBorderNone
    Selection.FormatConditions(1).AxisPosition = xlDataBarAxisAutomatic
Next
 End Sub

edit: étant donné que j'utilise des MFC il faut surement que tu modifie ta macro de suppression.
si tu n'en utilise pas d'autres sur la feuille rajoute ceci ça devrait faire l'affaire:

Code:

1
2
3
Sheets("le nom de ton onglet").Cells.FormatConditions.Delete
sinon remplace .cells par un .range adéquat.
End With

19/07/2016, 13h45
lurrik

Et bien écoute ton programme fonctionne vraiment bien ! C'est vraiment bien fait, tu m'a appris des choses sur VBA que je ne connaissais vraiment pas, c'est super ! :D

Ps : Par contre je vais essayer de voir pour le trie maintenant car à la fin, le trie ne fonctionne plus.
19/07/2016, 13h58
halaster08

Pour être honnête je n'ai pas fait grand chose, j'ai juste exploité la mise en forme conditionnelle "data bars" dont j'ai récupérer la syntaxe via l'enregistreur de macro.
Le code est encore largement améliorable à mon avis, mais comme tu avais l'air pressé je t'ai livré cette première version.

Pour le tri tu pourrais rajouter une colonne a droite avec l'heure de début, sur la ligne et la suivante (pour garder ta ligne d'espace entre 2 noms) et utiliser le tri d'excel.

Bonjour,

Le code avec changement de couleurs matin/après midi.
Attention je n'ai pas pu le tester, je n'ai pas Excel le weekend, mais j'ai juste rajouté des ifs sur un code qui marchait donc logiquement ça marche.
J'ai juste une hésitation sur la direction des databars, j'ai peut-être inversé xlLTR et xlRTL, tiens moi au courant.

Code:

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
 Sub test()
 
 
 Dim resultat As String
  Dim resu As String
    Dim deb As Integer
    Dim plage As Range
    Dim tmp() As String, tmr() As String
    Dim erreur As Boolean
 
 resu = InputBox("Donner la date", "Gestion")
     If resu <> "" Then 'Si la valeur est différente de "" on affiche le résultat
        Range("K2").Value = resu
        End If
    For deb = 7 To 102 Step 2
        resultat = InputBox("Donner le nom", "Gestion")
        If resultat = "" Then Exit For 'Si la valeur est différente de "" on affiche le résultat
 
        Range("A" & deb).Value = resultat
 
        heureSaisie = InputBox("Donner le début de l'heure au format xx:xx", "heure")
 
        ' Vérifiaction de la validitée
        If Len(heureSaisie) Then tmp = Split(heureSaisie, ":")
 
        ' Présence de deux ; les valeurs sont numériques
        If UBound(tmp) = 2 Then erreur = Not (IsNumeric(tmp(0)) And IsNumeric(tmp(1)))
 
        heureSaisi = InputBox("Donner la fin de l'heure au format xx:xx", "heure")
 
        ' Vérifiaction de la validitée
        If Len(heureSaisi) Then tmr = Split(heureSaisi, ":")
 
        ' Présence de deux ; les valeurs sont numériques
        If UBound(tmr) = 2 Then erreur = Not (IsNumeric(tmr(0)) And IsNumeric(tmr(1)))
 
       Range(Cells(deb, (tmp(0) - 5) * 2 + 2), Cells(deb, (tmr(0) - 5) * 2 + 2)) = 30
       If tmp(1) < 30 Then
            Cells(deb, (tmp(0) - 5) * 2 + 2) = 30 - tmp(1)
        Else
            Cells(deb, (tmp(0) - 5) * 2 + 2) = 0
            Cells(deb, (tmp(0) - 5) * 2 + 2 + 1) = 60 - tmp(1)
        End If
 
        If tmr(1) < 30 Then
         Cells(deb, (tmr(0) - 5) * 2 + 2) = tmr(1)
        Else
         Cells(deb, (tmr(0) - 5) * 2 + 2 + 1) = tmr(1) - 30
        End If
'si horaires matin uniquement		
 if tmr(0) < 13 then
    Range(Cells(deb, (tmp(0) - 5) * 2 + 2), Cells(deb, (tmr(0) - 5) * 2 + 2)).Select
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5296274
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlRTL
 
    If tmp(1) < 30 Then
        Cells(deb, (tmp(0) - 5) * 2 + 2 + 1).Select
    Else
        Cells(deb, (tmp(0) - 5) * 2 + 2 + 2).Select
    End If
 
     Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5296274
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlLTR
end if
'si horaires apres midi uniquement	
 if tmp(0) > 12 then
    Range(Cells(deb, (tmp(0) - 5) * 2 + 2), Cells(deb, (tmr(0) - 5) * 2 + 2)).Select
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5287936
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlRTL
 
    If tmp(1) < 30 Then
        Cells(deb, (tmp(0) - 5) * 2 + 2 + 1).Select
    Else
        Cells(deb, (tmp(0) - 5) * 2 + 2 + 2).Select
    End If
 
     Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5287936
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlLTR
end if
'si horaires matin et apres midi	
 if tmp(0) < 13 and tmr(0) > 12 then
    Range(Cells(deb, (tmp(0) - 5) * 2 + 2), Cells(deb, 16)).Select
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5296274
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlLTR
 
    Range(Cells(deb, 16), Cells(deb, (tmr(0) - 5) * 2 + 2)).Select
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5287936
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlRTL
end if
Next
 End Sub

25/07/2016, 08h37
lurrik

Ca marche du tonnerre, merci beaucoup, je vas pouvoir le rendre aujourd'hui sans problème, un grand grand merci !
25/07/2016, 09h10
halaster08

De rien

J'ai oublié un petit détail aussi tu peux changer la couleur, j'ai mis deux nuances de vert mais pas les même que sur tes exemples
Pour changer la couleur, il suffit d'un petit coup d'enregistreur de macro où tu colorie une cellule, ce qui te permet de récupérer le code couleur que tu veux, et ensuite tu remplace dans le code que je t'ai fourni.
25/07/2016, 09h16
lurrik

D'accord et si je veux changer l'heure du début (là elle est initialisé à 12h) mais si je veux que ce soit à 13h ? c'est long à changer ?
J'ai jeté un oeil et j'ai pas trouver comment

Edit: modif du code
J'ai mal compté les cases + petite erreur de logique

normalement ce code est bon:

Code:

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
 Sub test()
 
 
 Dim resultat As String
  Dim resu As String
    Dim deb As Integer
    Dim plage As Range
    Dim tmp() As String, tmr() As String
    Dim erreur As Boolean
 
 resu = InputBox("Donner la date", "Gestion")
     If resu <> "" Then 'Si la valeur est différente de "" on affiche le résultat
        Range("K2").Value = resu
        End If
    For deb = 7 To 102 Step 2
        resultat = InputBox("Donner le nom", "Gestion")
        If resultat = "" Then Exit For 'Si la valeur est différente de "" on affiche le résultat
 
        Range("A" & deb).Value = resultat
 
        heureSaisie = InputBox("Donner le début de l'heure au format xx:xx", "heure")
 
        ' Vérifiaction de la validitée
        If Len(heureSaisie) Then tmp = Split(heureSaisie, ":")
 
        ' Présence de deux ; les valeurs sont numériques
        If UBound(tmp) = 2 Then erreur = Not (IsNumeric(tmp(0)) And IsNumeric(tmp(1)))
 
        heureSaisi = InputBox("Donner la fin de l'heure au format xx:xx", "heure")
 
        ' Vérifiaction de la validitée
        If Len(heureSaisi) Then tmr = Split(heureSaisi, ":")
 
        ' Présence de deux ; les valeurs sont numériques
        If UBound(tmr) = 2 Then erreur = Not (IsNumeric(tmr(0)) And IsNumeric(tmr(1)))
 
       Range(Cells(deb, (tmp(0) - 5) * 2 + 2), Cells(deb, (tmr(0) - 5) * 2 + 2)) = 30
       If tmp(1) < 30 Then
            Cells(deb, (tmp(0) - 5) * 2 + 2) = 30 - tmp(1)
        Else
            Cells(deb, (tmp(0) - 5) * 2 + 2) = 0
            Cells(deb, (tmp(0) - 5) * 2 + 2 + 1) = 60 - tmp(1)
        End If
 
        If tmr(1) < 30 Then
         Cells(deb, (tmr(0) - 5) * 2 + 2) = tmr(1)
        Else
         Cells(deb, (tmr(0) - 5) * 2 + 2 + 1) = tmr(1) - 30
        End If
'si horaires matin uniquement
 If tmr(0) < 13 Then 'je regarde si heure de fin < 12 donc max 12
    Range(Cells(deb, (tmp(0) - 5) * 2 + 2), Cells(deb, (tmr(0) - 5) * 2 + 2)).Select
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5296274
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlRTL
 
    If tmp(1) < 30 Then
        Cells(deb, (tmp(0) - 5) * 2 + 2 + 1).Select
    Else
        Cells(deb, (tmp(0) - 5) * 2 + 2 + 2).Select
    End If
 
     Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5296274
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlLTR
End If
'si horaires apres midi uniquement
 If tmp(0) > 12 Then 'je regarde si heure début >12 donc au moins 13h
    Range(Cells(deb, (tmp(0) - 5) * 2 + 2), Cells(deb, (tmr(0) - 5) * 2 + 2)).Select
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5287936
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlRTL
 
    If tmp(1) < 30 Then
        Cells(deb, (tmp(0) - 5) * 2 + 2 + 1).Select
    Else
        Cells(deb, (tmp(0) - 5) * 2 + 2 + 2).Select
    End If
 
     Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5287936
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlLTR
End If
'si horaires matin et apres midi
 If tmp(0) < 13 And tmr(0) > 12 Then 'début avant 13h et fin après 12h
    Range(Cells(deb, (tmp(0) - 5) * 2 + 2), Cells(deb, 16)).Select 'selection de la zone du matin Cells(deb, 16) normalement c'est la dernière du matin
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5296274
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlLTR
 
    Range(Cells(deb, 17), Cells(deb, (tmr(0) - 5) * 2 + 2)).Select 'selection de la zone du matin Cells(deb, 17) normalement c'est la première de l'après midi
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5287936
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlRTL
End If
Next
 End Sub

edit 2: souci d'orientation des bars aussi

Remodif du code, normalement c'est le bon

Code:

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
 Sub test()
 
 
 Dim resultat As String
  Dim resu As String
    Dim deb As Integer
    Dim plage As Range
    Dim tmp() As String, tmr() As String
    Dim erreur As Boolean
 
 resu = InputBox("Donner la date", "Gestion")
     If resu <> "" Then 'Si la valeur est différente de "" on affiche le résultat
        Range("K2").Value = resu
        End If
    For deb = 7 To 102 Step 2
        resultat = InputBox("Donner le nom", "Gestion")
        If resultat = "" Then Exit For 'Si la valeur est différente de "" on affiche le résultat
 
        Range("A" & deb).Value = resultat
 
        heureSaisie = InputBox("Donner le début de l'heure au format xx:xx", "heure")
 
        ' Vérifiaction de la validitée
        If Len(heureSaisie) Then tmp = Split(heureSaisie, ":")
 
        ' Présence de deux ; les valeurs sont numériques
        If UBound(tmp) = 2 Then erreur = Not (IsNumeric(tmp(0)) And IsNumeric(tmp(1)))
 
        heureSaisi = InputBox("Donner la fin de l'heure au format xx:xx", "heure")
 
        ' Vérifiaction de la validitée
        If Len(heureSaisi) Then tmr = Split(heureSaisi, ":")
 
        ' Présence de deux ; les valeurs sont numériques
        If UBound(tmr) = 2 Then erreur = Not (IsNumeric(tmr(0)) And IsNumeric(tmr(1)))
 
       Range(Cells(deb, (tmp(0) - 5) * 2 + 2), Cells(deb, (tmr(0) - 5) * 2 + 2)) = 30
       If tmp(1) < 30 Then
            Cells(deb, (tmp(0) - 5) * 2 + 2) = 30 - tmp(1)
        Else
            Cells(deb, (tmp(0) - 5) * 2 + 2) = 0
            Cells(deb, (tmp(0) - 5) * 2 + 2 + 1) = 60 - tmp(1)
        End If
 
        If tmr(1) < 30 Then
         Cells(deb, (tmr(0) - 5) * 2 + 2) = tmr(1)
        Else
         Cells(deb, (tmr(0) - 5) * 2 + 2 + 1) = tmr(1) - 30
        End If
'si horaires matin uniquement
 If tmr(0) < 13 Then 'je regarde si heure de fin < 12 donc max 12
    Range(Cells(deb, (tmp(0) - 5) * 2 + 2), Cells(deb, (tmr(0) - 5) * 2 + 2)).Select
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5296274
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlLTR
 
    If tmp(1) < 30 Then
        Cells(deb, (tmp(0) - 5) * 2 + 2).Select
    Else
        Cells(deb, (tmp(0) - 5) * 2 + 2 + 1).Select
    End If
 
     Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5296274
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlRTL
End If
'si horaires apres midi uniquement
 If tmp(0) > 12 Then 'je regarde si heure début >12 donc au moins 13h
    Range(Cells(deb, (tmp(0) - 5) * 2 + 2), Cells(deb, (tmr(0) - 5) * 2 + 3)).Select
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5287936
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlLTR
 
    If tmp(1) < 30 Then
        Cells(deb, (tmp(0) - 5) * 2 + 2).Select
    Else
        Cells(deb, (tmp(0) - 5) * 2 + 2 + 1).Select
    End If
 
     Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5287936
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlRTL
End If
'si horaires matin et apres midi
 If tmp(0) < 13 And tmr(0) > 12 Then 'début avant 13h et fin après 12h
    Range(Cells(deb, (tmp(0) - 5) * 2 + 2), Cells(deb, 17)).Select 'selection de la zone du matin Cells(deb, 17) normalement c'est la dernière du matin
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5296274
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlRTL
 
    Range(Cells(deb, 18), Cells(deb, (tmr(0) - 5) * 2 + 2)).Select 'selection de la zone du matin Cells(deb, 18) normalement c'est la première de l'après midi
    Selection.FormatConditions.AddDatabar
    Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = False
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=30
    End With
    With Selection.FormatConditions(1).BarColor
        .Color = 5287936
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
    Selection.FormatConditions(1).Direction = xlLTR
End If
Next
 End Sub

25/07/2016, 10h48
lurrik

Magnifique :D impécable, un grand merci à toi halaster08 !!!! ;)