Date invariable dans le temps.

Fermé
airev Messages postés 138 Date d'inscription lundi 18 avril 2011 Statut Membre Dernière intervention 8 octobre 2022 - 18 nov. 2013 à 09:26
airev Messages postés 138 Date d'inscription lundi 18 avril 2011 Statut Membre Dernière intervention 8 octobre 2022 - 29 mars 2014 à 17:39
Bonjour,
voila!

Dans la cellule A1 j'ai saisi une valeur "X" et automatiquement dans la cellule A2 s'affiche la date du jour de la saisit. soit le jour J

Mon problème est qu'a Jour J+1 quand je ré-ouvre le même fichier, la date de la cellule A2 ce mettra automatiquement a Jour J+1 au lieu de rester au jour J qui est la date de sa saisi.

Je souhaite donc, que peu importe les jours suivant ou je ré-ouvrirai le fichier, la date de la cellule A2 doit reste sur le date du jour J


Je peu pas utiliser cette formule, peut etre est t'elle incomplete.
=SI(ESTVIDE(A1);"";AUJOURDHUI())

Cordialement,
airev


3 réponses

g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 572
18 nov. 2013 à 09:58
Bonjour,

Il faut passer par VBA.
Code à copier dans le module de feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Range("A1") <> "" Then
Range("A2").Value = Date
End If
End Sub
Cordialement.
2
airev Messages postés 138 Date d'inscription lundi 18 avril 2011 Statut Membre Dernière intervention 8 octobre 2022 13
18 nov. 2013 à 12:04
merci, sa fonctionne.
mais je viens de me rendre compte d'un truc, j'ai voulu simplifier dans mon exemple, mais en réalité c'est la colonne A qui reçoit des valeurs, et la colonne B la date.

Vu que je ne touche pas du tout en VBA quel serait les nouvelles ligne d'écriture? svp

merci encore
airev
0
Lentzouille Messages postés 670 Date d'inscription mardi 27 septembre 2011 Statut Membre Dernière intervention 11 septembre 2020 63
18 nov. 2013 à 12:17
Bonjour,

Tu remplaces A2 par B1

Cordialement,
0
airev Messages postés 138 Date d'inscription lundi 18 avril 2011 Statut Membre Dernière intervention 8 octobre 2022 13
Modifié par airev le 18/11/2013 à 13:24
c'est pas le problème!
le problème, est quel est le bon code pour une colonne, et non plus une cellule.

-si les cellules de la colonne A ont une valeur,, alors les cellules d'en face dans la colonne B ont la date.
cordialement,
0
g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 572
18 nov. 2013 à 13:17
Private Sub Worksheet_Change(ByVal Target As Range)
i = Target.Row
If Target.Column = 1 Then
Cells(i, 2).Value = Date
End If
End Sub
0
airev Messages postés 138 Date d'inscription lundi 18 avril 2011 Statut Membre Dernière intervention 8 octobre 2022 13
18 nov. 2013 à 13:27
Piiinaise,, sa marche!! :)
trop fort!
Merci G

a+
airev
0
jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 422
18 nov. 2013 à 10:08
Bonjour

=SI(ESTVIDE(A1);"";AUJOURDHUI())
Tu remplaces aujourd'hui par maintenant
Cordialement
0
airev Messages postés 138 Date d'inscription lundi 18 avril 2011 Statut Membre Dernière intervention 8 octobre 2022 13
18 nov. 2013 à 11:54
merci, mais je viens de tester, le problème est le même.
a+
airev
0
g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 572
18 nov. 2013 à 11:47
Bonjour,

MAINTENANT() comme AUJOURDHUI() sera mis à jour à chaque réouverture du classeur.

Cordialement.
0