J'ai créé un classeur comportant 4 feuilles dont 1 réservée à l'Admin. Dans chacune des 3 autres feuilles l'utilisateur doit saisir des données et inscrire dans une case la date de saisie.
Je suis à la recherche d'un code VBA qui me permettrait d'afficher dans la feuille Admin. la date de saisie la plus récente des 3 dates inscrites sur les feuilles 1 à 3
En supposant que la date à récupérer est en A1 de chaque feuille concernée, et qu'on la récupère en B5 de la feuille "Admin", mettre :
Code:
[COLOR="DarkSlateGray"][B]Sub toto(a)
Sheets("Admin").[B5].Value = Sheets(a).[A1].Value
End Sub[/B][/COLOR]
dans un module standard et
Code:
[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then toto Target.Parent.Name
End Sub[/B][/COLOR]
dans chacun des modules des feuilles à traiter.
ROGER2327 #2847
P.s. : En fait, je crois que je ne réponds pas au problème. Je ne récupère pas nécessairement la date la plus récente, mais la date la plus récemment saisie. Nuance...