Afficher cellule en rouge si pas de réponse

[matteo0701]

Bonjour,

Je souhaite crée une mise en forme conditionnelle de telle sorte que si 15 jours après l'envoi de mon courrier je n'ai pas de réponse, alors la cellule Reception se mettre en rouge (Voir la pj)

Je pense que c'est faicle pour vous mais là je sèche

merci bcp

 

[Jiheme]

Re : Afficher cellule en rouge si pas de réponse

Bonjour Mattéo, re à tous

La formule de ta MFC :

=$B7+15<AUJOURDHUI()

A+

 

[VDAVID]

Re : Afficher cellule en rouge si pas de réponse

Bonjour Matteo0701,

Un exemple par macro, en mettant ce code dans le projet VBA de la feuille concernée:

Private Sub Worksheet_Activate()
Jour = Date
Dim Cel As Range
Dim myRange As Range
Set myRange = Range("B7:B7") 'Plage de données concernée à modifier
For Each Cel In myRange
If Jour - Cel.Value > 15 Or Jour - Cel.Value = 15 Then
Cel.Offset(0, 1).Interior.ColorIndex = 3
End If
Next Cel
End Sub

Bonne journée

EDIT: Bonjour Jiheme

Edit Edit: Bonjour Ralph !

 

[ralph45]

Re : Afficher cellule en rouge si pas de réponse

Bonjour matteo0701, Jiheme, le forum,

Sous 2003, sélectionner la cellule C7, puis mise en forme conditionnelle "La formule est :"

=ET($B7+15<AUJOURDHUI();OU($C7="";$C7=0))

Puis tirer vers le bas...

A+
EDIT : bonjour VDAVID !

 

[matteo0701]

Re : Afficher cellule en rouge si pas de réponse

Bonjour Mattéo, re à tous

La formule de ta MFC :

=$B7+15<AUJOURDHUI()

A+

merci
j'avais juste oublié de dire que si B7 était vide alors C7 restait aussi vide

 

[ralph45]

Re : Afficher cellule en rouge si pas de réponse

Re,

En complément, suite au post#5 :

=ET($B7<>"";$B7<>0;ET($B7+15<AUJOURDHUI();OU($C7="";$C7=0)))

A+