Compléter une zone de texte après clic gauche

Private Sub De13hà14h_Enter()
Dim MrX As String, MrY As String
Dim Reponse As Integer
If Modifiable17.ListCount = 0 Or Modifiable17.ListIndex = -1 Then
   Modifiable17.SetFocus
   Exit Sub
End If
MrX = Modifiable17.Value
MrY = De13hà14h.Value
If MrX = MrY Then Exit Sub
If MrX <> "" Then
   Reponse = MsgBox("Désirez-vous remplacer le Rendez-vous " & MrX & _
                  Chr(10) & "par le Rendez-vous " & MrY, vbQuestion + _
                  vbYesNo, "Confirmation de Rendez-vous")
   If Reponse = vbNo Then
     De13hà14h.SetFocus
     Exit Sub
   End If
End If
De13hà14h.Value = Modifiable17.Value
Modifiable17.SetFocus
End Sub

Private Sub De13hà14h_Enter()
'Section declaration des variables utilisées dans la procédure
'Ici, on utilise 2 variables de type String (Texte) et une variable de type Integer (Entier)
Dim MrX As String, MrY As String
Dim Reponse As Integer

'Premier test
'SI Modifiable17 est vide OU SI Modifiable17 non initialisé (champ texte vide) ALORS
'    Mettre le focus (le curseur) sur Modifiable17
'    Quitter la procédure
'Fin Test
If Modifiable17.ListCount = 0 Or Modifiable17.ListIndex = -1 Then
   Modifiable17.SetFocus
   Exit Sub
End If

'Section Initialisation des variables MrX et MrY
MrX = Modifiable17.Value ' Valeur de Modifiable17
MrY = De13hà14h.Value ' Valeur du champ pointé par De13hà14h

'Second test
'Si MrX = MrY ALORS ne rien faire et quitter la procédure
'On pourrait rajouter comme ci dessus, mettre le focus sur Modifiable17
'afin de solliciter un choix different. Fais la modif stp.
If MrX = MrY Then
   Modifiable17.SetFocus
   Exit Sub
End If

'Troisième test
'Si MrX n'est pas vide (cad si le rendez-vous est déja pris par une autre personne)
'Poser la question pour confirmer le remplacement
'Ici on utilise la fonction MsgBox(Message, aspect, titre) qui retourne un entier -> Reponse
'Message contient le texte à afficher, chr(10) c'est le code pour dire nouvelle ligne
'le signe & sert à concatener les éléments de la chaine composée de parties fixes et de variables
'le signe _ sert à continuer l'instruction sur la ligne suivante
'si tu veux que le message tienne sur une ligne, enlève Chr(10) &
'enfin vbQuestion et vbYesNo sont des constantes VB pour afficher un point d'interrogation
'et deux boutons OUI et NON, il existe d'autres constantes possibles.
If MrX <> "" Then
   Reponse = MsgBox("Désirez-vous remplacer le Rendez-vous " & MrX & _
                  Chr(10) & "par le Rendez-vous " & MrY, vbQuestion + _
                  vbYesNo, "Confirmation de Rendez-vous")

'Si la reponse est NON, ne rien faire, mettre le focus sur Modifiable17 et quitter la procédure
   If Reponse = vbNo Then
     De13hà14h.SetFocus
     Exit Sub
   End If

End If
'Fin du troisième test

'Finalement, une fois passés tous les tests on fait la mise à jour
De13hà14h.Value = Modifiable17.Value
Modifiable17.SetFocus
End Sub

Private Sub De13hà14h_Click()
Dim MrX As String, MrY As String
Dim Reponse As Integer
If Modifiable17.ListCount = 0 Or Modifiable17.ListIndex = -1 Then
'   Modifiable17.SetFocus
   Exit Sub
End If
MrX = Modifiable17.Value
MrY = De13hà14h.Text
If MrX = MrY Then
'     Modifiable17.SetFocus
     Exit Sub
End If
If MrY <> Empty Then
   Reponse = MsgBox("Désirez-vous remplacer le Rendez-vous " & MrY & _
                  Chr(10) & "par le Rendez-vous " & MrX, vbQuestion + _
                  vbYesNo, "Confirmation de Rendez-vous")
   If Reponse = vbNo Then
'     Modifiable17.SetFocus
     Exit Sub
   End If
End If
De13hà14h.Text = Modifiable17.Value
'Modifiable17.SetFocus
End Sub

Private Sub Commande16_Click() '<---- Nom du bouton
Dim dbs As Database, qdf As QueryDef, strSQL As String
Dim reponse As Integer

Set dbs = CurrentDb
strSQL = "SELECT [TableDesRendez-Vous].[DateJour], [TableDesRendez-Vous].[De 10h à 11h]," _
             & " [TableDesRendez-Vous].[De 11h à 12h], [TableDesRendez-Vous].[De 12h à 13h]," _
             & " [TableDesRendez-Vous].[De 13h à 14h], [TableDesRendez-Vous].[De 14h à 15h]," _
             & " [TableDesRendez-Vous].[De 15h à 16h], [TableDesRendez-Vous].[De 16h à 17h]" & _
         " FROM [TableDesRendez-Vous]" & _
         " WHERE ((([TableDesRendez-Vous].[Date])=#" & DateJour.Value & "#));"

dbs.QueryDefs.Delete ("Requête1") '<---- Nom de la Requête
Set qdf = dbs.CreateQueryDef("Requête1", strSQL) '<---- Nom de la Requête
DoCmd.OpenReport "Etat1", acViewPreview '<---- Nom de l'Etat
reponse = MsgBox("Désirez-vous imprimer cette page", vbInformation + vbYesNo, "Impression Etat")
If reponse = vbYes Then
        DoCmd.OpenReport "Etat1", acNormal '<---- Nom de l'Etat
End If
End Sub

Private Sub Form_Activate()
   Calendar7.Value = Date
End Sub

Private Sub Calendar7_Click()
   If IsNull(DateJour.Value) Then DateJour.Value = Calendar7.Value
   Calendar7.Value = Date
End Sub