Discussion :

[Jordywolf]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,
Effectivement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

hc = CDbl("7:10")

renvoie une erreur 13, alors que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[gFZT82]

Bonjour,

Essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Jordywolf]

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