Microsoft 365 trouver la date la plus récente (uniquement sur le jour) contenue dans ma cellule :

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

Je me permets de revenir vers nos chers ténors en vba pour un besoin particulier qui, selon mes recherche n'a jamais été traité, ni sur le forum, ni sur internet.

Il m'est très difficile d'expliquer mon besoin dans le post. Il est, je crois, clairement montré dans le fichier test que je joins à ma demande.

Si vous aviez la solution vba, ça m'arrangerait bien lol
En espérant que ce sera pas trop ch..t à lire.
Je vous remercie vivement,
Amicalement,
lionel,

 

[job75]

Bonjour Lionel, le forum,

Pas encore fini ce fil ?

Alors puisqu'Excel interprète correctement 29/02/2025 et 31/04/2025 je complète mon post #10 :

Sub DerniereDate()
Dim x$, i%, dat$, y$, a(), n%
x = Application.Trim(ActiveCell) 'SUPPRESPACE
For i = 1 To Len(x)
    dat = ""
    y = Mid(x, i, 14)
    If y Like "##?##?## ##:##" Then dat = Left(y, 6) & Left(Year(Date), 2) & Mid(y, 7)
    y = Mid(x, i, 16)
    If y Like "##?##?#### ##:##" Then dat = y
    If IsDate(dat) Then ReDim Preserve a(n): a(n) = CDbl(CDate(dat)): n = n + 1
Next
If n Then MsgBox "Dernière date " & Format(Application.Max(a), "dd-mm-yyyy hh:mm")
End Sub

On peut entrer les années comme on veut, avec 2 ou 4 chiffres.

La macro complète les dates de manière que les années aient toutes 4 chiffres.

Cela confirme qu'il est inutile de dire qu'un problème est résolu

A+

 

[Usine à gaz]

Bonjour à tous, Bonjour Gérard,

Que de puristes et ça fait plaisir, j'en suis heureux.
C'est ce qui fait, entre autres de vos qualités, la force de notre Forum

"Pas encore fini ce fil ?" = pour moi, les réponses précédentes suffisaient mais mieux c'est toujours mieux
Merci à tous,
lionel,

 

[soan]

Bonjour Lionel,

j'aurais bien voulu mettre un "J'aime" sur le post #46 aussi, mais en tentant de le faire, je me suis enlisé dans mes propres explications vaseuses ! (désolé, Damoclès job75)​

soan

 

[Bernard_XLD]

Re le fil, le forum

puisqu'Excel interprète correctement 29/02/2025 et 31/04/2025

Et ça fonctionne avec le "12/21/11" de @mapomme ?

 

[Bernard_XLD]

J'y retourne...

1/1/21, ça ne passe pas sur la nouvelle version !

 

[soan]

@Yeahou

t'inquiètes pas, c'est normal : Crosoft passe son temps à faire exprès de saboter les fonctionnalités des anciennes versions pour que les utilisateurs se sentent frustrés, et que par dépit, ils passent à la version ultérieure ; c'est même ce qui explique pourquoi leur service d'assistance n'est jamais disponible pour aider convenablement les utilisateurs en détresse : ils se fichent bien éperdument que la hot line soit saturée ! ​

soan