Problème pour trouver une HEURE avec FIND.

Bonjour, je recherche dans une plage [R42:R50] l'heure spécifiée en cellule [Z15].
Excel stock les dates et heures sous forme de nombre à virgule flottante.
L'idée est de rechercher la date correspondant à ce nombre car il est difficile de trouver un nombre à virgule flottante avec FIND.
Mais, j'ai l'erreur suivante:

Citation:

---

"erreur d'exécution 5: Argument ou appel de procédure incorrect"

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test_find2_00h00() Dim cel As Range Dim d As Date   d = [z15]   Set cel = Sheets("pl").Range("r42:r50").Find(what:=d, LookAt:=xlValue)   If cel Is Nothing Then MsgBox "wrong" Else MsgBox cel.Address End If End Sub

---

Je ne comprends pas, j'ai testé un code similaire dans un autre classeur sans problème.

Salut.

Ton code fonctionne chez moi. Sur quelle ligne as-tu l'erreur? As-tu vérifier le Z15 de la feuille active?

salut merci
c'est la ligne 8 qui pose problème
idem pour moi, le code marche dans un classeur vierge mais pas dans mon classeur projet.

en [Z15] j'ai mis une heure au format [h]mm style 42:00 ou 42h00
Z15 correspond à un nombre d'heure et non pas un horaire.

La ligne 8 que tu renseignes (dans le code que je vois dans ton premier message) est vide... :koi:

Cela étant dit, la recherche de valeurs temporelles avec FIND pose souvent problème. Perso, je préfère utiliser MATCH (EQUIV en VBA)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test_find2_00h00() Dim cel As Range Dim Pos Dim d   d = Range("z15").Value Pos = Application.Match(d, Worksheets("pl").Range("r42:r50"), 0)   If IsError(Pos) Then MsgBox "wrong" Else MsgBox Worksheets("pl").Range("r" & 41 + Pos).Address End If End Sub

---

ca marche du 1er coup , MERCI ENORMEMENT !!! :D
il s'agissait de la ligne 7, je m'étais trompé. J'espère que ca servira à d'autres....

Néanmoins j'ai trouvé une partie de la solution:

-l'heure en [Z15] est entrée manuellement ou obtenue par formule au format hh:mm example 18:00
- mon range [R:R] etait au format: nombre, exemple 0.75=18/24

Cependant pour les heures > 23:59 le code avec Find ne marche plus !? Bizzard mas il ya surement une raison logique.

Si quelqu'un veut creuser la solution avec find pour le plaisir ....

Encore merci .