Problème fonction Match

[Guillaume]

Bonjour le forum,

J'effectue une recherche sur une plage de dates avec la fonction match. Je convertit au préalable mes dates en long car je souhaiterais trouver soit la date passé en paramètre, soit celle la plus haute qui lui inférieure.

La fonction marche parfaitement avec le paramètre 0 (recherche exact sur la paramètre) mais le problème est que quand je rentre la paramètre 1 dans ma fonction match, elle ne me renvoie aucun résultat.

J'ai lu sur un forum qu'il fallait que je change mes variables en long mais ça n'a pas résolu le problème.

Est-ce quelqu'un a une idée s'il vous plaît?

Guillaume

Set MaPlage = ThisWorkbook.Worksheets(1).Columns(ColonneIsin)

CaseJour = Application.WorksheetFunction.Match(jour, MaPlage, 0) 'trouve la case avec la bonne date (idéalement ce serait soit ça soit la date la plus haute juste inférieure à celle-ci)

 

[Dranreb]

Re : Problème fonction Match

Bonjour,

With ThisWorkbook.Worksheets(1).Columns(ColonneIsin)
   Set MaPlage = Range(.Rows(7), .Rows(7).End(xlDown)): End With
CaseJour = Application.WorksheetFunction.Match(jour, MaPlage, 1) 'trouve la case avec la plus haute juste inférieure)

 

[James007]

Re : Problème fonction Match

Bonjour,

Je connais pas ta version d'Excel ... mais tu peux essayer
de remplacer
Application.WorksheetFunction.Match
par
Application.Match

car WorksheetFunction montre ... parfois des caprices ...

A +
🙂

 

[Guest]

Re : Problème fonction Match

Bonjour,

chez moi ceci fonction correctement:

Function GetPosDate(LaDate As Date, rngPlage As Range) As Variant
    GetPosDate = Application.Match(CLng(LaDate), rngPlage, 1)
End Function

Avec : Getposdate(datevalue("27/02/2009"), sheets(1).columns(3)) donne 15
et avec : Getposdate(datevalue("28/02/2009"), sheets(1).columns(3)) donne 15

A+