Désoler, mais je n'y arrive pas
Voila mon code, j'ai insérer le code de J-M, mais ca ne marche pas, et je n'y comprends encore moins qu'avant.
Je vous met le code, si quelqu'un a un peu de temps pour regarder ou je dois insérer le code.
_____________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
Dim maplage As Range
Application.ScreenUpdating = False
If Intersect(Target, Range("Journees")) Is Nothing Then Exit Sub
For Each cell In Worksheets("Saisie").Range("Journees")
Select Case cell.Value
Case Is = "CP-1"
cell.Interior.ColorIndex = 4 '<---numéro de la couleur
Case Is = "CP"
cell.Interior.ColorIndex = 40
Case Is = "ARTT-1"
With cell.Interior
.ColorIndex = 27
'.Pattern = xlLightUp'<---------------là pour le motif
'.PatternColorIndex = 1<--------------là pour le motif
End With
Case Is = "ARTT"
cell.Interior.ColorIndex = 33
Case Is = "Anc"
cell.Interior.ColorIndex = 9 '----
Case Is = "CET"
cell.Interior.ColorIndex = 44
Case Is = "NON"
cell.Interior.ColorIndex = 10
Case Is = "Récup"
With cell.Interior
.ColorIndex = 16
.Pattern = xlLightUp '<-----idem
.PatternColorIndex = 1 '<----- idem
End With
Case Is = "Maladie"
cell.Interior.ColorIndex = 39
Case Is = "Férié"
cell.Interior.ColorIndex = 46
Case Is = "Formation"
With cell.Interior
.ColorIndex = 27
.Pattern = xlLightUp '<------idem
.PatternColorIndex = 1 '<------idem
End With
Case Is = "Inventaire"
cell.Interior.ColorIndex = 23
Case Is = "Admin"
cell.Interior.ColorIndex = 36
End Select
Next
Application.ScreenUpdating = True
End Sub
________________________________________________________________
Merci.