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
cp4 à dit:
Bonjour,

Je l'ai fait très tôt ce matin. Tester et faire un retour.
Je me dépêche, je suis en retard.
Bonne journée.
Cliquez pour agrandir...
Bonjour cp4,

je vais essayer cela dans la matinée.

Mais j'ai deux questions pour terminer.

1) peut-on supprimer l'onglet PLANNING RESERVATIONS ?

2) avant quand j'inscrivais par exemple 5 jours et que je saisissais la date d'arrivée il me donner automatiquement la date de départ.

Peut-on remettre cela ?

Merci à toi et bonne journée.

Marvin57
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
cp4 à dit:
Bonjour,

Je l'ai fait très tôt ce matin. Tester et faire un retour.
Je me dépêche, je suis en retard.
Bonne journée.
Cliquez pour agrandir...
Re,

je viens de tester ton travail et tout fonctionne très bien, même pour la recherche du client, c'est TOP cp4.;);)

La seule chose que je voulais savoir c'est si tu peux supprimer l'onglet PLANNING RESERVATIONS.

A part cela je ne changerai rien, car c'est vraiment très bien fait. Encore une fois UN GRAND MERCI à toi pour ce boulot.🙏

J'attendrai ton retour.

A+
Marvin57
 
Vote positif 0 Vote négatif
cp4

cp4

XLDnaute Barbatruc
Marvin57 à dit:
1) peut-on supprimer l'onglet PLANNING RESERVATIONS ?
Cliquez pour agrandir...
Si tu n'en as plus besoin, tu peux supprimer la feuille.
Si j'ai du temps, j'essaierai de faire quelque chose sur cette feuille.
Marvin57 à dit:
2) avant quand j'inscrivais par exemple 5 jours et que je saisissais la date d'arrivée il me donner automatiquement la date de départ.
Cliquez pour agrandir...
Normalement c'est le cas. Je n'ai pas testé.
Ajoute au début de la procédure
Private Sub OptAjoutRes_Click()
flag = True
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
cp4 à dit:
Si tu n'en as plus besoin, tu peux supprimer la feuille.
Si j'ai du temps, j'essaierai de faire quelque chose sur cette feuille.

Normalement c'est le cas. Je n'ai pas testé.
Ajoute au début de la procédure
Private Sub OptAjoutRes_Click()
flag = True
Cliquez pour agrandir...
Re,

C'est fait, j'ai rajouté et cela fonctionne.

Pour la feuille PLANNING RESERVATION, si je la supprime, dois-je aussi supprimer des lignes dans des codes car j'ai vu dans le code de validation le With Sheets("PLANNING RESERVATIONS").

VB: 
Private Sub BtVALIDATION_Click()   'Valider l'enregistrement des congés saisis
'      Stop
   Application.ScreenUpdating = False

   Select Case BtVALIDATION.Caption

   Case "VALIDER"
      If Not verifControl Then Exit Sub
      If MsgBox("Vous êtes sur le point d'ajouter une réservation, voulez-vous continuer?", vbYesNo, "Demande de confirmation") = vbYes Then
         With Sheets("PLANNING RESERVATIONS")
            Dim row As ListRow
            Set row = .[TbRes].ListObject.ListRows.Add()
            row.Range.Cells(1) = Application.WorksheetFunction.Max(Range("Tbres[N° DEMANDE]")) + 1
            row.Range.Cells(2) = CDate(Me.TxtDateJour.Value)
            row.Range.Cells(3) = CDate(Me.TxtDateAriv.Value)
            row.Range.Cells(4) = CDate(Me.TxtDateDept.Value)
            row.Range.Cells(5) = Me.TxtNomClient.Value
            row.Range.Cells(6) = Me.TxtNotes.Value
            row.Range.Cells(7) = Me.TxtNbJour.Value
         End With
 
Vote positif 0 Vote négatif
cp4

cp4

XLDnaute Barbatruc
Marvin57 à dit:
Re,

C'est fait, j'ai rajouté et cela fonctionne.

Pour la feuille PLANNING RESERVATION, si je la supprime, dois-je aussi supprimer des lignes dans des codes car j'ai vu dans le code de validation le With Sheets("PLANNING RESERVATIONS").

