Couleur de fond dans cellules

Bonsoir à tous.

je suis sous excel 2003, dans le fichier joint il y a en col A des dates, je souhaite appliquer une couleur de fond différente pour les jours suivants Lundi Mercredi sur une période :Exemple du 1/07/2017 au 31/08/2017.

Et pour le Vendredi uniquement sur la période suivante Ex: 1/09/2017 au 31/10/2017.

J' utilise une macro qui fonctionne pour Lundi et Mercredi mais je n'arrive pas a trouver la solution pour le vendredi.

Mes compétences en VBA sont nulles, je vous sollicite pour m' apporter de l' aide.

Bonne soirée à tous.

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonsoir,

Sub essai()
    Dim n%, i%, ddLM, dfLM, ddV, dfV
    ddLM = DateSerial(2017, 7, 1): dfLM = DateSerial(2017, 8, 31)
    ddV = DateSerial(2017, 8, 1): dfV = DateSerial(2017, 10, 31)
    With ActiveSheet
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        Application.ScreenUpdating = False
        For i = 4 To n
            With .Cells(i, 1)
                Select Case Weekday(.Value)
                    Case 2, 4
                        If .Value >= ddLM And .Value <= dfLM Then
                            .Interior.ColorIndex = IIf(Weekday(.Value) = 2, 39, 38)
                        End If
                    Case 6
                        If .Value >= ddV And .Value <= dfV Then
                            .Interior.ColorIndex = 42
                        End If
                End Select
            End With
        Next i
    End With
End Sub

NB- Tu aurais encore pu le faire par MFC, tu restes dans la limite de 3 MFC appliquées à une cellule (limite sous 2003).

Cordialement.

edit : Salut gmb ! Pas vu ta réponse avant de poster...

Bonjour Gmb et MFerrand.

Bravo pour votre réactivité, vos macros fonctionnent très bien.

Un grand merci pour votre aide si précieuse.

Je vous souhaite une bonne journée et de très bonnes fêtes en cette fin d' année 2017.

Bernard.