ColorIndex

[JORDAN]

Bonjour le Forum,

J'essaye de trouver une solution pour remplir une cellule par la date du jour en fonction de sa couleur.

Voici ce que j'ai fait, et qui ne fonctionne pas naturellement

For I = 1 To 10
If Cells(I, 1).ColorIndex = 53 Then
Cells(I, 10) = Date
End If
Next I

Merci pour toutes infos

 

[Hervé]

Bonjour jordan, le forum

il manque le interior dans ta syntaxe :

If Cells(I, 1).interior.ColorIndex = 53 Then


salut

 

[JORDAN]

Bonjour Hervé, Staple1600

Merci pour vos solutions
Ca fonctionne à merveille

Bonne fin de journée