Microsoft 365 Code pour mise en couleur

[Marvin57]

Bonjour tout le monde,

le code ci-joint sert à se positionner sur la date du jour dans un onglet.

Sub FindDate() ' affiche la ligne de la date du jour à l'ouverture de l'onglet
 
For Each Cell In ActiveSheet.Range("A4:A34")
    If Cell.Value = [Today()] Then
    Cell.Select
    End If
Next
 
End Sub

Cela fonctionne très bien, mais comment je peux lui dire de me mettre la cellule sélectionnée en bleue S'il vous plaît.

Merci d'avance à vous.

Marvin57

 

[Franc58]

Salut, tu ajoutes Cell.Interior.Color = RGB(0, 0, 255)

 

[Marvin57]

Salut, tu ajoutes Cell.Interior.Color = RGB(0, 0, 255)

Bonjour Franc58,

Merci pour cette aide, fonctionne comme voulu.

Moi j'avais essayé avec Cell.Backcolor = RGB(0, 0, 255), mais cela ne fonctionnait pas !

Bonne journée.

Marvin57