Private Sub Cmd_Cloture_Click()
Dim Ln As Long
If Me.TxtDateCloture = "" Then
'TxtDateCloture.BackColor = RGB(255, 0, 0)
MsgBox "Merci d'indiquer la date"
TxtDateCloture.SetFocus
Exit Sub
' ElseIf IsDate(Me.TxtDateCloture) = False Then
' MsgBox ("La date n'est pas correcte")
' TxtDateCloture.SetFocus
' Exit Sub
ElseIf Sheets("EVT-MUSE").Range("R3").Value = "clos" Then
'TxtDateCloture.BackColor = RGB(255, 0, 0)
MsgBox "Deja cloturer"
Sheets("EVT-MUSE").Range("R3").SetFocus
Exit Sub
With Sheets("evt-muse")
Ln = ActiveCell.Row
If IsDate(TxtDateCloture) Then .Cells(Ln, 19) = CDate(TxtDateCloture) '***'
.Cells(Ln, 20) = Lst_Intervenant & " " & Text_Cloture_Description.Value
.Cells(Ln, 18) = "clos"
.Cells(Ln, 18).Interior.Color = RGB(146, 208, 80)
.Cells(Ln, 18).Font.Bold = True
End With
End If
Sheets("DONNEE_MACRO").Range("D25").Value = IsDate(TxtDateCloture)
MsgBox "La cloture a été prise en compte."
Text_NMR.Value = ""
TxtDateCloture = ""
Text_Cloture_Description = ""
Lst_Intervenant.Value = ""
End Sub