Private Sub Saisie_des_Horaires_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.TbxNom.Clear() 'champ vidé par un nouveau clic Me.TbxNom.Visible = True Me.TbxNom.ReadOnly = True Me.tbxPren.Clear() 'champ vidé par un nouveau clic Me.tbxPren.Visible = True Me.tbxPren.ReadOnly = True Me.TbxNbrHrHebdo.Clear() Me.TbxNbrHrHebdo.Visible = True Me.TbxNbrHrHebdo.ReadOnly = True Me.TbxNbrHT.Clear() Me.TbxNbrHT.Visible = True Me.TbxNbrHT.ReadOnly = True Me.LblNom.Visible = True Me.LblPren.Visible = True Me.LblNbrHrHebdo.Visible = True Me.LblNbrHT.Visible = True Me.Tbx25.ReadOnly = True Me.Tbx50.ReadOnly = True Me.TbxDate.Text = MonthCalendar1.SelectionStart End Sub