Figer une date

[Calvus]

Bonsoir,

Est il possible de figer une date ?

J'explique. Je voudrais noter sur une feuille, ou plusieurs, un moment de modification.
J'ai pensé par exemple, à : si(a1=1;aujourdhui())

Le problème est que demain, j'aurai la date de demain....

Peut on donc figer le date du jour ?

Evidemment, je suppose que la formule aujourdhui() n'est pas la solution, seule en tout cas.

Merci.

 

[Staple1600]

Re : Figer une date

Bonsoir Calvus


Sujet déjà présent sur le forum

Un petit coup de ceci et tu trouveras réponse à ta question 😉

Sans oublier aussi ...

Liens des DISCUSSIONS SIMILAIRES (tout en bas de la page)
1 2 3 4 5

 

[mth]

Re : Figer une date

Bonsoir le fil 🙂, Calvus 🙂

un essai de code, à chaque changement de la feuille (si c'est ça ?)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 [B1] = Date
End Sub

@ +

 

[Calvus]

Re : Figer une date

Bonsoir, bonsoir Staple Mth 🙂

Je viens de trouver, je n'avais pas vu à ma 1ère recherche.

C'est une formule d'Hoerwind

=SI(E6="";"";SI(CELLULE("adresse")=CELLULE("adresse";E6);MAINTENANT();D6))

Je vais essayer maintenant de décrypter pour adapter correctement.

Merci à vous.

Bonne soirée.

Edit : Merci Yann

 

[YANN-56]

Re : Figer une date

Bonsoir Calvus, Staple, et à ceux qui passeront par ici,

Tu peux aussi garder en mémoire cet instant dans l'une des propriétés du Classeur,
comme ici en l'écrivant dans la rubrique "Mots-Clés":

With ThisWorkbook
   .Keywords = CDec(CDate(Date) + CDate(Time))
   .Save
End With

Par la suite, en cherchant un peu, tu trouveras bien comment le récupérer,
et si besoin le traduire en format "16 septembre 2010" et "22 h 31"

Amicalement

Yann

 

[néné06]

Re : Figer une date

Bonsoir le forum, bonsoir calvus.
de mon coté, je procede ainsi pour noter la date de la derniere modif

Private Sub inscription_date_derniere_modification_en_excel_et_TB()

'rem je place en "fsigna" (cb2, 5) la valeur de la cellule en "para" cell(2,7) qui a pour valeur Aujourdhui()

Sheets("fsigna").Cells(Me("Combobox1").ListIndex + 2, 5).Value = Sheets("para").Cells(2, 7).Value
End Sub

A voir si cela te convient?

cordialement

 

[Calvus]

Re : Figer une date

Re,

Merci à tous pour vos réponses.

Je n'ai que l'embarras du choix. 🙂

Bonne soirée