Private Sub btnPlanningSalleS_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' Désactive le bouton btnPlanningSalle
    Call BasculerBouton("btnPlanningFormateurC", "btnPlanningFormateurR")
    
    ' initialisation des variables
    boolAffichePlanningSalle = True
    lngRecordDepart = 0
    lngCouleurfond = 8454016
    lngCodeFormateur = 0
    intDefilementSalle = 0
    boolEOF = False

    ' Mise en place du planning
    RecuperationEntetesLignes
    GenerationPlanningSalles
End Sub

Private Sub btnPlanningFormateurS_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' Désactive le bouton btnPlanningSalle
    Call BasculerBouton("btnPlanningSalleC", "btnPlanningSalleR")
    
    ' Initialisation des variables
    boolAffichePlanningSalle = False
    lngRecordDepart = 0
    lngCouleurfond = 8454016
    intDefilementSalle = 0
    boolEOF = False

    ' Mise en place du planning
    RecuperationEntetesLignes
    GenerationPlanningFormateurs
End Sub

Sub RecuperationEntetesLignes()
	' Test du type d'affichage sélectionné
    If boolAffichePlanningSalle = True Then
        ' Réinitialisation des variables
        intCompteur = 1
        strSallesConcernees = ""
        
        ' Récupération du jeu d'enregistrements
        Set rsSalles = CurrentDb.OpenRecordset(cstSalles)
        ' Relecture du jeu de rsSalles pour créer la chaîne qui permettra l'extraction des données
		' correspondantes dans rsPlanning
        With rsSalles
            ' Retour au début du jeu d'enregistrement
            .MoveFirst
            ' Saute au premier enregistrement concerné
            ' Rappel : lngRecordDepart permet de repositionner le pointeur suivant le nombre de clics sur les 
            ' boutons de défilement vers le haut ou vers le bas
            .Move lngRecordDepart
            ' Boucle jusqu'à la fin du jeu d'enregistrements
            Do While Not .EOF
                Me.Controls("lblNomSalle" & intCompteur).Caption = .Fields(1)
                Me.Controls("txtCode" & intCompteur) = .Fields(0)
                ' Génération de la chaîne de critères qui sera utilisée avec l'opérateur IN
                strSallesConcernees = strSallesConcernees & "," & Chr(34) & .Fields(1) & Chr(34)
                intCompteur = intCompteur + 1
                ' Valeur limite pour sortir de la boucle
                If intCompteur > 10 Then
                    Exit Do
                Else
                    .MoveNext
                End If
            Loop
            ' Initialisation de la variable de fin de fichier
            If .EOF Then
                boolEOF = True
            End If
        End With
        
        ' enlève la virgule
        strSallesConcernees = Right(strSallesConcernees, Len(strSallesConcernees) - 1)
    Else
        ' Réinitialisation des variables
        intCompteur = 1
        strFormateursConcernes = ""
        
        ' Récupération du jeu d'enregistrements
        Set rsFormateurs = CurrentDb.OpenRecordset(cstFormateurs)
        ' Relecture du jeu de rsFormateurs pour créer la chaîne qui permettra 
		'l'extraction des données correspondantes dans rsPlanning
        With rsFormateurs
            ' Retour au début du jeu d'enregistrement
            .MoveFirst
            ' Saute au premier enregistrement concerné
            ' Rappel : lngRecordDepart permet de repositionner le pointeur suivant le nombre de clics sur les 
            ' boutons de défilement vers le haut ou vers le bas
            .Move lngRecordDepart
            ' Boucle jusqu'à la fin du jeu d'enregistrements
            For intCompteur = 1 To 10
                If .EOF Then
	            	' Initialisation de la variable de fin de fichier
                    boolEOF = True
                    Me.Controls("lblNomSalle" & intCompteur).Caption = " "
                    Me.Controls("txtCode" & intCompteur) = 0
                Else
                    Me.Controls("lblNomSalle" & intCompteur).Caption = .Fields(1)
                    Me.Controls("txtCode" & intCompteur) = .Fields(0)
	                ' Génération de la chaîne de critères qui sera utilisée avec l'opérateur IN
	                strFormateursConcernes = strFormateursConcernes & "," & .Fields(0)
                    .MoveNext
	            End If
            Next
        End With
        
        ' enlève la virgule
        strFormateursConcernes = Right(strFormateursConcernes, Len(strFormateursConcernes) - 1)
    End If
