Figer une date

Staple1600

XLDnaute Barbatruc

• 16 Septembre 2010

• #2

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

Cliquez pour agrandir...

 

Dernière édition: 16 Septembre 2010

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 16 Septembre 2010

• #3

Re : Figer une date

Bonsoir le fil 🙂, Calvus 🙂

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

Code:

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

@ +

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 16 Septembre 2010

• #4

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

 

Dernière édition: 16 Septembre 2010

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 16 Septembre 2010

• #5

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":

Code:

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

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 16 Septembre 2010

• #6

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

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 16 Septembre 2010

• #7

Re : Figer une date

Re,

Merci à tous pour vos réponses.

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

Bonne soirée

 

Vote positif 0 Vote négatif