Microsoft 365 Code incomplet

M

Marvin57

XLDnaute Occasionnel
Bonjour à tout le monde,

j'ai récupéré un fichier qui pourrait m'aider, mais je n'arrive pas à mettre en place les codes .

Il contient des codes que j'ai réussi à modifier, mais je n'arrive pas à adapter les deux codes suivants: " Actualiser_Planning_Reservations" et le code " SupprPlanningReservations ".
Je pense que dans ces deux codes il y a des instructions manquantes !

Pour vous donner une explication du fonctionnement du fichier;

En appelant le UserForm " DEMANDE_RESERVATIONS " (en cliquant sur le bouton " Saisir une réservation") , je veux pouvoir saisir le nom de client, le nombre de jours dans le textbox5 et suite à la saisie de ce nombre de jour dans ce textbox et la saisie de la date d'arrivée choisie, il me renseignera la date de départ.

Une fois que cela fonctionne, il faudrait également pouvoir modifier des lignes si nécessaire en cliquant sur le client voulu dans la listbox1 et une fois les infos modifiées je pourrai cliquer sur le bouton modifier.

Pour l'instant je vous laisse regarder et si besoin vous me dites si quelque chose est mal expliqué s'il vous plaît.

Merci à vous en attendant.

Marvin57
 

Pièces jointes

  • MARVIN57 PLANNING RESERVATIONS.xlsm
    94.7 KB · Affichages: 3
Solution
cp4
Bonjour,

@Marvin57 : Code à copier dans un module standard. Ensuite l'appeler à partir de l'évènement Activate de la feuille PLANNING RESERVATIONS. Clic-droit sur l'onglet, visualiser le code et tu colles les lignes ci-dessous
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Actualiser_Planning
End Sub
Dans module standard ci-dessous
Code: 
Sub Actualiser_Planning()   'valider
'/!\ Attention! Il faut supprimer la 1ère colonne Nom, la ligne des dates doit débuter en A5
   Dim RngDate As Range, rng As Range, col1 As Integer, col2 As Integer, LigFeuil As Integer
   Dim colfeuil As Integer, i As Integer, x As Byte, couleur As Byte, lig As Long
   Dim plage As Range, DateDebut As Long, derlig1 As Long, derlig2 As Long...
Trier par date Trier par votes
M

Marvin57