End Sub

Sub Reservation()
    ' teste le type d'affichage
    If boolAffichePlanningSalle = False Then
        intReponse = MsgBox("La réservation ou la modification n'est possible qu'en mode affichage ""Planning Salles""" & vbCrLf & _
                            "Souhaitez vous basculer dans ce mode d'affichage", vbQuestion + vbYesNo, cstDVP)
        ' Test de la réponse de l'utilisateur
		If intReponse = vbYes Then
			' Active le bouton "Salles" au lieu du bouton "Formateurs"
            Call BasculerBouton("btnPlanningFormateurC", "btnPlanningFormateurR")
            If btnPlanningSalleS.Visible = True Then
                Call BasculerBouton("btnPlanningSalleS", "btnPlanningSalleC")
            Else
                Call BasculerBouton("btnPlanningSalleR", "btnPlanningSalleC")
            End If
            ' Réinitialisation de la variable booléenne
            boolAffichePlanningSalle = True
            ' Régénération du planning
            RecuperationEntetesLignes
            GenerationPlanningSalles
        End If
    Else
        ' Récupère le nom et le n° de code de la salle cliquée
        RecuperationSalle
        ' Vérifie si la date sélectionnée n'est pas un WeekEnd et si la salle n'est pas déjà occupée
        ControleDispoSalle
        ' Redessine le Planning
        If boolReservationPossible = True Then
            GenerationPlanningSalles
        End If
    End If
End Sub

