Réservation de salle

[goldenboy]

Bonjour à tous,

Voici un nouveau projet qui semble être plutôt interessant.
J'ai un classeur avec une page d'accueil que l'on pourra considérer comme récapitulative, ainsi que des feuilles associées à des utilisateurs que l'on considerera comme espaces de travail.

Les rouages de cet outil sont expliqués dans le fichier joint vierge de code VBA pour le momment .

Merci d'avance à tous pour votre aide et vos propositions.

Très cordialement.

 

[pompaero]

Bonjour Goldenboy, le fil

Je viens vers toi pour une petite question,
Je trouve très sympathique ton appli de réservation de salles qui correspond parfaitement à ce que je recherche pour mon travail et assez simple d'utilisation à priori.
J'ai tenté de tester, mais il demande en permanence d'inscrire votre nom à la validation. Comment faut-il faire pour paramétrer les données ?
Du coup je ne peux voir si la finalité de l'appli.
Merci de ton retour
Cordialement
pompaero

 

[Staple1600]

Bonsoir le fil

pompaero
On peut lire sur le profil de Goldenboy
Dernière vue 28 Octobre 2014
M'étonnerais qu'il repasse sur XLD
(ou attendons le 28/10/19, cela fera cinq ans pile )

 

[pompaero]

Bonsoir Staple1600

Oui j'ai vu, merci mais ne tente rien n'a rien, non ?
Je recherche une appli de réservation de salle du style de Goldenboy.
Merci
Cordialement

 

[pompaero]

Bonsoir Tatiak

Merci de ton appli, oui effectivement cela à l'air de correspondre à ce que je recherche, simple et efficace. Pourrai-tu me donner plus de détails sur le paramètrage de l'appli stp.
- On change le nom des salles directement dans l'onglet Planning ?
- est-il possible de commencer la semaine en (D6, Semaine du ) le lundi (au lieu du dimanche) jusqu'au dimanche ?
Merci super.
Je continu de regarder et tester en attendant ton retour.

Cordialement

 

[pompaero]

j'ai modifié les noms dans planning, parfais
Pour début de semaine, j'imagine qui faut modifier la dedans,

Private Sub Modif_Date()
Dim Annee As Integer, Semaine As Integer
 
    Annee = Me.ComboBox3.Value
    Semaine = Me.ComboBox4.ListIndex + 1
    Me.Range("B3").Value = 7 * Semaine + DateSerial(Annee, 1, 3) - Weekday(DateSerial(Annee, 1, 3)) - 6
    Graphe_Planning
End Sub

le -6 passe en -5 en bout de code. ?
Si c'est bien cela , j'ai bien le lundi en début de semaine mais les semaines sur les SpinButton s'affiche mal.
- La mise à jour de la Listbox (Salon)
Et ça me parrai tout.
Merci

 

[pompaero]

Merci
Comment vois tu si c'est un férié dans le planning ? (couleur, ect...)
Si je comprends, un classeur access se créé et sert de BD, faut le mettre dans le même dossier que le classeur excel ?
Cdtl

 

[leakim]

Bonjour,
Si tu tiens à la présentation, voici le fichier mis à jour.
Sur un forum voisin

Leakim