Date du jour dans l'onglet concerné

Résolu
DodoMichelle -  
 DodoMichelle -
Bonjour,

Je souhaiterais dans un fichier Excel ci dessous ( vierge) que chaque fois que je modifie un onglet , la date de modification s'incrémente automatiquement en cellule A1 par exemple.

Exemple: si je fais une modif dans l'onglet avril le 08/03, la date du 08/03 apparaît uniquement dans l'onglet avril en cellule A1

Merci de votre aide.
Cdlmnt
Dodo

https://www.cjoint.com/c/LCisAytymkK

Configuration: Windows / Chrome 99.0.4844.51
A voir également:

8 réponses

Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Bonjour,

Afficher l'heure dans une cellule ne pose pas de problème, par contre si on écrit un code il faut savoir qu'elle cellules sont sous contrôle sinon chaque fois que tu interviendras dans une cellule la date changera,
l'autre problème est que si tu fais une erreur un code VBA ne permet pas d'annuler la dernière action, pour revenir en arrière la seule solution est de fermer le fichier sans l'enregistrer

sinon dans la Thiswokbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
[A1] = Now
End Sub

0
Raymond PENTIER Messages postés 58990 Date d'inscription   Statut Contributeur Dernière intervention   17 354
 

Bonjour Dodo.

" chaque fois que je modifie un onglet " ! Je me dois de te rappeler, pour toi et pour les débutants en Excel qui liront cette discussion, que l'onglet c'est juste l'excroissance, en bas de la feuille, où s'inscrit le nom de celle-ci !
0
DodoMichelle
 
Bonsoir Mike et Raymond,

Je suis désolé, mais chaque fois que je modifie dans un onglet, Excel cesse de fonctionner!

Je joins le fichier en question
Cdlmnt
Dodo

https://www.cjoint.com/c/LCjuP62uiGK
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

écrit le code dans la Thiswokbook comme cela

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Sh.Range("A1").Value = Now
End Sub
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
DodoMichelle
 
Re,

Ecrit comme cela, ca marche mais tous les onglets s'incrémentent en même temps!
J'ai mal posé mon pb: je voudrais uniquement la date dans l'onglet modifié.
Est ce possible?

Cdlmnt
Dodo
0
Raymond PENTIER Messages postés 58990 Date d'inscription   Statut Contributeur Dernière intervention   17 354
 
... dans la
feuille
modifiée !
0
DodoMichelle
 
Désolé Raymond pour la confusion.

Cdlmnt
Dodo
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

Et bien la date ne s'enregistre que dans l'onglet modifié pas dans les autres
0
DodoMichelle
 
Bonjour Mike,

En effet , j'ai fait une modif ce matin dans une feuille, les autres n'ont pas évolué! Contrairement à hier où toutes mes feuilles avaient la même date.
Certainement une erreur de manip de ma part puisque sans rien faire, tout est ok.
Merci beaucoup pour ton aide.
Cdlmnt
Dodo
0