Private Sub Form_Open(Cancel As Integer)
    Dim rsFormationConcernee As DAO.Recordset
    Dim strSqlFormationConcernee As String
    
    
    Set frmActif = Me
    
    ' Charge les images
    btnFermerR.Picture = CurrentProject.Path & "\image\btnFermerR.jpg"
    btnFermerS.Picture = CurrentProject.Path & "\image\btnFermerS.jpg"
    btnFermerC.Picture = CurrentProject.Path & "\image\btnFermerC.jpg"
    btnSupprimerR.Picture = CurrentProject.Path & "\image\btnSupprimerR.jpg"
    btnSupprimerS.Picture = CurrentProject.Path & "\image\btnSupprimerS.jpg"
    btnSupprimerC.Picture = CurrentProject.Path & "\image\btnSupprimerC.jpg"
    btnModifSalleR.Picture = CurrentProject.Path & "\image\btnModifSalleR.jpg"
    btnModifSalleS.Picture = CurrentProject.Path & "\image\btnModifSalleS.jpg"
    btnModifSalleC.Picture = CurrentProject.Path & "\image\btnModifSalleC.jpg"
    btnModifDateR.Picture = CurrentProject.Path & "\image\btnModifDateR.jpg"
    btnModifDateS.Picture = CurrentProject.Path & "\image\btnModifDateS.jpg"
    btnModifDateC.Picture = CurrentProject.Path & "\image\btnModifDateC.jpg"
    btnModifFormateurR.Picture = CurrentProject.Path & "\image\btnModifFormateurR.jpg"
    btnModifFormateurS.Picture = CurrentProject.Path & "\image\btnModifFormateurS.jpg"
    btnModifFormateurC.Picture = CurrentProject.Path & "\image\btnModifFormateurC.jpg"
    
    
    ' récupération des informations de la formation
    strSqlFormationConcernee = "SELECT T_Stages.CodeStage, T_Stages.DateStageDebut, T_Catalogue.DureeStage, " _
                                            & "T_NiveauFormation.LibelleNiveau, T_Catalogue.IntituleStage, " _
                                            & "[NomFormateur] & "" "" & [PrenomFormateur] AS Formateur, T_Produits.CodeProduit, " _
                                            & "T_NiveauFormation.CodeNiveau " _
                                            & "FROM T_NiveauFormation " _
                                            & "INNER JOIN (T_Produits " _
                                            & "INNER JOIN (T_Catalogue " _
                                            & "INNER JOIN (T_Formateur " _
                                            & "INNER JOIN (T_SalleFormation " _
                                            & "INNER JOIN T_Stages " _
                                            & "ON T_SalleFormation.CodeSalleFormation = T_Stages.CodeSalleFormation) " _
                                            & "ON T_Formateur.CodeFormateur = T_Stages.CodeFormateur) " _
                                            & "ON T_Catalogue.CodeCatalogue = T_Stages.CodeCatalogue) " _
                                            & "ON T_Produits.CodeProduit = T_Catalogue.CodeProduit) " _
                                            & "ON T_NiveauFormation.CodeNiveau = T_Catalogue.CodeNiveau " _
                                            & "WHERE T_Stages.CodeStage = " & lngCodeStage
                                            
    ' Inititalisation du jeu d'enregistrements
	Set rsFormationConcernee = CurrentDb.OpenRecordset(strSqlFormationConcernee)
    
    With rsFormationConcernee
        ' récupération de la durée de la formation
        bytDureeFormation = .Fields(2)
        ' Récupération du produit concerné
        lngCodeProduit = .Fields(6)
        ' Récupération du Niveau de formation
        lngNiveau = .Fields(7)
        ' préparation du message affiché dans l'ardoise
        lblMessage.Caption = "Formation n° : " & lngCodeStage & vbCrLf _
                                        & "Intitule : " & .Fields(4) & vbCrLf _
                                        & "Durée : " & IIf(bytDureeFormation = 1, bytDureeFormation _
										& " jour", bytDureeFormation & " jours") & vbCrLf _
                                        & "Début le : " & .Fields(1) & vbCrLf _
                                        & "Formateur : " & .Fields(5)
                                        
    varDateDebutFormation = .Fields(1)
    varDateFinFormation = DateAdd("d", bytDureeFormation - 1, varDateDebutFormation)
    End With
End Sub

Private Sub objEncadrementBoutons_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' appel de la routine permettant de gérer l'animation des boutons
    Call Détail_MouseMove(Button, Shift, X, Y)
End Sub

Private Sub Détail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' Réinitialisation des images
    btnFermerR.Visible = True
    btnFermerS.Visible = False
    btnFermerC.Visible = False
    btnSupprimerR.Visible = True
    btnSupprimerS.Visible = False
    btnSupprimerC.Visible = False
    btnModifSalleR.Visible = True
    btnModifSalleS.Visible = False
    btnModifSalleC.Visible = False
    btnModifDateR.Visible = True
    btnModifDateS.Visible = False
    btnModifDateC.Visible = False
    btnModifFormateurR.Visible = True
    btnModifFormateurS.Visible = False
    btnModifFormateurC.Visible = False
End Sub

Private Sub btnSupprimerS_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' Déclaration variable locale
    Dim strDeleteStage As String
    
    ' Initialisation de la syntaxe SQL nécessaire à la suppression
    strDeleteStage = "DELETE CodeStage FROM T_Stages WHERE CodeStage = " & lngCodeStage

    ' annule l'affichage des messages système
    DoCmd.SetWarnings False
    ' interrogation de l'utilisateur
    intReponse = MsgBox("Vous allez supprimer définitivement une formation !" _
                        & vbCrLf & "Souhaitez-vous continuer ?", vbQuestion + vbYesNo, cstDVP)
                                    
    ' Traitement de la réponse de l'utilisateur
    ' Confirmation de la suppression
    If intReponse = vbYes Then
        ' Exécute la requete de suppression
        DoCmd.RunSQL strDeleteStage
    Else
        ' Annule la suppression des enregistrements
        MsgBox "La demande de suppression de la formation a été annulée !", vbInformation, cstDVP
    End If
    
    ' Réactivation des messages système
    DoCmd.SetWarnings True
    
    Set frmActif = Forms("F_Planning").Form
    
    ' Fermeture du formulaire
    DoCmd.Close
    
    ' Redessine le planning
    GenerationPlanningSalles
