Problème Fonction Match

[mécano41]

Bonjour à tous,

Quelqu'un pourrait-il me dire où est l'erreur là-dedans...( c'est à la ligne VBA Position = Application.WorksheetFunction.Match(.....)... je devrais trouver 30.


Merci d'avance

Cordialement

 

[Guest]

Re : Problème Fonction Match

Bonjour Mecano

La recherche de date avec Match se fait avec des 'Long'

Sub essai()
    Dim PlageDates As Range
    Dim DateAtrouver As[SIZE=3][B] Long[/B][/SIZE]
    Dim Position As Long
    With RmF1
        Set PlageDates = .Range("B4:B77")
        DateAtrouver = [B][SIZE=3]CLng[/SIZE][/B](.Range("B8").Value + 51)
        Position = Application.WorksheetFunction.Match(DateAtrouver, PlageDates, 1)
    End With
    MsgBox Position
End Sub

Il faut bien-sûr que B8 soit une valeur pouvant être traduite en Long.

A+

 

[mécano41]

Re : Problème Fonction Match

Bonjour Hasco,

Merci pour cette réponse rapide.

En plus, je n'aurais pas trouvé seul car, même dans l'aide sur les fonctions de feuille de calculs, il ne disent rien sur les dates...


Encore merci ...


Cordialement