VB: 
Private Sub BtVALIDATION_Click()   'Valider l'enregistrement des congés saisis
'      Stop
   Application.ScreenUpdating = False

   Select Case BtVALIDATION.Caption

   Case "VALIDER"
      If Not verifControl Then Exit Sub
      If MsgBox("Vous êtes sur le point d'ajouter une réservation, voulez-vous continuer?", vbYesNo, "Demande de confirmation") = vbYes Then
         With Sheets("PLANNING RESERVATIONS")
            Dim row As ListRow
            Set row = .[TbRes].ListObject.ListRows.Add()
            row.Range.Cells(1) = Application.WorksheetFunction.Max(Range("Tbres[N° DEMANDE]")) + 1
            row.Range.Cells(2) = CDate(Me.TxtDateJour.Value)
            row.Range.Cells(3) = CDate(Me.TxtDateAriv.Value)
            row.Range.Cells(4) = CDate(Me.TxtDateDept.Value)
            row.Range.Cells(5) = Me.TxtNomClient.Value
            row.Range.Cells(6) = Me.TxtNotes.Value
            row.Range.Cells(7) = Me.TxtNbJour.Value
         End With
Cliquez pour agrandir...
houlala! je fais du n'importe quoi. Correction ci-dessous, fais un copier/coller
VB: 
Case "VALIDER"
      If Not verifControl Then Exit Sub
      If MsgBox("Vous êtes sur le point d'ajouter une réservation, voulez-vous continuer?", vbYesNo, "Demande de confirmation") = vbYes Then
'         With Sheets("planning reservations")
            Dim row As ListRow
            Set row = [tbres].ListObject.ListRows.Add() 'supprimer le point avant [tbres]
            row.Range.Cells(1) = Application.WorksheetFunction.Max(Range("Tbres[N° DEMANDE]")) + 1
            row.Range.Cells(2) = CDate(Me.TxtDateJour.Value)
            row.Range.Cells(3) = CDate(Me.TxtDateAriv.Value)
            row.Range.Cells(4) = CDate(Me.TxtDateDept.Value)
            row.Range.Cells(5) = Me.TxtNomClient.Value
            row.Range.Cells(6) = Me.TxtNotes.Value
            row.Range.Cells(7) = Me.TxtNbJour.Value
'         End With
 
Dernière édition:
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
cp4 à dit:
houlala! je fais du n'importe quoi. Correction ci-dessous, fais un copier/coller
VB: 
Case "VALIDER"
      If Not verifControl Then Exit Sub
      If MsgBox("Vous êtes sur le point d'ajouter une réservation, voulez-vous continuer?", vbYesNo, "Demande de confirmation") = vbYes Then
'         With Sheets("planning reservations")
            Dim row As ListRow
            Set row = [tbres].ListObject.ListRows.Add()
            row.Range.Cells(1) = Application.WorksheetFunction.Max(Range("Tbres[N° DEMANDE]")) + 1
            row.Range.Cells(2) = CDate(Me.TxtDateJour.Value)
            row.Range.Cells(3) = CDate(Me.TxtDateAriv.Value)
            row.Range.Cells(4) = CDate(Me.TxtDateDept.Value)
            row.Range.Cells(5) = Me.TxtNomClient.Value
            row.Range.Cells(6) = Me.TxtNotes.Value
            row.Range.Cells(7) = Me.TxtNbJour.Value
'         End With
Cliquez pour agrandir...
je crois que c'est la même chose non !
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
cp4 à dit:
houlala! je fais du n'importe quoi. Correction ci-dessous, fais un copier/coller
VB: 
Case "VALIDER"
      If Not verifControl Then Exit Sub
      If MsgBox("Vous êtes sur le point d'ajouter une réservation, voulez-vous continuer?", vbYesNo, "Demande de confirmation") = vbYes Then
'         With Sheets("planning reservations")
            Dim row As ListRow
            Set row = [tbres].ListObject.ListRows.Add()
            row.Range.Cells(1) = Application.WorksheetFunction.Max(Range("Tbres[N° DEMANDE]")) + 1
            row.Range.Cells(2) = CDate(Me.TxtDateJour.Value)
            row.Range.Cells(3) = CDate(Me.TxtDateAriv.Value)
            row.Range.Cells(4) = CDate(Me.TxtDateDept.Value)
            row.Range.Cells(5) = Me.TxtNomClient.Value
            row.Range.Cells(6) = Me.TxtNotes.Value
            row.Range.Cells(7) = Me.TxtNbJour.Value
