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