Mise en forme conditionnelle

*Bonjour Guy72*,
Tout depend de ce que contient la cellule...
De plus, avec un format conditionel, tu n'a droits qu'a trois
conditions.
Il faudra surement regarder du coté événements :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
'Cas du lour en toutes lettres
Select Case Target
Case Is = "Lundi": Target.Interior.ColorIndex = 3
Case Is = "Mardi": Target.Interior.ColorIndex = 4
Case Is = "Mercredi": Target.Interior.ColorIndex = 5
Case Is = "Jeudi": Target.Interior.ColorIndex = 6
Case Is = "Vendredi": Target.Interior.ColorIndex = 7
Case Is = "Samedi": Target.Interior.ColorIndex = 8
Case Is = "Dimanche": Target.Interior.ColorIndex = 9
End Select
'Cas d'une date
If IsDate(Target) Then
Select Case Weekday(Target)
Case Is = 2: Target.Interior.ColorIndex = 3 '"Lundi"
Case Is = 3: Target.Interior.ColorIndex = 4 '"Mardi"
Case Is = 4: Target.Interior.ColorIndex = 5 '"Mercredi"
Case Is = 5: Target.Interior.ColorIndex = 6 '"Jeudi"
Case Is = 6: Target.Interior.ColorIndex = 7 '"Vendredi"
Case Is = 7: Target.Interior.ColorIndex = 8 '"Samedi"
Case Is = 1: Target.Interior.ColorIndex = 9 '"Dimanche"
End Select
End If
End Sub

Bonjour,
Je voudrais mettre un format avec la condition suivante:
Exemple : Motif rouge (Lundi).....Motif vert(Mardi)....etc.
Je met la formule ="Lundi" rien ne se passe, pourquoi ?
Je suppose que ce n'est pas ça qu'il faut mettre.
Cordialement
Guy

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O