Date de modification
Rémi
-
Mabelle60 Messages postés 492 Date d'inscription Statut Membre Dernière intervention -
Mabelle60 Messages postés 492 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
A voir également:
- Date de modification
- Suivi de modification word - Guide
- Airpods 3 date de sortie - Guide
- Jm date avis - Forum Consommation & Internet
- Jm date - Forum Consommation & Internet
- Nombre de jours entre deux dates excel - Guide
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).
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).
en fait non, je suis pas tout a fait d'accord :
Ce code est a placer dans l'objet ThisWorkbook :
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.
