Sujet Précédent Sujet Suivant

Mise a jour de la date apres une modif sur une feuille excel

excel72 -  
Frenchie83 Messages postés 2254 Statut Membre -
Bonjour,

Je souhaite comment faire pour mettre a jour automatiquement la date, affiché sur une feuille excel, apres une modification de cette feuille ??

A voir également:

1 réponse

Réponse 1 / 1
Frenchie83 Messages postés 2254 Statut Membre 339
 
Bonjour
A copier dans le module 'ThisWorkbook" 
Private Sub Workbook_Open()
    Modif = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Modif = True Then ActiveSheet.Range("A1").Value = Format(Date, "dd/mm/yyyy")
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Modif = True
End Sub

La date s'enregistrera automatiquement lors de la fermeture du fichier. Attention j'ai sélectionné la cellule A1 comme emplacement de la date, N'oubliez pas de la changer si ce n'est pas le cas.
cdlt
0