Salut André, Re Olivier (on s'est croisé en Chat), le Forum
Donc voilà une proposition qui devrait marcher, le principe est que toutes les cellules entre "A1" et "A10" (incluses) vont subir ce traitement (changer le code, of course pour une autre plage)
Si ce n'est pas une valeur représentant une Date rien ne se passera, si c'est une date la valeur ">" y sera ajoutée...
Code à mettre dans le Private Module de La Feuille concernée
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TheDate As String
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
If Not IsDate(Target.Value) Then Exit Sub
Application.EnableEvents = False
TheDate = ">" & Target.Value
Target.Formula = TheDate
Application.EnableEvents = True
End If
End Sub
Bon Dimanche à Tous et Toute et Bon Chat pour ceux/celles qui y sont !
@+Thierry