Colorer une plage de cellule suivant une valeur

[AlphaB]

Bonjour tout le monde,
J'ai un projet sur la gestion des congés des employés, pour cela j'ai divisé l'année en six périodes. Je voudrais maintenant que dans mon tableau que quand je tape 1 que la plage qui correspond a la première période soit coloré.
Quelqu'un pourrait m'aider?

 

[noviceAG]

Re : Colorer une plage de cellule suivant une valeur

Bonjour AlphaB, le Forum,

Mfc Sélectionner ta zone puis :
=$B$7=1
Puis changer la valeur 1
Cordialement

 

[kjin]

Re : Colorer une plage de cellule suivant une valeur

Bonjour,
Macro événementielle à mettre dans le module de "sheet1"
J'ai supposé que tu mettais le numéro en B7:B17

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("B7:B17"), Target) Is Nothing Then
    Range("C5:N17").Interior.ColorIndex = xlNone
    For Each cel In Range("C5:M5")
        If Left(cel, 1) = CStr(Target) Then
        Range(Cells(5, cel.Column), Cells(17, cel.Column + 1)).Interior.ColorIndex = 36
        End If
    Next
End If
End Sub