Date MAJ de feuillles séparemment

Bonjour,

J'ai un classeur Excel avec trois feuilles (par exemple).

La cellule A1 (par exemple) de chaque feuille doit indiquer la date de la dernière modification de cette feuille.

C'est à dire, que si je fais des modifications UNIQUEMENT dans la feuille 1 et ensuite quand je fais enregistrer, la cellule A1 doit faire apparaitre la date de cette modification. Les deux autres feuilles n'ayant pas été modifiées, doivent donc garder la date de leur dernière modification inchangée.

Existe-il une formule pour faire cela sans passer par une macro?

Si non, si ce n'est possible qu'avec une macro, je prendrai volontiers vos propositions.

Merci d'avance pour votre aide.

Si non, une macro peut

Bonsoir,

Surveillance événementielle ! bien sûr !

Sur chaque feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Cells(1, 1).Value = Format(Now, "MM/DD/YYYY HH:MM")
End Sub

Pour mettre en place cette surveillance :

Clic droit sur le nom de la feuille - afficher le code

VBA s'ouvre sur la "programmation" de la feuille qui a été cliquée droit.

Sur la fenêtre de droite faite un copier coller du code ci-dessus

Opération à effectuer sur toute les feuilles, mais maintenant c'est plus simple, un simple double clic sur le nom des feuilles dans le menu de la partie gauche suffit à ouvrir la fenêtre de programmation de chaque feuille et là encore un copier-coller et hop c'est fait

La cellule A1 est remplacée par Cells (1,1) qui veut dire cellule (première ligne, première colonne)

Pour voir le fonctionnement, vous n'avez qu'à effacer "Loureed" en cellule "B4"

@ bientôt

LouReeD

Bonjour,

Une autre proposition.

Code à placer dans le module ThisWorkbook du classeur.

(J'ai défini une plage afin de ne pas surveiller toutes les cellules de la feuille).

Cdlt.

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rng As Range

    Set rng = Sh.Range("A2:C11")
    If Not Intersect(Target, rng) Is Nothing Then
        Sh.[A1] = Date
    End If

    Set rng = Nothing

End Sub

Bonsoir,

évidemment, là on voit la différence entre 2 étoiles et 5 étoiles !

Cela fait plus propre !

@ bientôt

LouReeD

Merci beaucoup à vous deux.

La solution de Jean-Eric marche à merveille !

Est-il possible de rajouter après la date, l'heure en format HH:MM ?

C'est pour vérifier que la date de màj des feuilles se fait indépendamment des autres.

Merci.

Bonjour,

en somme il vous faut faire un "mélange" des deux réponses...

@ bientôt

Loureed