couleur + traitement automatique

[arvin]

bonjour à tous ,

je reviens sur ce petit souci qui trouvera réponse je l'espère : je souhaiterai qu'une macro s'éxécute à chaque fermeture du classeur : elle aurait pour but de mettre en couleur (rouge par exemple, en gras aussi cela serait bien !) toutes cellules qui comporteraient une date ....

j'ai été dans le moteur du forum mais pas de réponse àmon bonheur

qu'en pensez vous ?

merci à tous et bonne soirée (ou vacances)

 

[olive2.5]

Salut arvin,

Peux-tu joindre un fichier ou un exemple que ce soit plus explicite stp ?

 

[arvin]

re !

j'ai essayé cette macro mais cela ne fonctionne pas .....


Sub couleur()

Cells.Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:='37987', Formula2:='38352'
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = True
.ColorIndex = 3
End With
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:='38353', Formula2:='38717'
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
.ColorIndex = 5
End With
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
Formula1:='37987'
With Selection.FormatConditions(3).Font
.Bold = True
.Italic = False
.ColorIndex = 10
End With
End Sub