Borner des dates

Bonjour à tous,

Je souhaiterais borner des dates (dans le but ensuite de faire des interpolations et calculs forwards). Je m'explique : j'ai dans une colonne (A) une liste de dates, à chaque date son taux (colonne B) et je dispose de dates d'échéances. Pour chaque date d'échéance je dois calculer son taux par interpolation et pour cela borner cette fameuse date avec celles dont je dispose dans ma colonne A.
Exemple : date d'échéance 22/01/2013
colonne A
08/01/2013
09/01/2013
12/01/2013
12/02/2013
Je dois donc prendre 12/01/2013 et 12/02/2013 pour borner et faire mon interpolation.
Comment faire pour programmer automatiquement tout ceci ? Je pensais en premier lieu à faire un code calculant la différence entre ma maturité et chaque dates disponibles (et ne prendre que le minimum si cette différence est positive) :

Code:

---

1 2 3 4 5 6

With sheets("feuil1") Set plage_date = Range(.[A3], [A3].End(xlDown)) For Each cell In plage_date If (CDate(date_échéance) - CDate(Active.cell)) > 0 Then diff = (CDate(date_échéance) - CDate(Active.cell))

---

... et prendre ensuite le minimum des valeurs trouvées en les stockant dans un tableau..(je trouverais la borne inférieure et la borne supérieure serait la date suivante) mais je n'arrive pas à trouver la "bonne syntaxe" et je pense qu'il y a mieux...

Si quelqu'un peut m'éclairer sur tout cela,
Merci à tous

Bonjour,

Si tes dates sont triées de la plus ancienne à la plus récente, pour connaitre la borne supérieure il te suffit effectivement de relever l’adresse de la première cellule qui retournera une différence positive, la borne inférieure étant la cellule précédente.
Cependant, tu ne dis pas quel traitement tu effectues dans le cas où l’échéance correspond exactement à une date de la liste.

Cordialement.

Bonjour,

Peut être une piste avec le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub aa() Dim S As Worksheet Dim R As Range Dim C As Range Dim date_échéance As Date Dim inf As Date Dim egal As Date Dim sup As Date Dim A$ Set S = Sheets("Feuil1") date_échéance = S.[b1] 'à adapter (pour tester, j'ai pris la cellule B1) Set R = S.Range("a3:a" & S.[A3].End(xlDown).Row) For Each C In R If date_échéance > C Then inf = C If date_échéance = C Then egal = C If date_échéance < C Then sup = C Exit For End If Next C If inf > 0 Then A$ = "Borne inférieure : " & inf & vbCrLf If egal > 0 Then A$ = A$ & "Une date correspondant à l'échéance a été trouvée : " & egal & vbCrLf If sup > 0 Then A$ = A$ & "Borne supérieure : " & sup & vbCrLf MsgBox A$ End Sub

---

Re,

merci à vous pour vos réponses si rapides.

PMO2017 : je vais voir si je peux adapter ce code à mon projet, en tout cas il marche parfaitement bien merci !

gFZT82 : effectivement je n'avais pas traité le cas où la date d'échéance existe dans la liste. Dans ce cas là, le calcul de l'interpolation qui suit est inutile, je prends directement le taux correspondant à la date d'échéance dans la liste.

Je reviens sur le sujet sans tarder, merci à vous.