XLDnaute Occasionnel
TooFatBoy à dit:
Pour dégrossir les lignes directrices du projet, sans polluer ce fil de discussion, j'ai discuté avec notre camarade Marvin en MP, et il s'avère qu'en réalité il est totalement ouvert à toute proposition de modification. 👍
Mais le projet est beaucoup trop complexe pour moi : gestion des dates comme tu le dis (moi j'avais pensé à une résa le 30 décembre pour 35 jours...), gestion des chevauchements de réservations, peut-on réserver plusieurs choses (ce qui du coup compliquerait encore plus la gestions des chevauchement), etc.



C'est normal : c'est "un peu foireux" parce que c'est en cours de développement, donc il y a forcément des "détails" (plus ou moins gros) à ajuster. ;)
Cliquez pour agrandir...
@ cp4
@TooFatBoy
Merci pour toute votre aide. Mais comme vous vous retirez du projet, je vais voir cela autrement. Pas de soucis.
Bonne journée à vous.

Marvin57
 
Vote positif 0 Vote négatif
cp4

cp4

XLDnaute Barbatruc
Marvin57 à dit:
@ cp4
@TooFatBoy
Merci pour toute votre aide. Mais comme vous vous retirez du projet, je vais voir cela autrement. Pas de soucis.
Bonne journée à vous.

Marvin57
Cliquez pour agrandir...
En voyant que tu préfères la solution de @TooFatBoy. J'ai pensé qu'il était préférable que je me retire pour ne pas t'embrouiller et pour ne pas "pollué" ce fil.
De plus tu t'obstines à vouloir garder ton approche du problème (tes procédures).
Trouves-tu normal qu'on puisse faire une réservation antérieure à la date du jour.
Autrement dit: on est le 13/02/2024 et on peut faire une réservation pour le 12/02/2024?

Je t'avoue que je suis un peu débordé ces derniers temps. Je me connecte dès je trouve un moment.
Je serai plus libre la semaine prochaine.

Résultat obtenu
1707824301636.png

1707824343175.png

1707824416673.png
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
Je t'ai fait, à ma façon, la partie mise à jour du listing et du planning, aussi bien pour l'ajout d'une réservation que pour la modification d'une réservation.
Chez moi ça a l'air de fonctionner.

Pour la suite (gestion des dates, gestion des chevauchements de réservations, etc.) ça risque d'être bien trop compliqué pour moi. :(


Proposition en pièce jointe.
 

Pièces jointes

  • MARVIN57 PLANNING RESERVATIONS_TooFatBoy (2).xlsm
    216.1 KB · Affichages: 1
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
cp4 à dit:
En voyant que tu préfères la solution de @TooFatBoy. J'ai pensé qu'il était préférable que je me retire pour ne pas t'embrouiller et pour ne pas "pollué" ce fil.
De plus tu t'obstines à vouloir garder ton approche du problème (tes procédures).
Trouves-tu normal qu'on puisse faire une réservation antérieure à la date du jour.
Autrement dit: on est le 13/02/2024 et on peut faire une réservation pour le 12/02/2024?

Je t'avoue que je suis un peu débordé ces derniers temps. Je me connecte dès je trouve un moment.
Je serai plus libre la semaine prochaine.

Résultat obtenu
Regarde la pièce jointe 1190631
Regarde la pièce jointe 1190632
Regarde la pièce jointe 1190633
Cliquez pour agrandir...
Re cp4,

Merci de ne pas laisser tomber.

je sais on a pas toujours le temps voulu.

Pour les dates antérieures je sais, mais ce n'est pas gênant vu qu'on avance toujours dans le temps.
Je ne m'obstine pas, je suis ouvert à toutes tes propositions ou celles de TooFatBoy.

Je m'explique encore une fois pour faire simple peut-être.

Tout ce que je souhaiterai c'est :

- Saisir des dates ou périodes de réservations
- pouvoir modifier si besoin des dates ou périodes choisies dans la Listbox
- avoir un aperçu sur le calendrier comme tu l'as sur tes images jointes ci-dessus.
- et pour terminer, pouvoir supprimer des dates ou périodes de réservations dans l'onglet LISTING RESERVATIONS mais également dans l'onglet PLANNING RESERVATIONS
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
TooFatBoy à dit:
Je t'ai fait, à ma façon, la partie mise à jour du listing et du planning, aussi bien pour l'ajout d'une réservation que pour la modification d'une réservation.
Chez moi ça a l'air de fonctionner.

Pour la suite (gestion des dates, gestion des chevauchements de réservations, etc.) ça risque d'être bien trop compliqué pour moi. :(


Proposition en pièce jointe.
Cliquez pour agrandir...
Re ,

Magnifique !!!! C'est comme voulu.😇

La seule chose qui manque, c'est que le code pour supprimer une réservation une fois la ligne choisie dans la Listbox.
Si tu arrives à faire cela, j'aurai tout ce qui faut pour commencer à travailler .
 
Vote positif 0 Vote négatif
cp4

cp4

XLDnaute Barbatruc
Bonjour @Marvin57 , @TooFatBoy , @ChTi160

@Marvin57: J'ai repris ton formulaire. Il me semble qu'il fonctionne bien. Ce n'est pas le top (perfectible).
Tu peux modifier indifféremment le nombre de jour ou les dates d'arrivée et de départ (les textboxs se mettent à jour).
Je n'ai pas traité la partie planning (compliquer surtout pour la modification). Remarque: le suivi sera difficile étant donné qu'on n'a pas un aperçu de toute la feuille. Il serait peut-être plus judicieux de faire comme un planning Gantt.
Je te demande de faire des essais (création, modification et suppression) et me faire un retour.
 

Pièces jointes

  • MARVIN57 PLANNING RESERVATIONS_cp4_V3.xlsm
    104.1 KB · Affichages: 3
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
cp4 à dit:
Bonjour @Marvin57 , @TooFatBoy , @ChTi160

@Marvin57: J'ai repris ton formulaire. Il me semble qu'il fonctionne bien. Ce n'est pas le top (perfectible).
Tu peux modifier indifféremment le nombre de jour ou les dates d'arrivée et de départ (les textboxs se mettent à jour).
Je n'ai pas traité la partie planning (compliquer surtout pour la modification). Remarque: le suivi sera difficile étant donné qu'on n'a pas un aperçu de toute la feuille. Il serait peut-être plus judicieux de faire comme un planning Gantt.
Je te demande de faire des essais (création, modification et suppression) et me faire un retour.
Cliquez pour agrandir...
Bonjour cp4, Bonjour TooFatBoy, bonjour ChTi160,

Oups il y avait un BUG !

Merci pour ton retour cp4. Alors j'y ai pensé toute la nuit à ce problème !

Comme tu viens de le faire cela me va très bien. C'est vrai le planning calendrier, je crois qu'on peut l'enlever. C'est vraiment compliqué.

Par contre, si on pourrait ajouter un Textbox dans le UserForm qui me sert à recherchercher un client parmi ceux de la Listbox, cela serait parfait et me suffirait largement.

Tu vois, un textbox ou je peux par exemple saisir quelques lettres pour rechercher afin de retrouver le client dans la listbox et que uniquement ce client s'affiche dans la listbox.

Si cela est faisable ce serait le top.

Merci d'avance à toi pour ton aide et A+
Marvin57
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
cp4 à dit:
Peux-tu m'en dire un peu plus.
Cliquez pour agrandir...
C'est sur le site qu'il y avait un bug : il était inaccessible pendant des heures. ;)



