Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

heure derniere modif

  • Initiateur de la discussion Philou
  • Date de début
P

Philou

Guest
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!

XLDnaute Barbatruc
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!

XLDnaute Barbatruc
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.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…