Date de modification
Rémi
-
Mabelle60 Messages postés 167 Date d'inscription Statut Membre Dernière intervention -
Mabelle60 Messages postés 167 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaiterais appliquer une formule dans une cellule mais seulement si la feuille de calcule a ete modifié sinon rien ne se passe. La formule a appliquer etant la date
En fait, je voudrais faire apparaitre la derniere date de modification du doc
Je souhaiterais appliquer une formule dans une cellule mais seulement si la feuille de calcule a ete modifié sinon rien ne se passe. La formule a appliquer etant la date
En fait, je voudrais faire apparaitre la derniere date de modification du doc
Configuration: Windows XP Internet Explorer 7.0
7 réponses
-
Bonjour Remi
Je ne sais pas si c'est faisable par formule, mais sous VBA :
Place dans dans this workbook :
Dim modif As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("Feuil1").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub
Sous réserve bien enttendu que tu disposes bien d'une feuille nommée Feuil1 et que tu actives les macros à l'ouverture du classeur (ou bien que les macros soient activée systématiquement). -
ca n'est faisable qu'en programmation visual basic.
tu veux un tuto ?
-
bon ben voila, c'est exactement ce que Mabelle vient de dire...
-
en fait non, je suis pas tout a fait d'accord :
Ce code est a placer dans l'objet ThisWorkbook :
Option Explicit Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets(1).Cells(1, 1).Value = "Modifié le " & Format(Now, "dd/mm/yyyy hh:mm:ss") End Sub
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Effectivement plus simple sauf que si l'enregistrement auto est activé ou si on enregistre par mégarde, la cellule A1 de la feuille est modifiée.
-
-