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

Hasco

XLDnaute Barbatruc

Repose en paix

• 11 Juin 2020

• #2

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

 

Pièces jointes

• Index equiv intervalle.xlsx

  75.1 KB · Affichages: 10

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Juin 2020

• #3

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

VB:

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

 

Pièces jointes

• Index equiv intervalle.xlsm

  85.6 KB · Affichages: 5

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 11 Juin 2020

• #4

Re,

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

Cordialement

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 11 Juin 2020

• #5

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Juin 2020

• #6

Bonjour Patrick,
Si Erreur alors retour Vide.

VB:

PremiereDate = ""

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 11 Juin 2020

• #7

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Juin 2020

• #8

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 11 Juin 2020

• #9

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 11 Juin 2020

• #10

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

VB:

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

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 11 Juin 2020

• #11

Bonjour
Il me semble que cette précision :

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 11 Juin 2020

• #12

Re,

jmfmarques à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Juin 2020

• #13

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)

 

Vote positif 0 Vote négatif

Solution

Hasco

XLDnaute Barbatruc

Repose en paix

• 11 Juin 2020

• #14

Re,

mapomme à dit:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 11 Juin 2020

• #15

Bonjour @Roblochon

Roblochon à dit:

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.

Cliquez pour agrandir...

C'est pas faux non plus

 

Dernière édition: 11 Juin 2020

Vote positif 0 Vote négatif