Private Sub CommandButton1_Click()
If rp.Value = "" Then
MsgBox ("Vous devez choisir un responsable pédagogique")
rp.SetFocus
Exit Sub
End If
If ass.Value = "" Then
MsgBox ("Vous devez choisir une assistante")
ass.SetFocus
Exit Sub
End If
If dom.Value = "" Then
MsgBox ("Vous devez choisir un domaine")
dom.SetFocus
Exit Sub
End If
If Intit.Value = "" Then
MsgBox ("Vous devez saisir un intitulé pour la formation")
Intit.SetFocus
Exit Sub
End If
If client.Value = "" Then
MsgBox ("Vous devez saisir un nom de client ")
client.SetFocus
Exit Sub
End If
If TYPEF.Value = "" Then
MsgBox ("Vous devez indiquer de quel type d'action il est question ")
TYPEF.SetFocus
Exit Sub
End If
If REF.Value = "" Then
MsgBox ("Vous devez indiquer s'il s'agit d'une action ARA HT ou ARA Net ")
REF.SetFocus
Exit Sub
End If
num = Sheets("FEUIL1").Range("B65536").End(xlUp).Row + 1
Sheets("Feuil1").Activate
Range("B" & num).Value = datej.Value
Range("A" & num).Value = Month(datej) & "-" & Year(datej) & "-" & num
Range("C" & num).Value = rp.Value
Range("D" & num).Value = ass.Value
Range("E" & num).Value = dom.Value
Range("F" & num).Value = Intit.Value
Range("G" & num).Value = client.Value
Range("h" & num).Value = TYPEF.Value
Range("I" & num).Value = DTPicker1.Value
CHRONO.Hide
reponse = MsgBox("Le numéro chrono de cette proposition est " & Month(datej) & "-" & Year(datej) & "-" & num & Chr(10) & " " & "La proposition est bien enregistrée dans le classeur chrono, la relance peut se faire le " & CDate(datej) + 15, vbYes, "Attribution numéro chrono")
End Sub