Private Sub dateBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(dateBox) Then Cancel = True: MsgBox "Date non valide !", 48: Exit Sub
Sheets("Saisie").[A1] = CDate(dateBox)
UserForm_Initialize 'pour copier le format
End Sub
Private Sub UserForm_Initialize()
dateBox = Sheets("Saisie").Range("A1").Text
End Sub
Private Sub validerBouton_Click()
Dim lig5
'Recopie les données vers la BDD
lig5 = Application.Match(Sheets("Saisie").[A1].Value2, Sheets("data").[A1:A367], 0)
If IsError(lig5) Then MsgBox "date non trouvée": Exit Sub
Sheets("data").Cells(lig5, 2) = commentairesBox
'Incrémente de 1 la date
Sheets("Saisie").[A1] = Sheets("Saisie").[A1] + 1
UserForm_Initialize
End Sub