Création d'un programme de réservations de chambres

[JBARBE]

Bonjour à tous,

J'ai besoin de vos services pour la création d'un programme de réservations de chambres !

Il s'agit de mettre les couleurs de chambres en tenant compte des dates ici pour les mois de septembre et octobre 2016 ( voir feuille) et des Noms !

Bien entendu les dates ne doivent pas se chevaucher et dans ce cas un message doit s'afficher indiquant que la chambre est réservée par telle personne !

Attention pour Barre, les dates se chevauchent sur 2 mois ( 2 feuilles)

Un exemple de couleurs est fait dans la feuille 09-2016 et la feuille 10-2016

Merci à l'avance et bonne soirée !

 

[Modeste geedee]

Bonsour®

J'ai besoin de vos services pour la création d'un programme de réservations de chambres !

Bien entendu les dates ne doivent pas se chevaucher et dans ce cas un message doit s'afficher indiquant que la chambre est réservée par telle personne !

d'abord quelques préalables :
quand on parle de réservations il convient de préciser :
- s'il s'agit de 1/2 pension, pension complète ou nuitée seule
- les bornes de réservations : en général de midi à midi(occupation à partir de telle heure, libération avant telle heure)
-

pour une optimisation de remplissage une visualisation dynamique est à privilégier .

un embryon de réalisation en pièce jointe ...
cliquez et sélectionnez les cellules du planning

 

[JBARBE]

Bonjour Modeste, Bonjour à tous,
Merci pour toutes ces précisions concernant ces réservations de chambres !

Seule les heures de début et de fin de réservation que tu ajoute et que j'ai oublié m’intéresse !

Le but est que lorsque l'on fait la saisie dans la feuille "Réservations" un message s'affiche en cas d'erreur de saisie ou d'occupation de chambre !

Pour Roger j'ai volontairement ( qui peux être une erreur de saisie ) mis la réservation à 11 h 00 le 20/09 !
Hors Barre ne qui la chambre 2 qu'à 12 h 00( j'aurais bien voulu qu'un message m'indique mon erreur de saisie ou que l'occupation est déjà faite lors de la saisie dans la feuille " Réservations")

Je pense qu'une macro peux régler ces solutions !

bonne journée !

 

[JBOBO]

Bonjour,

pour les chevauchements, à tester en G2 de la feuille "Reservations", =SI(OU(SOMMEPROD(($C$2:$C$1000>=$C2)*($E$2:$E$1000<=$E2)*($F$2:$F$1000=$F2))>1;SOMMEPROD(($F$2:$F$1000=$F2)*($E$2:$E$1000>=$C2)*($C$2:$C$1000<=$E2))>1);"ATTENTION";"")
et tirer vers le bas.

 

[JBARBE]

Merci JBOBO, ta formule ne fonctionne pas !
Mais comme je l'ai précisé au début, j'aurais préféré une macro avec une boite de dialogue qui lors de saisie, m'indique d'éventuelles erreurs !

 

[JBOBO]

Re,

Je n'y connais quasiment rien en macro, donc je ne pourrais pas répondre à ton besoin. Désolé. Par contre il me semblait bien que ma formule fonctionnait, à moins que j'ai omis une ou plusieurs conditions. (voir fichier joint)

 

[JBARBE]

Bonjour tatiak,

Le problème est que lorsque je clique sur une réservation un message d'erreur s'affiche :

 

[JBARBE]

Re,

Je n'y connais quasiment rien en macro, donc je ne pourrais pas répondre à ton besoin. Désolé. Par contre il me semblait bien que ma formule fonctionnait, à moins que j'ai omis une ou plusieurs conditions. (voir fichier joint)

Merci le message s'affiche avec ton fichier maintenant !
Je vais voir avec tatiak qui possède un programme plus sophistiqué si je peux l'utiliser !

 

[JBARBE]

J'ai une erreur en cliquant sur LULU !

Merci !

 

[Modeste geedee]

Bonsour®

Bonsour®

un embryon de réalisation en pièce jointe ...
cliquez et sélectionnez les cellules du planning

UP...
mise à jour

 

[JBARBE]

Merci à vous tous !

Le programme à tatiak est complet cependant il pose problème !!
Dans mon exemple :
- DEDEE à réservè à partir du 26/08/16 et j'ai pu mettre DUPONT jusqu'au 27/08/16 avec la même chambre sans que le programme m'avertisse du chevauchement des dates du 27 sur le 26 !!
C'est le problème que j'ai d'abord posé dans ce post !
JBOBO m'a réglé ça par formule mais j'espérais un message avec boite de dialogue !

Merci à l'avance !

 

[Modeste geedee]

Bonsour®

Merci à vous tous !
Dans mon exemple :
- DEDEE à réservè à partir du 26/08/16 et j'ai pu mettre DUPONT jusqu'au 27/08/16 avec la même chambre sans que le programme m'avertisse du chevauchement des dates du 27 sur le 26 !!
C'est le problème que j'ai d'abord posé dans ce post !

Ce problème est pris en compte par construction dans l'exemple que j'ai fourni

cependant faire des saisies directement dans la base de données "Réservations", mets hors circuit tout les contrôles effectués via la saisie dynamique sur le planning...
Par principe lorsque l'on intervient sur une base de données, les controles d'intégrité reste à la charge du moteur de base de données.
Excel peut servir de tables pour bases de données, mais n'intègre pas ce genre de contrôles.

Il faut choisir :
soit c'est le programme qui controle, soit c'est le manipulateur.

dans l'exemple que j'ai fourni, tout se passe via l'interface Planning
seules les suppressions d'enregistrements pourront être faites manuellement dans la feuille "Réservations"

 

[JBARBE]

Bonsour®
Ce problème est pris en compte par construction dans l'exemple que j'ai fourni

cependant faire des saisies directement dans la base de données "Réservations", mets hors circuit tout les contrôles effectués via la saisie dynamique sur le planning...
Par principe lorsque l'on intervient sur une base de données, les controles d'intégrité reste à la charge du moteur de base de données.
Excel peut servir de tables pour bases de données, mais n'intègre pas ce genre de contrôles.

Oui mais lorsque dans le programme de tatiak et lors de la saisie avec la boite de dialogue de tout les critéres, il est quand même possible lors de la validation de mettre un msgbox indiquant que la chambre est occupée pour la période saisie !

Il suffit de faire un contrôle des couleurs ( exemple : if cells(i,y)interior.colorindex = 43 then msgbox "chambre occupée "&cells(i,y)& exit sub )

 

[JBARBE]

Bonsoir,
tatiak
Dans la msgbox serait-il possible d'avoir des renseignements sur la chambre occupée ( par exemple si le 27/08 chevauchait le 26/08 ) alors la msgbox dirait " chambre occupée jusqu'au 26/08 " ce qui éviterait de vérifier ce chevauchement !

bonne soirée !

 

[Si...]

salut

tatiak, pour éviter un message d’erreur, dans Class_Cal, un test à rajouter peut-être ?

Public WithEvents jour As MSForms.Label
Private Sub jour_click()
  ChoixDate = DateSerial(Year(CDate(Calendrier.ddj.Caption)), _
  Month(CDate(Calendrier.ddj.Caption)), jour.Caption)
  'ici------
   If UserForm2.TextBox19 <> "" Then _
      If ChoixDate < CDate(UserForm2.TextBox19) + 1 Then Exit Sub
  ‘nuitées >1 donc non négative pour la déclaration en Byte -----
  Unload Calendrier
End sub