Discussion :

[pat17]

Bonjour à tous,
mon projet avance bien grâce à votre aide
J'ai un gros problème et je n'arrive pas à le résoudre,j'explique :

j'ai réservé pour BCM le 14/04 de 7h à 7h30 et le même jour de 10h à 11h.
Pour supprimer une réservation,je demande l'heure de début et l'heure de fin mais comment rechercher dans la feuille la plage horaire demandé? en l'occurence 10h à 11h

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

[FCL31]

Ne peut tu pas faire avec les couleurs ??? (si je comprend bien le fonctionnement de ton fichier)

[pat17]

Bonjour FCL31

malheureusement non car si la meme personne fait 2 réservations dans la même journée comment le gérer?

[sabzzz]

bonjour pat17,

avec la fontion EQUIV, en vba (Application.Match)
tu peut retrouver les colonnes de la plage en recherchant l'heure de début et l'heure de fin sur la ligne de temps
et trouver la ligne en recherchant la date dans la colonne date,
si tu as besoin de plus d'aide pour mettre en oeuvre, ne te gêne pas.

[pat17]

bonjour sabzzz et merci de ta participation

j'ai essayé en vain de faire ce que tu préconise.

Comment formulerais tu ce que tu me décris

Je te joins le fichier. Bon courage

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

[sabzzz]

bonjour pat,

dans la feuille "Salle de conférence" il y a une réservation pour BCM en du 14 avril, mais sur le userform le combo "date début" commence au 15 avril,
il y a ce problème à régler avant d'essayer les lignes suivante dans le code du userform.

mais tu peut faire un test avec cette macro dans un module,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Macro1()
dt1 = "14 avril, 2010"
hr1 = "7:30"
hr2 = "10:30"
 
dt1 = CDbl(DateSerial(Year(dt1), Month(dt1), Day(dt1)))
hr1 = CDbl(TimeSerial(Hour(hr1), Minute(hr1), Second(hr1)))
hr2 = CDbl(TimeSerial(Hour(hr2), Minute(hr2), Second(hr2)))
 
With Sheets("Salle de conférence")
LigneDeDate = Application.Match(dt1, .Range("A:A"), 0)
col1 = Application.Match(hr1, .Range("3:3"), 0)
col2 = Application.Match(hr2, .Range("3:3"), 0)
End With
x = Range(Cells(LigneDeDate, col1), Cells(LigneDeDate, col2)).Address
End Sub