Marvin57 à dit:
omme tu viens de le faire cela me va très bien. C'est vrai le planning calendrier, je crois qu'on peut l'enlever. C'est vraiment compliqué.
Cliquez pour agrandir...
Au fait, il y avait une erreur dans la ligne d'en-tête du planning : il manquait le 31 octobre.
Donc j'avais totalement refait le tableau du planning. Mais si tu le supprimes, ça n'a plus d'importance. ;)
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
cp4 à dit:
Merci. Oui je le savais. J'avais cru que le bug concerné le fichier.
En fait il manquait un petit truc pour qu'il fonctionne correctement.
Il fait appeler la prcédure RAZ juste après End With du Case "VALIDER" dans la procédure "Private Sub BtVALIDATION_Click()"
Cliquez pour agrandir...
Re cp4 et TooFatBoy

Cp4, tu As vu mon message. Alors peux tu faire cela avec un textbox de recherche ?
Si cela est possible alors ça me suffirait.
Merci pour ta réponse.

A+
 
Vote positif 0 Vote négatif

Discussions similaires

T
  • Résolu(e)
Saisie Userform pour base de données
2
Réponses
24
Affichages
1 K
TAL
T
P
  • Question
Microsoft 365 Créer un formulaire qui affiche le contenu modifiable d'une plage de cellules
Réponses
5
Affichages
364
sousou
sousou
M
  • Résolu(e)
Microsoft 365 Code transfert
Réponses
11
Affichages
188
Marvin57
M
K
  • Résolu(e)
Autres Recherche, modification dans userform
Réponses
2
Affichages
347
KRUG WOO
K
M
  • Résolu(e)
Microsoft 365 Code pour transfert
2
Réponses
15
Affichages
362
Marvin57
M
M
  • Résolu(e)
Microsoft 365 Code si date introuvable
Réponses
5
Affichages
151
Marvin57
M
L
  • Question
Microsoft 365 masquer colonne + MDP
Réponses
2
Affichages
162
l.et.lilou
L
M
  • Résolu(e)
Microsoft 365 code pour ajout
Réponses
13
Affichages
144
Marvin57
M
M
  • Résolu(e)
Microsoft 365 Rafraîchir listbox
Réponses
9
Affichages
655
Marvin57
M
T
  • Question
XL 2019 Ouvrir et modifier un fichier Excel dans un autre
Réponses
4
Affichages
135
Theca
T

Membres actuellement en ligne

11 membres et 161 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 209
Messages
2 086 266
Membres
103 168
dernier inscrit
isidore33