Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Moi, Phil,
Qui plus est, les dates sont au format texte.
Une tentative en PJ avec :
VB:
=CNUM(INDEX(1:1;EQUIV("*2023";1:1;0)+NB.SI(1:1;"*2023")-1))
Mais il faudra changer l'année si elle se trouve en 2024.
 

Pièces jointes

  • TROUVER LA DERNIERE DATE.xlsx
    9 KB · Affichages: 3

Cousinhub

XLDnaute Barbatruc
Inactif
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

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.
 

job75

XLDnaute Barbatruc
Bonjour à tous,

Puisqu'on repasse par ici voici une autre solution :
Code:
=RECHERCHE(9^9;--DECALER(A1;;;;EQUIV("zzz";1:1)))
A+
 

Pièces jointes

  • TROUVER LA DERNIERE DATE (1).xlsx
    9.5 KB · Affichages: 3

Discussions similaires

Réponses
29
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…