EQUIV en VBA ne fonctionne pas

Bonjour,

Perso, j'aurais fait ainsi : (Regarde aussi les définitions de variables)

Sub test1()
Dim P As Range
Dim V As Long
Set P = Range("CALENDRIER")
V = Range("D_RECH").Value
MsgBox V
MsgBox Application.WorksheetFunction.Match(V, P, 0)
End Sub

PS, désolé pour le rendu, à priori la balise "Code" ne supporte pas le lundi matin

Lorsque je rédige, j'ai bien ceci :

Bonjour,

Votre problème vient d'une recherche sur un format :Date

La seule solution est de faire une recherche au format : Texte. Ci-dessous code

Sub test1()

    Dim P As Variant
    Dim V As Variant
    
    Set P = Range("CALENDRIER")
    V = CStr(Range("D_RECH").Value)
    MsgBox V
    
    Msgbox WorksheetFunction.Match(V, P.Value, 0)

End Sub