date modification

[ltbg]

Bonjour

Je souhaiterais inserer dans une cellule la date de modification.
Cette date devra changer uniquement en cas de modification et non ouverture.

merci

 

[tontoncarton]

re bonjour ,

pas tres facile de t'aider sans autre explications , mais si tu as un bouton modifier alors tu choisis la cellule qui est egale a 'date'

ex :range('a1')=date

@ +

 

[andré]

Salut,

Pas moyen de le faire par formule !

Voici une macro de jmps, qui modifie la date en colonne E à chaque modification d'une valeur de la ligne concernée.
A toi de l'adapter (moi, j'en suis incapable - lol).

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then
Range('$E$' & Target.Row).Value = Date
End If
End Sub

Â+

 

[dg62]

Bonjour le fil


Voici une solution proposée sur le site excelabo :

Ce lien n'existe plus

Cela correspond exactement à ta requête.

 

[Shining Hawk]

Hug le fil,ltbg

tu peux aussi essayer:

Set fso = CreateObject('Scripting.FileSystemObject')
Set fic = fso.GetFile(ThisWorkbook.FullName)
Range('A1').Value = fic.DateLastModified
Set fso = Nothing
Set fic = Nothing

A+