Problème Fonction Match

mécano41 · 18 Novembre 2008

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 · 18 Novembre 2008

Re : Problème Fonction Match

Bonjour Mecano

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

Code:

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 · 18 Novembre 2008

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

Problème Fonction Match

mécano41

XLDnaute Accro

Pièces jointes

Guest

Guest

mécano41

XLDnaute Accro

Discussions similaires

Problème Fonction Match

mécano41

XLDnaute Accro

Pièces jointes

Guest

Guest

mécano41

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency