Appliquer une couleur automatiquement en fonction d'une date

Effectivement avec un END SUB ça va mieux

SInon la formule pour ne rien afficher en cas de non date cré un "1"

Bon alors, voilà je viens de tester un peu tout ça. C'est pas mal du tout, je touche au but on va dire.

Maintenant, je te confirme, il faudrait que les couleurs changent toutes seules. C'est le cas lorsqu'on fait une nouvelle entrée, mais si l'on modifie cette date on est obligé de double cliquer sur la case pour qu'elle change de couleur. Il se trouve que les dates qui figurent dans ma colonne je ne les écrit pas directement dans ce tableau, elles sont le renvoie de d'autre feuilles et elles changent au fils des jours. Du coup, si le changement de couleur n'est pas dynamique, dès lors les couleurs deviennent fausses ;(

Sans compter que même si les dates ne changent pas en elle même, le simple fait que le temps passe au fil des jours devraient changer la couleur des dates, et si le changement dynamique n'est pas là, ça ne sera pas le cas.

Re le forum

Arno, peut-être avec ceci

Private Sub Worksheet_Calculate()
Dim Cellule as Range
For Each Cellule In Range("AA2:AA" & Range("AA65536").End(xlUp).Row+1)
With Cellule
Select Case .Offset(0, 1)
Case 0
.Interior.ColorIndex = 6
Case 1
.Interior.ColorIndex = 8
Case 2
.Interior.ColorIndex = 44
Case 3
.Interior.ColorIndex = 3
Case 4
.Interior.ColorIndex = 53
Case Is > 4
.Interior.ColorIndex = 13
End Select
End With
Next Cellule
End Sub

Pour ne pas mettre de couleur si les nombres négatifs

Private Sub Worksheet_Calculate()
Dim Cellule As Range
For Each Cellule In Range("AA2:AA" & Range("AA65536").End(xlUp).Row+1)
With Cellule
Select Case .Offset(0, 1)
Case 0
.Interior.ColorIndex = 6
Case 1
.Interior.ColorIndex = 8
Case 2
.Interior.ColorIndex = 44
Case 3
.Interior.ColorIndex = 3
Case 4
.Interior.ColorIndex = 53
Case Is > 4
.Interior.ColorIndex = 13
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
Next Cellule
End Sub

Mytå

Edition : Modification dans le code Range("AA65536").End(xlUp).Row+1

je test

je te RE-MER-CI

Bravo à vous deux, c'est parfait

Re le forum

Arno n'oublie pas cette formalité

• Dès que votre problème est résolu, merci de le marquer en tant que [Résolu]
  grâce à l'utilitaire se trouvant en bas de page, aperçu :

Mytå

P.S. Attention le code de la macro à été modifiée pour éviter les lignes vides

La formule pour ne pas mettre de couleur si pas de date, avec le deuxième code (Macro)

=SI($AA2="";-999;(ENT(MOD(ENT(($AA2-2+(JOURSEM(1)=7)*6)/7)+0,6+((JOURSEM(1)=7)*208);52+5/28))+1)-(ENT(MOD(ENT((AUJOURDHUI()-2+(JOURSEM(1)=7)*6)/7)+0,6+((JOURSEM(1)=7)*208);52+5/28))+1))