Triage dates MAJ

bd_city · 24 Février 2010

Salut le Forum,

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 😕

Merci d'avance pour votre précieuse aide 🙂

chris · 24 Février 2010

Re : Triage dates MAJ

Bonjour

Si la date est dans une seule case, placée au même endroit sur les trois feuilles et que celles-ci se suivent :

=MAX('nomfeuille1:fnomfeuille3'!A15)

sinon détailler
=MAX('nomfeuille1'!A15;'nomfeuille2'!Z12;'nomfeuille3'!G5)

A adapter à ton cas...

ROGER2327 · 24 Février 2010

Re : Triage dates MAJ

Bonjour bd_city

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...

bd_city · 25 Février 2010

Re : Triage dates MAJ

Salut Chris, ROGER2327, le Forum,

Gros merci Chris😉 et ROGER2327😉 pour vos réponses.
J’ai opté pour la formule magique de Chris qui répond parfaitement à mes besoins.

=MAX('nomfeuille1:nomfeuille3'!A15)

Encore une fois merci et à la prochaine les amis 🙂🙂🙂

Triage dates MAJ

bd_city

XLDnaute Junior

chris

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

bd_city

XLDnaute Junior

Discussions similaires

Triage dates MAJ

bd_city

XLDnaute Junior

chris

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

bd_city

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency