Insertion date modif de feuille VBA
Bonjour,
J'essais d'insérer une macro VBA qui me permettrais d'afficher la date des dernières modifications effectuées dans une feuille en particulier d'un classeur Excel
j'ai essayé ceci:
Public modif As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("Feuil5").Range("I1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub
Mais rien ne fonctionne dans mon fichier.
Avez vous une reponse pour sa??
merci
Bonjour,
Pourquoi veux-tu faire cela par code alors que tu as un utiltaire intégré à excel via le menu "Révision" - "suivi de modifications"
A te relire
Bonjour Dan,
je voulais faire ce programme pour me mermettre de faire un tri par date à la suite garder un historique de toutes les modifications
on peut faire sa avec "suivi de modification"?
merci et bon weekend d'avance
Bonjour
Bonjour
Ta macro m’a l’air de marcher très bien sauf que chaque enregistrement écrase le précédent.
Et si tu enregistres plusieurs fois le même jour, la date étant la même, tu ne verras aucune différence.
Je te conseille le code suivant :
Sheets("Feuil5").Range("I" & Rows.Count).End(xlUp)(2).Value = "Dernière Révision le " & Format(Now, "dd/mm/yyyy hh:mm:ss")
Sans changer les autres lignes.
Tu auras tous les enregistrements horodatés et listés en colonne I
Bye !
re,
on peut faire sa avec "suivi de modification"?
Bien entendu.
Sous l'onglet "révision"
- mets ton fichier en mode partagé
- sélectionne suivi de modification
- Choisis cette option "afficher les modifications
- sélectionne "suivre les modifi...."
- coche les cases nécessaires pour le suivi et surtout la troisième qui te permet de définir sur quelle feuille le suivi sera inscrit
A te relire