1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| DernLigne = Range("A" & Rows.Count).End(xlUp).Row
DernColonne = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For col = 3 To Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Cells(Rows.Count, col).End(xlUp).Offset(1, 0) = Application.Average(Range(Cells(2, col), Cells(DernLigne + 1, col)))
If IsError(Cells(DernLigne + 1, col).Value) = False Then
Cells(Rows.Count, col).End(xlUp).Offset(1, 0) = Cells(DernLigne + 1, col).Value + (Cells(DernLigne + 1, col).Value) / 2
For Each cel In Range(Cells(2, col), Cells(DernLigne, col)).Cells
If cel.Value > Cells(DernLigne + 2, col).Value Then cel.Interior.ColorIndex = 3
Next
End If
Next |
Partager