'         End With
Cliquez pour agrandir...
je viens d'essayer en modifiant cela
With Sheets("planning reservations")

en
With Sheets("Listing reservations")

est-ce correct ?
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
cp4 à dit:
J'avoue que je découvre que le code ne tient pas compte de la feuille sur laquelle se trouve le tableau.
Cliquez pour agrandir...
C'est pourtant toi qui a écrit le code, puisque si j'ai bien compris tu as remplacé la moitié de ce que j'avais fait (ajout d'une résa dans le listing, et modif d'une résa dans le listing) et supprimé l'autre moitié de ce que j'avais fait (ajout d'une résa dans le planning, et modif d'une résa dans le planning).


Question en passant : en gros, c'est quoi un planning de Gantt ?
Ça a l'air intéressant en lisant ton message. Du coup ça m'intrigue.
 
Vote positif 0 Vote négatif
cp4

cp4

XLDnaute Barbatruc
TooFatBoy à dit:
C'est pourtant toi qui a écrit le code, puisque si j'ai bien compris tu as remplacé la moitié de ce que j'avais fait
Cliquez pour agrandir...
En effet, J'ai écrit le code (ou adapté) mais je n'ai pas modifié le tien. J'ai travaillé sur le fichier initial de @Marvin57.
Ensuite, je ne connais pas tout du VBA. C'est en faisant une erreur que je découvre ce que j'ai dis dans le fil plus haut.

TooFatBoy à dit:
Question en passant : en gros, c'est quoi un planning de Gantt ?
Cliquez pour agrandir...
En fait c'est Diagramme de Gantt. Tu trouveras plein d'explication sur le net dont une sur ce lien
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
cp4 à dit:
Ensuite, je ne connais pas tout du VBA. C'est en faisant une erreur que je découvre ce que j'ai dis dans le fil plus haut.
Cliquez pour agrandir...
Ah ok, donc tu ne parlais en fait pas de ce code en particulier, mais de la possibilité, en général, de faire référence à un TS en VBA sans faire référence à sa feuille.

Perso, je ne connais que les bases de VBA, et même que les bases du Basic, et je me bats toujours avec la syntaxe pour adresser les TS. 😡


Merci pour le lien. Je vais aller voir si j'y comprends quelque chose. ;)

[edit] D'après ce que j'y vois, c'est un simple tableau, avec les cellules remplies aux dates correspondantes. Le jour où il a "inventé" ça ce monsieur Gantt, il n'a pas dû faire un AVC... 😂 [/edit]
 
Dernière édition:
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
cp4 à dit:
En effet, J'ai écrit le code (ou adapté) mais je n'ai pas modifié le tien. J'ai travaillé sur le fichier initial de @Marvin57.
Ensuite, je ne connais pas tout du VBA. C'est en faisant une erreur que je découvre ce que j'ai dis dans le fil plus haut.


En fait c'est Diagramme de Gantt. Tu trouveras plein d'explication sur le net dont une sur ce lien
Cliquez pour agrandir...
@cp4

j'ai beau essayé mais cela ne fonctionne pas si je supprime la ligne
With Sheets("planning reservations") et le end with.

Par contre si je change en
With Sheets("Listing reservations"), tout va bien.

Ce que tu m'as dis tout à l'heure je ne l'ai pas compris .
tu disais : Mais j'ai utilisé le nom du tableau entre crochet, il est inutile d'ajouter le nom de la feuille.
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
T'as bien enlevé le . devant le [ dans l'assignation de la variable "row" ?

Pardon pour cette remarque, mais à mon avis ce n'est pas une bonne idée d'utiliser un "mot réservé" comme nom de variable.
Il vaudrait peut-être mieux utiliser autre chose, comme par exemple Ligne. ;)
 
Dernière édition:
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
363
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
346
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
150
Marvin57
M
L
  • Question
Microsoft 365 masquer colonne + MDP
Réponses
2
Affichages
161
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
654
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

23 membres et 142 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 208
Messages
2 086 257
Membres
103 167
dernier inscrit
miriame