Microsoft 365 trouver la derniere date

Moi69

XLDnaute Occasionnel
Bonjour le Forum

Je viens vers vous car je souhaiterai pouvoir trouver la dernière cellule de la ligne 1 contenant une date.
Dans la PJ elle est en T1. Mais elle aurait pu être en L1 ou en AB1.
Si vous avez une solution je suis preneur car je ne vois vraiment pas comment faire.

D'avance merci pour le temps que vous me consacrez.
 

Pièces jointes

  • TROUVER LA DERNIERE DATE.xlsx
    9.2 KB · Affichages: 10

Cousinhub

XLDnaute Barbatruc
Bonsoir,
Pour le fun, et si j'ai bien compris, on recherche l'adresse de cette cellule
Uniquement 2021 et 365 (hélas)
Code:
=CAR(LET(a;A1:AF1;b;SIERREUR(CNUM(a);0);EQUIV(MAX(b);b;0))+64)&1
Et pour trouver la date
Code:
=LET(a;A1:AF1;MAX(SIERREUR(CNUM(a);0)))

Mais l'idée d'une importation via PQ est plus fiable, et robuste.
 

job75

XLDnaute Barbatruc
Bonjour à tous,

Juste un petit test en VBA :
VB:
Sub Test()
Dim i%
For i = Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
    If IsDate(Cells(1, i)) Then MsgBox Cells(1, i).Text & " en " & Cells(1, i).Address(0, 0), , "Dernière date": Exit For
Next
End Sub
A+
 
C

Compte Supprimé 979

Guest
Bonjour à tous,

Xème rappel @Moi69 qui affectionne tant les MAJSUCULES :mad:

Vous avez posté votre message avec un formatage incorrect pour un forum :
- Le titre du fil doit être explicite (le plus clair possible) et écrit en minuscules

Merci de respecter cet élément qui contribue à la lisibilité du forum.

Profitez en pour relire la charte dans laquelle il est expliqué que cette pratique n'est pas admise sur XLD.
 

Discussions similaires

Statistiques des forums

Discussions
312 215
Messages
2 086 324
Membres
103 179
dernier inscrit
BERSEB50