Microsoft 365 Code incomplet

[Marvin57]

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

 

[TooFatBoy]

Oui le TS du listing doit rester comme il est.

Loin de moi l'idée de le modifier. Il est très bien ainsi. 👍

Ensuite pour le planning je ne sais pas si on peut faire cela avec un TS comme c'est un calendrier !
A toi de me dire si cela est possible.

Tu as raison, le fait que les nom des en-têtes changent en fonction de l'année risque peut-être d'être gênant.

Et non il ne sera pas partagé.

OK; donc pas de problème pour utiliser des TS.

 

[TooFatBoy]

dans les cellules du planning, j'aimerai qu'il marque le nom des clients et les notes. Donc Textbox6 et Textbox4

Euh... ça va pas faire un peu beaucoup ???

D'autant que le nom de client, tu l'as déjà en en-tête de ligne apparemment.

 

[Marvin57]

Euh... ça va pas faire un peu beaucoup ???

D'autant que le nom de client, tu l'as déjà en en-tête de ligne apparemment.

Non pas du tout, je préfère si possible mettre ce que j'ai dis.

 

[Marvin57]

Euh... ça va pas faire un peu beaucoup ???

D'autant que le nom de client, tu l'as déjà en en-tête de ligne apparemment.

Tu penses pouvoir me créer ces codes ?

 

[TooFatBoy]

Tu penses pouvoir me créer ces codes ?

Non. 🙁

Encore une demande qui dépasse largement mes compétences... 😭

 

[Marvin57]

Non. 🙁

Encore une demande qui dépasse largement mes compétences... 😭

OK pas de soucis.

 

[Marvin57]

Je termine ce sujet, vu que personne s'y intéresse.

Merci en tout cas à vous .

Marvin57

 

[TooFatBoy]

Je termine ce sujet, vu que personne s'y intéresse.

Ah non, tu ne peux pas dire ça : cp4 t'a fait une proposition !
Comprends bien que tout le monde ici est bénévole et n'a pas forcément le temps ou les compétences pour répondre dans la minute à toutes les questions.

Si tu veux, je te propose en pièce jointe un début d'ébauche d'idée de modification du code.

 

[Marvin57]

Ah non, tu ne peux pas dire ça : cp4 t'a fait une proposition !
Comprends bien que tout le monde ici est bénévole et n'a pas forcément le temps ou les compétences pour répondre dans la minute à toutes les questions.

Si tu veux, je te propose en pièce jointe un début d'ébauche d'idée de modification du code.

Non non pas de soucis, je comprends. Mais la solution de cp4 ne fonctionne pas et comme je dois travailler avec un planning du genre donc je n'ai pas trop de temps. Au pire des cas je vais faire autrement.

 

[TooFatBoy]

Et ma proposition en #23 ne convient pas pour dépanner ou te donner une idée de comment procéder ?

Je n'ai modifié que la partie "Ajout d'une réservation" de la macro VALIDATION_Click.

 

[TooFatBoy]

Est-ce toi qui a écrit la macro Actualiser_Planning_Reservations ?
Fonctionne-t-elle correctement ?

J'ai l'impression qu'elle cherche des dates dans la colonne B de la feuille "PLANNING RESERVATIONS" 🤔 :

    With Sheets("PLANNING RESERVATIONS")
        For Lig = 5 To 151
            If Month(.Cells(Lig, 2)) = Month(Me.TextBox2) Then

 

[TooFatBoy]

Encore une chose : si c'est ton vrai fichier, tu feras gaffe car tu as des dizaines de noms de plages nommées dont la référence contient un ou plusieurs #REF!. 🙁

 

[TooFatBoy]

As-tu testé la proposition de #23 ?

 

[cp4]

Bonjour,

@TooFatBoy 😉: Merci d'avoir rappelé à notre ami que nous sommes des bénévoles et que nous n'avons pas tout le temps (ou compétences) nécessaire pour répondre.

Mais la solution de cp4 ne fonctionne pas et comme je dois travailler avec un planning du genre donc je n'ai pas trop de temps.

@Marvin57 : Je n'ai fait que corriger ton code. Tu t'es emmêlé les pinceaux dans les if.
Personnellement, si je ne comprends pas clairement un problème. Je propose des solutions ne répondant pas aux attentes du demandeur.
Le demandeur est pressé de trouver une solution. Les participants n'ont pas forcément le temps pour répondre assez rapidement.

Les lignes sont bien ajoutées. C'est ainsi que j'ai compris.

Bon dimanche même pluvieux.

 

[Marvin57]

Bonjour,

@TooFatBoy 😉: Merci d'avoir rappelé à notre ami que nous sommes des bénévoles et que nous n'avons pas tout le temps (ou compétences) nécessaire pour répondre.


@Marvin57 : Je n'ai fait que corriger ton code. Tu t'es emmêlé les pinceaux dans les if.
Personnellement, si je ne comprends pas clairement un problème. Je propose des solutions ne répondant pas aux attentes du demandeur.
Le demandeur est pressé de trouver une solution. Les participants n'ont pas forcément le temps pour répondre assez rapidement.

Les lignes sont bien ajoutées. C'est ainsi que j'ai compris.
Regarde la pièce jointe 1190475
Bon dimanche même pluvieux.

Bonjour cp4,

pour commencer ce n'était en aucun cas un manque de respect envers vous.

Mon souhait était bien expliqué et oui vos lignes s'inscrivent bien dans le listing planning mais pas dans le planning reservations.

Ensuite, comme je l'avais écris à notre ami TooFatBoy j'étais pressé mais en aucun cas cela était dirigé vers des membres de ce forum. Si vous suivez un peu mes posts vous verrez que je n'ai jamais manqué de respect envers qui que ce soit.

Merci en tout cas pour votre retour.
Marvin57