VBA calendrier

Bonsoir,
Pour cela tu peux utiliser la mise en forme conditionnelle.

Tu sélectionnes la plage de cellules de ton calendrier soit : "A7:G12" .
Ensuite tu cliques sur "Format" ---> "Mise en forme conditionnelle...", dans la boîte qui s'ouvre dans Condition1, tu choisis :
la valeur de la cellule est / égale à / =$I$4
Tu cliques sur le bouton "Formats...", et tu choisis la police, la couleur et le motif puis OK et encore OK.

Le jour de ton calendrier correspondant au jour contenu dans I4 apparaîtra, alors, avec la mise en forme que tu auras choisie.

Bonne nuit et à+

Bonjour,

Voilà le code à placer dans un module

Sub myDate()
Dim ws As Worksheet
Dim rwIndex As Long
Dim colIndex As Long

    Set ws = Worksheets("Feuil1")
    
    For rwIndex = 7 To 12
    For colIndex = 1 To 7
        With ws.Cells(rwIndex, colIndex)
            If .Value = ws.Range("I4").Value Then
                .Interior.Color = RGB(0, 0, 0)
                .Font.Color = RGB(255, 255, 255)
        End If
        End With
    Next colIndex
Next rwIndex
End Sub

;o)

polux

Merci sa marche bien