Date en rouge quand elle approche
Résolu
Bonjour,
Je souhaiterais mettre en place quelque chose qui fasse que lorsque la date inscrite dans la cellule approche de la date du jour, celle ci devienne rouge pour qu'elle ressorte bien.
Que se soit disons une semaine, un mois, ou même encore que la date soit déjà passé, si il m'était possible de choisir un code couleur pour chaque ça serait top ( disons vert pour une mois, orange pour une semaine, et rouge quand la date est celle du jour ou est passé)
J'utilise excel 2010
Je souhaiterais mettre en place quelque chose qui fasse que lorsque la date inscrite dans la cellule approche de la date du jour, celle ci devienne rouge pour qu'elle ressorte bien.
Que se soit disons une semaine, un mois, ou même encore que la date soit déjà passé, si il m'était possible de choisir un code couleur pour chaque ça serait top ( disons vert pour une mois, orange pour une semaine, et rouge quand la date est celle du jour ou est passé)
J'utilise excel 2010
3 réponses
-
ContributeurBonjour
sélectionnez le champ à traiter
Ruban / Accueil / Mise en forme conditionnelle
"nouvelle règle" et "utiliser une formule..."
la formule à entrer dans le cadre:
=A1<AUJOURDHUI()+5
cliquez sur format / Formatez et OK
revenez à la fenêtre de MFC / "nouvelle régle"
rajouter la règle qui correspond au tampon que vous souhaitez
et même opération
attention les règles s'appliquent dans le sens où elles sont placées dans la liste de la fenêtre. Utilisez les flèches ascenseur pour les placer dans le bonne ordre
crdlmnt
-
bonsoir
Ou par VBA
Dans l'exemple pour les cellules de A1 à A100Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cell As Range
For Each Cell In Range("A1:A100")
If Cell = "" Then
Cell.Interior.ColorIndex = xlNone
ElseIf Cell >= Date Then
Cell.Interior.ColorIndex = 3
ElseIf Cell <= Date - 1 And Cell > Date - 7 Then
Cell.Interior.ColorIndex = 46
ElseIf Cell <= Date - 7 Then
Cell.Interior.ColorIndex = 4
End If
Next
End Sub
A+ -
Merci pour vos réponses,
J'ai essayer tout d'abord celle de M.Vaucluse et le résultat est que la date s'affiche en rouge immédiatement et ce pour n'importe quelles dates, je pense donc que je n'ai pas réussi à la mettre en place correctement.
Ayant peu de base sur excel, un exercice simple peut rapidement devenir compliqué.
La solution proposé par lynyrd1960 me donne un résultat immédiat, mais je ne sait comment adapté la formule à mes cellules, j'ai plusieurs cellules qui sont séparer d'autre ( B6 à B10, B17, C4 à C8, ...) pouvez vous m'expliquer comment m'y prendre pour adapter le code ?
pouvez vous aussi m'expliquer comment changer les dates ainsi que les couleurs car ce que je souhaite est que par exemple :
Nous sommes aujourd'hui le 12/03/2014
que toutes les dates antérieurs à partir du 12/03/2014 inclus soit en rouge
que toutes celles compris entre le 13/03/2014 et le 19/03/2014 soit en orange
que toutes celles compris entre le 20/03/2014 et le 13/04/2014 soit en vert
et que toutes celles qui soit plus loin que le 13/04/2014 n'ai pas de couleur particulières.
En vous remerciant-
ContributeurBonsoir
en fait il manquait effectivement une info dans ma proposition, qui passait en rouge toutes les cellules inférieures, même vide. Reprenons donc en fonction de votre liste:
que toutes les dates antérieurs à partir du 12/03/2014 inclus soit en rouge
=ET(A1<>"";A1<=AUJOURDHUI())
que toutes celles compris entre le 13/03/2014 et le 19/03/2014 soit en orange
=ET(A1<>"";A1>AUJOURDHUI();A1<=AUJOURDHUI()+7)
que toutes celles compris entre le 20/03/2014 et le 13/04/2014 soit en vert
=ET(A1<>"";A1>AUJOURDHUI();A1<AUJOURDHUI()+30)
ou pour être plus précis selon le nombre de jours du mois
=ET(A1<>"";A1>AUJOURDHUI();A1<DATE(ANNEE(A1);MOIS(A1)+1;JOUR(A1)))
et que toutes celles qui soit plus loin que le 13/04/2014 n'ai pas de couleur particulières.
donc rien
Attention bien placer les MFC dans cet ordre pour qu'elles s'appliquent correctement (utilisez les flêches ascenseur de la fenêtre de MFC pour les placer
Crdlmnt -
-
-
