XL 2019 Première apparition d'une date correspondant à un intervalle de dates dans une liste de dates plus large

[terreàterre]

Bonjour à tout le monde,
je me lance pour cette première demande d'aide sur ce forum.

Dans une liste de dates non triée, je cherche à récupérer la ligne de la première date inclues elles mème dans une intervalle.

Puisqu'un exemple vaut toujours mille explications, dans le fichier joint, je cherche la ligne de la première apparition d'une date située dans l'intervalle 02/01/20 et 04/02/20

J’espère que certain sauront m'aider, je butte sur la formule depuis un moment maintenant
- j'imagine du INDEX EQUIV mais je n'ai pas trouvé comment y intégrer l'intervalle de dates

Voila pour le petit défi

Merci et bonne journée

 

[Hasco]

Bonjour,

Une solution avec la fonction Agregat (voir l'aide excel sur la fonction).
Pour la première :
=AGREGAT(15;7;LIGNE($B$3:$B$38)/($B$3:$B$38>=DATE(2020;1;2))/($B$3:$B$38<=DATE(2020;1;4));1)

Pour la seconde, seul le premier paramètre change pour 16 (grande.Valeur)

Cordialement

 

[sylvanu]

Bonjour Terreàterre, Roblochon,
Pour ceux qui n'auraient pas XL2019 une solution avec fonctions perso :

Function PremiereDate(Plage As Range, Date1, Date2)
PremiereDate = ""
For Each c In Plage
    If CDate(c.Value) >= CDate(Date1) And CDate(c.Value) <= CDate(Date2) Then
        PremiereDate = c.Row
        Exit Function
    End If
Next
End Function
Function DerniereDate(Plage As Range, Date1, Date2)
DerniereDate = ""
For Each c In Plage
    If CDate(c.Value) >= CDate(Date1) And CDate(c.Value) <= CDate(Date2) Then
        DerniereDate = c.Row
    End If
Next
End Function

 

[Hasco]

Re,

Pour information la fonction Agregat est apparue avec la version 2010 d'excel.

Cordialement

 

[patricktoulon]

bonjour sylvanu
ET si les dates dans plage commence après date2

 

[sylvanu]

Bonjour Patrick,
Si Erreur alors retour Vide.

PremiereDate = ""

on aurait pu aussi générer un code Erreur.
Roblochon, je rectifie. Pour ceux qui ne disposent pas de la fonction AGREGAT.

 

[patricktoulon]

re
@sylvanu
et si les dates ne sont pas dans l'ordre croissant
bonjour mapomme

 

[sylvanu]

re,
Quelle importance, puisqu'on examine chaque date de façon indépendante.
On ne recherche pas la date la moins élevée mais la date qui est dans l'intervalle et apparaît en premier.

 

[patricktoulon]

exemple
l'intervalle
date1=01/01/2020
date2=25/02/2020

la plage

01/01/2020
...
...
..
12/02/2020
06/01/2020
03/02/2020
15/01/2020
etc...

quelle ligne va donner ta fonction dernieredate
est ce bien le souhait du demandeur

 

[patricktoulon]

si le demandeur voulait
la première date au dessus de date1
la première date en dessous de date2
j'aurais utilisé cette logique

Sub test()
date1 = CDate("01/01/2020")
date2 = CDate("03/01/2020")
MsgBox FindFirstDateAfterDate1([B1:B100], date1, date2)
End Sub


Function FindFirstDateAfterDate1(rng, date1, date2)
Dim x&
For i = 1 To date2 - date1
x = Application.IfError(Application.Match(CStr(CDate(date1) + i), Application.Transpose(rng.Value), 0), 0)
If x <> 0 And x < date2 Then FindFirstDateAfterDate1 = x: Exit For
Next
End Function

'****************************************************************************

Sub test2()
date1 = CDate("01/01/2020")
date2 = CDate("05/01/2020")
MsgBox FindFirstDateBeforeDate2([B1:B100], date1, date2)
End Sub


Function FindFirstDateBeforeDate2(rng, date1, date2)
Dim x&
For i = 1 To date2 - date1
x = Application.IfError(Application.Match(CStr(CDate(date2) - i), Application.Transpose(rng.Value), 0), 0)
If x <> 0 And x < date1 Then FindFirstDateBeforeDate2 = x: Exit For
Next
End Function

utilisable en formule bien sur

 

[jmfmarques]

Bonjour
Il me semble que cette précision :

je cherche la ligne de la première apparition d'une date située

est de nature à affranchir de tous ces "si"....

 

[Hasco]

Re,

est de nature à affranchir de tous ces "si"....

D'autant que le demandeur @terreàterre n'a toujours pas répondu !

 

[mapomme]

Bonjour à tous ,

La fonction Agregat est bien mais difficilement dé-codable à moins d'avoir dans la tête la table des codes fonction dans la tête.

Avec les dates en G4 et H4, deux fonctions matricielles à ne suffiraient elles pas ?
=PETITE.VALEUR(SI((B3:B38>=G4)*(B3:B38<=H4)>0;LIGNE(B3:B38));1) et
=GRANDE.VALEUR(SI((B3:B38>=G4)*(B3:B38<=H4)>0;LIGNE(B3:B38));1)

 

[Hasco]

Re,

La fonction Agregat est bien mais difficilement dé-codable à moins d'avoir dans la tête la table des codes fonction dans la tête.

A chacun ses goûts.

Les matricielles finissent souvent par dérouter les utilisateurs qui oublient souvent de valider correctement. Sont souvent gourmandes en ressoureces et entraînent des lenteurs.

De plus Agregat

- a été écrite de manière à être plus rapide sur de très grandes plages de données,​

- permet d'éviter les cellules en erreur et ou masquées, filtrées etc.​

Cordialement

 

[mapomme]

Bonjour @Roblochon

Les matricielles finissent souvent par dérouter les utilisateurs qui oublient souvent de valider correctement. Sont souvent gourmandes en ressources et entraînent des lenteurs.

C'est pas faux non plus