Macro dans chaque feuille d'un classeur

Messages postés
2
Date d'inscription
jeudi 6 décembre 2018
Statut
Membre
Dernière intervention
8 décembre 2018
- - Dernière réponse : Patrice33740
Messages postés
7856
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
6 décembre 2019
- 8 déc. 2018 à 22:45
Bonjour,
Dans un classeur je possède 3 feuilles "Cal 2" Calendrier" "Renvoi" que je ne modifie pas forcément le même jour.
Je souhaite pour chaque feuille créer dans une cellule la date de dernier enregistrement.
J'ai réussi à créer une macro dans thisworkbook :
Sub macro1()

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Worksheets("Cal 2")
.Range("D1") = Now()
End With
End Sub

pour la feuille "Cal2" ca marche


comment dois je modifier la macro ci dessus pour que la date de dernier enregistrement soit effective et indépendante dans chaque feuille

Mille merci à vous
Afficher la suite 

2 réponses

Messages postés
7856
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
6 décembre 2019
16
0
Merci
Bonjour,

Dans le module ThisWorkbook mettre uniquement :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Sh.Range("D1") = Now()
End Sub


Commenter la réponse de Patrice33740
Messages postés
2
Date d'inscription
jeudi 6 décembre 2018
Statut
Membre
Dernière intervention
8 décembre 2018
0
Merci
Un grand merçi à vous mais je n'y arrive pas.

Je dis bien une sauvegarde indépendante sur chaque feuille.

cordialement
Patrice33740
Messages postés
7856
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
6 décembre 2019
16 -
« mais je n'y arrive pas » c'est à dire ????
Patrice33740
Messages postés
7856
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
6 décembre 2019
16 -
Commenter la réponse de papycocol