Date en rouge quand elle approche

Résolu/Fermé
Narwe Messages postés 101 Date d'inscription jeudi 30 janvier 2014 Statut Membre Dernière intervention 8 février 2023 - 10 mars 2014 à 16:41
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 - 13 mars 2014 à 16:24
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

3 réponses

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 394
10 mars 2014 à 17:31
Bonjour
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

0
lynyrd1960 Messages postés 207 Date d'inscription jeudi 26 janvier 2012 Statut Membre Dernière intervention 30 juin 2023 244
11 mars 2014 à 00:08
bonsoir
Ou par VBA
Dans l'exemple pour les cellules de A1 à A100
Private 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+
0
Narwe Messages postés 101 Date d'inscription jeudi 30 janvier 2014 Statut Membre Dernière intervention 8 février 2023 1
12 mars 2014 à 18:40
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
0
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 394
Modifié par Vaucluse le 12/03/2014 à 19:50
Bonsoir
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
0
Narwe Messages postés 101 Date d'inscription jeudi 30 janvier 2014 Statut Membre Dernière intervention 8 février 2023 1
13 mars 2014 à 14:24
Je vous remercie pour votre réponse, celle-ci est très complète et réponde parfaitement à ce que je souhaitais.

Bien à vous
0
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 394
13 mars 2014 à 16:24
Bonjour Narwe
pas de quoi, je passe le sujet en résolu
Bonne route
Crdlmnt
0