Automatisation des DATES

[JOUB 42]

Bonjour à tous,

voici mon problème,

j'ai une cellule (B2) saisie texte
je voudrais que la cellule A2 ce mettent automatiquement à la date de ma saisie ?

Exemple: = SI (A2="0"; "AUJOURDHUI"))
mais le problème avec cette formule la date change le lendemain!...
je voudrais quel reste à la période de la saisie

Je vous remercie pour votre solution

@ + JOUB 42

 

[rem$]

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$

 

[Jean-Marie]

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

 

[JOUB 42]

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