Automatisation des DATES

bonjour a tous, joub42

voici un bout de code qui m'a était donner pour resoudre le meme pb que toi
dans le target range tu mets la plage dans laquelle tu va faire des saisies et target.offset le decalage du nbre de colonne et de ligne pour l'inscription de la date
donc si tu saisies dans la colonne B la date se mettra sur la meme ligne dans la colonne A
voila....

Private Sub Worksheet_Change(ByVal Target As Range)


If Not Application.Intersect(Target, Range("b2:b655536")) Is Nothing Then
Target.Offset(0, -1).Value = Now
If Target.Value = "" Then Target.Offset(0, -1).Value = ""


@+
rem$

Bonjour

Je ne sais pas si cela peut résoudre ton problème, j'ai essayé en utilisant l'option Volatile d'une fonction.

Function DateFigee(vCell As Range) As Date
Application.Volatile (False)
DateFigee = Date
End Function

@+Jean-Marie

MERCI pour t'a rapidité de réponse

je ne suis pas un expert, mais la formule que tu m'a envoyer fonctionne


GRAND MERCI


@ + Joub 42