heure derniere modif

[Philou]

Bonjour à toutes et tous,

J'ai un classeur qui me sert de ' logiciel de caisse ', et qui fonctionne très bien.

Mais.... il y a toujours un mais.

j'aimerais ( c'est parfois utile de le savoir ) avoir dans une cellule l'heure de la derniere modification dans la feuille.

Information importante : afin de ne pas perdre mes données en cas de panne de courant, mon classeur est enregistré automatiquement toutes les 5 minutes.

En clair, je devrais pouvoir savoir à quelle heure un client a payé.

J'ai déjà fait des essais ( mais je n'y arrive pas ), le prob est que l'heure se mets à jour dès que je réouvre une feuille.

Un tout grand merci à celle ou et celui qui saura m'aider.

Philou

 

[myDearFriend!]

Bonjour Philou,

Tu peux peut-être essayer ce code dans l'objet ThisWorkbook de ton classeur :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
      Sh.Range('A1').Value = 'Dernière modif : ' & Now
End Sub

La date et l'heure de chaque modif seront consignées dans la cellule A1 de chaque feuille.

Cordialement.

Message édité par: myDearFriend!, à: 19/03/2005 10:59

 

[myDearFriend!]

Re

Tu peux même connaître l'adresse de la cellule modifiée :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
      Application.EnableEvents = False
      Sh.Range('A1').Value = 'Dernière modif : ' & Now & ' (Cellule : ' & Target.Address & ')'
      Application.EnableEvents = True
End Sub

Cordialement.

 

[Philou]

Super,

Un grand merci, c'est très exactement ce qu'il me fallait.


Bon week end à tous


Philou