XL 2016 Couleur de cellule

[Gerantoine]

Bonjour a tous,
Sur la ligne C10:H10 j'ai des dates dans chacune des cellules. Je souhaiterais les remplir en rouge à la date indiquée dans ces cellules et je voudrais que cette couleur disparaisse lorsque je rempli chacune des cellules de la ligne C11:H11
Dans l'attente de vous lire
Cordialement

 

[ERIC S]

Bonjour
rouge si date dépassée et cellule du dessous non remplie, orange pour date du jour
les formules sont dans "mise en forme conditionnelle" puis "gérer les règles"
si j'ai bien compris ton problème

 

[Lone-wolf]

Bonjour Gerantoine

À mettre dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plageDate As Range, plageInfos As Date, celD As Range, celI As Range

Application.EnableEvents = False

Set plageDate = Range("c10:h10")
Set plageInfo = Range("c11:h11")

For Each celD In plageDate
If celD.Value = Date Then celD.Interior.Color = vbRed
For Each celI In plageInfos
If celI <> "" And celD.Interior.Color = vbRed Then celD.Interior.Color = xlNone
Next celI
Next celD

Application.EnableEvents = True

End Sub

EDIT: Bonjour Eric