Fonction Match avec paramètre heure

Bonjour,
je me decide a poster car je n'ai pas trouvé la réponse et que je cherche maintenant depuis deux jours...
J'ai une colonne dans une feuille de calcul qui contient des heures de 20min en 20 min et j'essai en vain avec la fonction Match dans un module d'extraire le numéro de la ligne qui contient l'heure la plus proche d'une heure donnée afin de créer un planning.

Voici a quoi cela ressemble:
Col A
05:00:00
05:20:00
05:40:00
etc...

Dans le module:

Code:

---

1 2	Valeur="05:20:00" Colonne=Application.Match(Valeur, Range("A1:A30"),1)

---

ceci renvoie une erreur 1004

Si j'essai comme ceci:

Code:

---

1 2	Valeur="05:20:00" Colonne=Application.Match(Clng(Valeur), Range("A1:A30"),1)

---

j'obtiens une erreur 13 incompatibilité de type

Le comble est que si je remplace les heures par des nombres, cela fonctionne .Il s'agit donc d'un problème de type de valeur mais je ne trouve pas.
J'ai tout essayé en conversion de valeur mais a chaque fois ça plante...

Auriez-vous une idée?

Merci d'avance

Philippe

Bonjour,
Effectivement

Code:

---

hc = CDbl("7:10")

---

renvoie une erreur 13, alors que

Code:

---

hc = CDbl(CDate("7:10"))

---

fonctionne

Code:

---

1 2 3 4

Dim rng As Range, hc As Double Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A2:A15") hc = CDbl(CDate("7:10")) MsgBox "Recherche avec cdbl " & Application.WorksheetFunction.Match(hc, rng, 1)

---

Bonjour,

Essaie avec

Code:

---

1 2 3 4 5 6

Sub Test() Dim Valeur As Date Dim NoLigne As Double Valeur = CDate("05:20:00") NoLigne = Application.Match(CDbl(Valeur), Range("A1:A30"), 1) End Sub

---

Cordialement.

EDIT: Trop tard ! Bonjour Philippe.

Genial, ca marche !!!
Je vous remercie beaucoup.
Phil