Afficher cellule en rouge si pas de réponse

matteo0701 · 8 Août 2012

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 · 8 Août 2012

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 · 8 Août 2012

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:

Code:

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 · 8 Août 2012

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 · 8 Août 2012

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

Jiheme à dit:
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 · 8 Août 2012

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+

Afficher cellule en rouge si pas de réponse

matteo0701

XLDnaute Junior

Pièces jointes

Jiheme

XLDnaute Accro

VDAVID

XLDnaute Impliqué

ralph45

XLDnaute Impliqué

matteo0701

XLDnaute Junior

ralph45

XLDnaute Impliqué

Pièces jointes

Discussions similaires