EQUIV en VBA ne fonctionne pas Résolu

Question

Bonjour,

je possède une liste de dates dans une plage CALENDRIER

je possède une date à recherche dans la cellule D_RECH.

je voudrais utiliser la fonction EQUIV (MATCH) en VBA.

Sub test1()

Dim P As Variant
Dim V As Variant

Set P = Range("CALENDRIER")
V = Range("D_RECH").Value
MsgBox V

MsgBox WorksheetFunction.Match(V, P, 0)

End Sub

Lorsque j'exécute le programme j'obtiens le message d'erreur suivant :

Merci pour votre aide
Windows / Chrome 131.0.0.0

cousinhub29 · Answer

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 :

thev · Answer

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

EQUIV en VBA ne fonctionne pas

2 réponses

Votre réponse

Discussions similaires