Macro dans chaque feuille d'un classeur

Signaler
Messages postés
2
Date d'inscription
jeudi 6 décembre 2018
Statut
Membre
Dernière intervention
8 décembre 2018
-
Patrice33740
Messages postés
8066
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
28 mars 2020
-
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

2 réponses

Messages postés
8066
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
28 mars 2020
18
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


Messages postés
2
Date d'inscription
jeudi 6 décembre 2018
Statut
Membre
Dernière intervention
8 décembre 2018

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
8066
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
28 mars 2020
18
« mais je n'y arrive pas » c'est à dire ????
Patrice33740
Messages postés
8066
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
28 mars 2020
18