EQUIV en VBA ne fonctionne pas
Résolu
xuorel
Messages postés
253
Date d'inscription
Statut
Membre
Dernière intervention
-
cousinhub29 Messages postés 1114 Date d'inscription Statut Membre Dernière intervention -
cousinhub29 Messages postés 1114 Date d'inscription Statut Membre Dernière intervention -
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
2 réponses
-
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 SubPS, 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
