Dim ligne As Long
Dim modification As Long
Dim control As Long
Dim focus As Long
Dim heures As Long
If Me.Controls("dtpicker1").Value = "" Then
MsgBox " Vous devez absolument indiquer une date !!!!", vbCritical + vbOKOnly, ""
Me.Controls("DTPicker1").SetFocus
Exit Sub
End If
If Me.Controls("combobox7").Value = "" Then
MsgBox " Vous devez absolument indiquer un cycle!!!!", vbCritical + vbOKOnly, ""
Me.Controls("combobox1").SetFocus
Exit Sub
End If
If Me.Controls("combobox1").Value = "" Then
MsgBox " Vous devez absolument indiquer une presse!!!!", vbCritical + vbOKOnly, ""
Me.Controls("combobox1").SetFocus
Exit Sub
End If
If Me.Controls("textbox1").Value = "" Then
MsgBox " Vous devez absolument indiquer une dim!!!!", vbCritical + vbOKOnly, ""
Me.Controls("textbox1").SetFocus
Exit Sub
End If
If Me.Controls("textbox2").Value = "" Then
MsgBox " Vous devez absolument indiquer une CAI!!!!", vbCritical + vbOKOnly, ""
Me.Controls("textbox2").SetFocus
Exit Sub
End If
If Me.Controls("combobox4").Value = "" Then
MsgBox " Vous devez absolument indiquer un type de membrane!!!!", vbCritical + vbOKOnly, ""
Me.Controls("combobox4").SetFocus
Exit Sub
End If
If Me.Controls("textbox3").Value = "" Then
MsgBox " Vous devez absolument indiquer le NB de cuissons!!!!", vbCritical + vbOKOnly, ""
Me.Controls("textbox3").SetFocus
Exit Sub
End If
If Me.Controls("dtpicker3").Value = "" Then
MsgBox " Vous devez absolument indiquer l'heure du changement!!!!", vbCritical + vbOKOnly, ""
Me.Controls("dtpicker3").SetFocus
Exit Sub
End If
If Me.Controls("combobox5").Value = "" Then
MsgBox " Vous devez absolument indiquer la cause!!!!", vbCritical + vbOKOnly, ""
Me.Controls("combobox5").SetFocus
Exit Sub
End If
If Me.Controls("combobox6").Value = "" Then
MsgBox " Vous devez absolument indiquer un commentaire!!!!", vbCritical + vbOKOnly, ""
Me.Controls("combobox6").SetFocus
Exit Sub
End If
With ThisWorkbook.Sheets("201")
If modification Then
ligne = ActiveCell.Row
Else
ligne = .Range("a65536").End(xlUp).Row + 1
End If
.Cells(ligne, 1) = Format(DTPicker1.Value, "dd/mm/yyyy")
.Cells(ligne, 2) = ComboBox7.Value
.Cells(ligne, 3) = ComboBox1.Value
.Cells(ligne, 4) = TextBox1.Value
.Cells(ligne, 5) = TextBox2.Value
.Cells(ligne, 6) = ComboBox4.Value
.Cells(ligne, 7) = TextBox3.Value
.Cells(ligne, 8) = Format(DTPicker3.Value, "hh:mm:ss")
.Cells(ligne, 9) = ComboBox5.Value
.Cells(ligne, 10) = ComboBox6.Text
End With
End Sub