Date de modification

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
Configuration: Windows XP
Internet Explorer 7.0

7 réponses

  • Votes
  • Date
  • Date décroissante
  1. 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).
    1. ca n'est faisable qu'en programmation visual basic.
      tu veux un tuto ?
      1. bon ben voila, c'est exactement ce que Mabelle vient de dire...
        1. 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
          


          1. 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.
            1. et or VBA possible ou pas?
              1. Mes connaissances excel ne me permettent pas de répondre avec 200% de certitude, mais j'en doute fortement.