XL 2010 Gestion de lits

Seveso

XLDnaute Nouveau
Bonjour à Tous,

Je me suis lancé sur un petit projet ..... pas si petit que ça finalement....
Et du coup de vais vous solliciter pour un peu d'aide ...
Je début pas forcement sur Excel (mais VBA si) mais j'ai pas non plus tous les talents ....

Bref entrons dans le vif du sujet: la gestion de lits

La finalité du projet se base sur un onglet où se trouve une carte du bâtiment (découpée par services, donc un onglet par service)
et donc un visuel sur les chambres avec un code couleur :
Rouge : occupée
Orange : fermée
Jaune : non disponible
vert : disponible
et l'affichage du nom et prénom du patient et son sexe sur la chambre.

En cliquant sur la chambre on obtient une ouverture de fenêtre avec le contenu de la chambre:
- Numéro de chambre
- Statut de la chambre
- Nom du patient
- Prénom du patient
- Date de naissance du patient
- age du patient
- sexe du patient
- date d'entrée du patient
- date de sortie du patient

Cela permets ainsi de visualiser ce que la chambre "contient" et qu'elle corresponde bien à la couleur annoncée,
mais également de faire les modification suivante :
changement du numéro de chambre (lors d'un transfert), changement du statut de la chambre (notamment pour un transéat ou pré-admission)
et la saisie de la date de sortie (notamment lors d’expulsion, de sortie définitive ...)

Un deuxième onglet est la pour la liste de tous les patients (nouveau, comme ancien) histoire d'avoir un petit historique, qui s'alimente en fonction des modifications fait sur la fenêtre précédente. (avec système de filtration)

Un troisième onglet serait disponible pour mettre en place trois formulaires:
- Saisie nouveau patient
- Saisie date de sortie
- Saisie changement de chambre

Un quatrième onglet serait lui dédié aux indicateurs:
- Taux d’occupation des lits
- ratio homme/femme
- ratio de tranche d'age
- durée moyenne de séjour
(avec filtration des affichages souhaité pour impression si nécessaire)

Un cinquième onglet serait si nécessaire, utilisé comme base de données.

Pour ce qui est de Excel, je travail avec la version 2010, j'ai le plan de l'étage concerné en pdf.

Tout aide est la bienvenu.
Je n'ai pour l'instant pas de fichier exemple a vous mettre en pièce jointe puisque je le début aujourd'hui.
Des que j'ai réussi a faire quelque-chose, je le mettrai en ligne.
Je n'ai pas non plus l'option MAP de excel .... :/

vous remerciant par avance pour le temps que vous passerez a m'aider,
cordialement,
 

Seveso

XLDnaute Nouveau
Bonjour Tatiak,

Bien sur que se sont des données fictives, puisque par définition je n'ai pas aces au dossier patients (et je le veux pas en plus)
et de plus ce n'est pas a moi de faire les saisies.
Mais je me suis dit qu'avec un plan se serait plus conviviale .... mais galère pour moi.
je lache rien toutefois.

cordialement,
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @Seveso :), et à tous les autres ;),
Beau travail accompli et très belle présentation.
1586430612769.png


Tu passes par Commandbutton de type ActiveX. Quand on a beaucoup de boutons similaires avec la même action, on passe généralement par un module de classe. C'est pourquoi, je préfère entièrement rester en VBA avec une gestion de cellules plutôt qu'en insérant un max de CommandButton et un module de classe. Ne serait ce que dans un premier temps, la construction de la feuille nécessite de construire les cellules du plan sur la feuille. Si en plus, il faut rajouter les Commandbutton.

Il serait intéressant d'avoir les avis des autres ?

Mais rassure toi. Ton approche est tout à fait faisable, censée et légitime. Et puis, c'est l'occasion d'utiliser les modules de classe qu'on utilise pas si souvent mais qui sont bien pratiques.
 
Dernière édition:

Seveso

XLDnaute Nouveau
Re,

effectivement chaque bouton arrive sur le même menu, mais pas avec les même informations.
Et j'essai de construire le fichier de manière a rendre l'utilisateur autonome dans la gestion de la base.
Exemple : si un nouveau médecin arrive, qu'il puisse le rajouter dans la base sans me demander.

c'est un peu compliqué pour moi tout ces nouveauté en vba.

mais au moins j'essai et je cherhce.

@+
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Re,

Je me suis lancé sur un petit projet ..... pas si petit que ça finalement....
Ça, je me le suis souvent dit et j'ai souvent déchanté quant à la taille. Mais c'est intéressant.

Concernant un CommandBouton, il y a plusieurs moyens de repérer sa position et savoir à quel cellule ou à quel lit il fait référence. L'une consiste à affecter un nom "signifiant" à chaque bouton. Exemple: Lit201, Lit202g, Lit202d, etc... Une autre à lire le "Caption du bouton".
Si on veut utiliser un module de classe, il me semble qu'il vaut mieux utiliser un nom du type Lit1, Lit2, Lit3. Car ainsi, on peut facilement déterminer les objets qui font partie des objets concernés par le module de classe. Le lit lui-même sera déterminé par le caption du bouton. Et il y a sans doute d'autre méthodes.

J'aimerai bien que d'autres viennent dire ce qu'ils en pensent.

Tu peux te lancer, XLD sera là.
 

JM27

XLDnaute Barbatruc
Bonjour a tous
Vu la qualité de la demande et du cahier des charges je ne peux qu'essayer de te proposer quelque chose.
Je ne sais pas si cela peux convenir , mais essayons tout de même.
Je propose une image dans l'userform de l'ensemble des chambres et d'avoir un visuel direct
de l'occupation des chambres en fonction des 4 couleurs. ( par des rectangle de couleurs se superposant sur l'image et sur les chambres concernées.
Ci joint un exemple de ce que l'on peut faire sur cette idée
Voir l'userform gestion des palettiers en sélectionnant Le palettier 1 et entrée une référence
et sélectionner ref 2,0001 ou 6,0004
De plus tu as sans activer l'userform une possibilité de visualiser les chambres sur une feuille.
et voir les couleurs dans l'image et passer la souris sur les rectangles.
Effectivement cela demande interprétation , les alvéoles seraient des chambres
Avant de me lancer , je demande vos avis , le développement étant lourd , mais très intéressant
 

Pièces jointes

  • gestion de 4 Palettiers new.xlsm
    850.2 KB · Affichages: 72

Discussions similaires

Réponses
1
Affichages
216

Statistiques des forums

Discussions
312 329
Messages
2 087 327
Membres
103 518
dernier inscrit
hbenaoun63