Discussion :

[pat17]

Bonjour à tous

Je ne comprends pas pourquoi lorsque je réserve en cliquant sur le bouton recherche automatique, si je réserve entre 12h et 18 tous se passe bien par contre si je réserve entre 7h et 12h il se produit un décalage
merci de votre aide

http://www.cijoint.fr/cjlink.php?fil...cijcLFHThn.xls

[sabzzz]

bonjour pat,

je n'arrive pas à reproduire ton probleme, pour une réservation de BCM le 2010-04-13 de 7h à 12h les cellules Bx:Kx sont coloriées ?

[pat17]

bonjour sabzzz

Le problème vient si tu réserve sur le matin de 9h à 10h par exemple, il se produit un décalage.

[pat17]

problème résolu

Ex tu recherches 9:30 avec la fonction Equiv. Dans ton tableau, 9:00 vaut en fait 0.395833333. Tu convertis ton critères provenant du combobox pour qu'il soit en format nombre:

Code :

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

CDbl(CDate(HeureDeFin))

et ça fonctionne bien, sauf qu'en le convertissant en double, ton nombre égale 0.395833333333333. Je ne pourrais l'expliquer mais Excel pense que le nombre à 15 décimal ( ta variable ) est inférieur au nombre dans ton tableau. Donc j'ai essayé d'ajouté 0.00001 à ta variable et ça semble fonctionné;

Dans ta procedure CmbValider_Click

Code :

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

1
2
3
4
 ColonneDébut = Application.WorksheetFunction _
       .Match(CDbl(CDate(HeureDeDébut)) + 0.00001, Worksheets(compteurFeuille).Range("A3:Y3"), 1)
 ColonneFin = Application.WorksheetFunction _
       .Match(CDbl(CDate(HeureDeFin)) + 0.00001, Worksheets(compteurFeuille).Range("A3:Y3"), 1) - 1

merci à tous