End Sub

Private Sub btnModifSalleS_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim strSqlSallesReservees As String, strSallesOccupees As String
    
    ' Préparation de la récupération des codes salles occupées
    strSqlSallesReservees = "SELECT T_Stages.CodeStage, T_SalleFormation.CodeSalleFormation, T_Stages.DateStageDebut " _
                                        & "FROM T_SalleFormation INNER JOIN T_Stages " _
                                        & "ON T_SalleFormation.CodeSalleFormation = T_Stages.CodeSalleFormation " _
                                        & "WHERE T_Stages.DateStageDebut Between #" & Format(varDateDebutFormation, "mm/dd/yy") _
                                        & "# And #" & Format(varDateFinFormation, "mm/dd/yy") & "#"
    
    ' Récupération du jeu d'enregistrements
    Set rsSallesReservees = CurrentDb.OpenRecordset(strSqlSallesReservees)
    
    ' Création de la chaîne des salles occupées (qui seront exclues de l'extraction)
    With rsSallesReservees
        Do While Not .EOF
            strSallesOccupees = strSallesOccupees & "," & .Fields(1)
            .MoveNext
        Loop
    End With
                  
    ' Suppression de la virgule en fin de chaine
    strSallesOccupees = Right(strSallesOccupees, Len(strSallesOccupees) - 1)
    
    ' initialisation de la variable qui sera la source de la zone de liste
    strSqlSallesReservees = "SELECT * FROM T_SalleFormation WHERE CodeSalleFormation NOT IN (" & strSallesOccupees & ")"
    
    ' Alimentation de la liste lstElementDispo
    With lstElementDispo
        .RowSourceType = "Table/Query"
        .RowSource = strSqlSallesReservees
    End With
    
    ' Changement de l'intitulé de l'ardoise
    lblFormationModif1.Caption = "Choisir une Salle"
    lblFormationModif2.Caption = "Choisir une Salle"
    
    ' Masque le message de la formation concernée et le calendrier pour afficher la liste des salles disponibles
    lblMessage.Visible = False
    objCalendrier.Visible = False
    lstElementDispo.Visible = True
    
    ' Permet d'utiliser le même objet pour deux sources différentes. (Salles ou Formateurs)
    boolModifFormateur = False

End Sub

Private Sub lstElementDispo_AfterUpdate()
    Dim strElementMAJ As String
    
    ' Désactivation des messages systéme
    DoCmd.SetWarnings False
    
        ' test sur le type d'info à mettre à jour
                ' (boolModifFormateur = False -> Modif Salles)
                ' (boolModifFormateur = True -> Modif Formateur)
        If boolModifFormateur = False Then
            ' Mise à jour du CodeSalleFormation
            strElementMAJ = "CodeSalleFormation"
        Else
            ' Mise à jour du CodeFormateur
            strElementMAJ = "CodeFormateur"
        End If
    
        ' Préparation de la requete MAJ
        strSQLMajStage = "UPDATE T_Stages SET " & strElementMAJ & " = " & lstElementDispo & _
                                   " WHERE CodeStage = " & lngCodeStage
                                   
        DoCmd.RunSQL strSQLMajStage
    
    ' réactivation des messages système
    DoCmd.SetWarnings True
    
    ' redessine le planning
    GenerationPlanningSalles
    ' Ferme le formulaire