Date du jour dans l'onglet concerné
Résolu
DodoMichelle
-
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
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
8 réponses
-
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
-
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 !
-
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 -
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
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 -
-
Re,
Et bien la date ne s'enregistre que dans l'onglet modifié pas dans les autres
-
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