XL 2013 changement de couleur de cellules si depassement de temps

zergo à dit:

Bonjour
Merci pour la macro.
c'est tout à fait impeccable il me reset à l' adapter à mon fichier.

Merci

Cliquez pour agrandir...

fanfan38 à dit:

Bonjour
En l'absence de fichier...
Boucle pour mettre les couleurs dans la colonne 1

Code:

Sub couleur()
Dim i As Long, derlig As Long
derlig = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To derlig
   Select Case Cells(i, 1).Value
     Case 0.625 To 0.999305556
       Cells(i, 1).Interior.ColorIndex = 6
     Case 1 To 1.999305556
       Cells(i, 1).Interior.ColorIndex = 45
     Case Is > 1.999305556
       Cells(i, 1).Interior.ColorIndex = 3
     Case Else
       Cells(i, 1).Interior.ColorIndex = 0
   End Select
Next
End Sub

pour modif lors de la saisie

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Long
  If Target.Column > 1 Then Exit Sub
  i = Target.Row
   Select Case Cells(i, 1).Value
     Case 0.625 To 0.999305556
       Cells(i, 1).Interior.ColorIndex = 6
     Case 1 To 1.999305556
       Cells(i, 1).Interior.ColorIndex = 45
     Case Is > 1.999305556
       Cells(i, 1).Interior.ColorIndex = 3
     Case Else
       Cells(i, 1).Interior.ColorIndex = 0
   End Select
End Sub

A+ François

Cliquez pour agrandir...