Sub Colorer_compter()
Dim c As Range
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
Range("c:l").Interior.ColorIndex = xlNone: Range("m:n") = ""
For Each c In Range("c:l").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
If c = "Louis" Then
c.Resize(, 2).Interior.Color = 10284031
c.MergeCells = False
c.Offset(1, 0).Resize(, 2).Interior.Color = RGB(255, 218, 101): c.Offset(1, 0).Resize(, 2).Font.Color = RGB(0, 0, 0)
If c.Offset(1, 0) = "" Then c.Offset(1, 0) = "1 place"
If c.Offset(1, 1) = "" Then c.Offset(1, 1) = "1 place"
End If
If c = "Sonia" Then
c.Resize(, 2).Interior.Color = 11851260
c.MergeCells = False
c.Offset(1, 0).Resize(, 2).Interior.Color = RGB(0, 176, 240): c.Offset(1, 0).Resize(, 2).Font.Color = RGB(255, 255, 255)
If c.Offset(1, 0) = "" Then c.Offset(1, 0) = "1 place"
If c.Offset(1, 1) = "" Then c.Offset(1, 1) = "1 place"
End If
If c = "France" Then
c.Resize(, 2).Interior.Color = 13561798
c.MergeCells = False
c.Offset(1, 0).Resize(, 2).Interior.Color = RGB(208, 0, 0): c.Offset(1, 0).Resize(, 2).Font.Color = RGB(255, 255, 255)
If c.Offset(1, 0) = "" Then c.Offset(1, 0) = "1 place"
If c.Offset(1, 1) = "" Then c.Offset(1, 1) = "1 place"
End If
If c = "Thierry" Then
c.Resize(, 2).Interior.Color = 6750156
c.MergeCells = False
c.Offset(1, 0).Resize(, 2).Interior.Color = RGB(251, 81, 5): c.Offset(1, 0).Resize(, 2).Font.Color = RGB(0, 0, 0)
If c.Offset(1, 0) = "" Then c.Offset(1, 0) = "1 place"
If c.Offset(1, 1) = "" Then c.Offset(1, 1) = "1 place"
If c = "Louis" Or c = "Sonia" Or c = "France" Or c = "Thierry" Then c.MergeCells = True
End If
Next
For Each c In Range("b:b").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
If c = "Eval." Then
c.Offset(, 1).Resize(4, 10).Name = "ici"
c.Offset(, 11) = "Evaluation(s)"
c.Offset(, 12).FormulaR1C1 = "=COUNTIF(RC[-11]:R[3]C[-2],"">0"")"
c.Offset(1, 12).Offset(-3, -1) = "Disponible(s)"
c.Offset(1, 12).Offset(-3, 1).Offset(, -1).FormulaR1C1 = "=COUNTIF(R[-1]C[-11]:R[2]C[-2],""1 place"")"
End If
If c = "Rétro." Then
With c.Offset(, 1).Resize(6, 10).Font: .Italic = -1: End With
With c.Resize(6, 11).Interior: .Pattern = xlGray8: .PatternColor = RGB(75, 172, 198): End With
End If
Next
For Each c In Range("c:l").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
If c.Interior.ColorIndex = xlNone And Not IsDate(c) Then c = ""
If c = "Thierry" Or c = "Louis" Or c = "France" Or c = "Sonia" Then
With c: .Resize(, 2).Merge: .Font.Bold = True: .Interior.ColorIndex = xlNone: End With
End If
Next
On Error Resume Next
For Each c In ActiveSheet.UsedRange
If IsDate(c) Then
If Weekday(c) = 7 Or Weekday(c) = 1 Then
c.Interior.ColorIndex = 3
End If
End If
Next c
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub