Discussion :

[chachaboy]

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:

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

Code :

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

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.

[Pierre Fauconnier]

Salut.

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

[chachaboy]

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.

[chachaboy]

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.

[Pierre Fauconnier]

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

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 :

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

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

[chachaboy]

ca marche du 1er coup , MERCI ENORMEMENT !!!
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 .