Recherche date/heure la plus récente dans une zone définie

Bonjour à tous,

J'ai trouvé une solution intermédiaire à un problème que je souhaite néanmoins réglé.

Peut-être que vos lumières pourront m'aider à solutionner ce problème.

Dans la feuille jointe, se trouve un sorte de journal de bord.

L'utilisateur peut en 1 clic insérer la date "maintenant" dans les cellules y relatives.

J'aimerais pouvoir afficher dans une cellule séparée la date et heure la plus récente figurant dans un zone définie.

Soit, la cellule est vide, car aucune date/heure n'y figure, soit figure la date et heure la plus récente dans cette liste.

J'ai essayé avec la fonction =MAX(H22:H33) hélas sans succès.

Est-ce dû au format spécifique des cellules jj.mm.aaaa hh:mm ?

En pièce jointe, la feuille en question. En jaune et cadre rouge mes annotations.

Merci d'avance pour votre curiosité

Cordialement

Willau

Bonjour,

C’est effectivement dû au format des cellules de la plage H22:H33.

Si tu leur affectes un format date du type jj/mm/aaaa hh:mm, la formule =MAX(H22:H33) renvoie bien le résultat attendu.

Cordialement.

Bonjour

Bonjour à tous

Essaie cette formules dans H54 :

=SI(NB(H22:P33)=0;"";MAX(H22:P33))

Bye !

Bonjour,

Une alternative ?

=MAX(H22:P33;MAINTENANT())

Merci pour vos contributions.

Si j'inscris manuellement la date sous format jj/mm/aaaa hh:mm, cselon fonction bien !

Mon problème est le suivant:

J'ai un code qui insère automatiquement la date "MAINTENANT ()" en un seul clic.

Sub InsertNow_M401()

Range("H22").Value = Format(Now, "dd/mm/yyyy hh:mm")

End Sub

J'ai révisé le format avec les "/", mais dans ma cellule s'inscrivent toujours le "."

Même en modifiant le format cellule, seuls les "." apparaissent.

Un idée pour débuguer ça ?

Merci encore pour l'aide !

Cordialement

Willau

J'ai provisoirement réglé mon problème de cette manière :

En cellules fusionnées "H56:P56" j'ai insérer la fonction =MAINTENANT() en format "dd/mm/yyyy hh:mm"

Lorsque je lance la macro, la zone est sélectionnée et va se copie (contenu uniquement) --> la mise en forme reste.

Ainsi le résultat escompté est réalisé.

Ma macro :

Sub InsertNow_M409()

Application.ScreenUpdating = False

Range("H56:P56").Select

Selection.Copy

Range("H30:P30").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub

Merci pour vos précieuses aides !

Cordialement

Willau

Rechercher des sujets similaires à "recherche date heure recente zone definie"