Microsoft 365 Code pour mise en couleur

Marvin57

XLDnaute Occasionnel
Bonjour tout le monde,

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

VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
312 803
Messages
2 092 258
Membres
105 318
dernier inscrit
alberic63