Private Sub Btn_Annuler_Click()
Userform.Hide
End Sub
Private Sub Btn_Enregistre_Click()
' on vérifie que le prénom a été saisi
If Len(Prenom.Text) = 0 Then
MsgBox "La saisie du Prénom est obligatoire !", vbCritical
Me.Prenom.SetFocus
Exit Sub
Else
' on vérifie que les heures ont été saisies
If H_Arrivee = "" Then
MsgBox "La saisie des horaires est obligatoire !", vbCritical
'Me.H_Arrivee.SetFocus
Exit Sub
Else
If H_Depart_Dejeuner = "" Then
MsgBox "La saisie des horaires est obligatoire !", vbCritical
'Me.H_Depart_Dejeuner.SetFocus
Exit Sub
Else
If H_Retour_Dejeuner = "" Then
MsgBox "La saisie des horaires est obligatoire !", vbCritical
'Me.H_Retour_Dejeuner.SetFocus
Exit Sub
Else
If H_Sortie = "" Then
MsgBox "La saisie des horaires est obligatoire !", vbCritical
' Me.H_Sortie.SetFocus
Exit Sub
Else
If CDate(Total_Heure) > "12:00" Then
MsgBox "le nombre d'heures par jour doit être inférieur ou égal à 12h00 !", vbCritical
' Me.H_Arrivee.SetFocus
Exit Sub
Else
Sheets("Paramètres").Activate
minNum = Minute(currTime)
Cells(5, 4) = Prenom.Value
Cells(18, 4) = Hour(H_Arrivee.Value)
Cells(18, 5) = Minute(H_Arrivee.Value)
Cells(19, 4) = Hour(H_Depart_Dejeuner.Value)
Cells(19, 5) = Minute(H_Depart_Dejeuner.Value)
Cells(20, 4) = Hour(H_Retour_Dejeuner.Value)
Cells(20, 5) = Minute(H_Retour_Dejeuner.Value)
Cells(21, 4) = Hour(H_Sortie.Value)
Cells(21, 5) = Minute(H_Sortie.Value)
Cells(11, 4) = Hour(Total_Heure.Value)
Cells(11, 5) = Minute(Total_Heure.Value)
End If
End If
End If
End If
End If
End If
[COLOR="#FF0000"]Userform1.Hide[/COLOR]
End Sub
Private Sub CommandButton1_Click()
Total_Heure.Value = Format((CDate(H_Depart_Dejeuner.Value) - CDate(H_Arrivee.Value)) + (CDate(H_Sortie.Value) - CDate(H_Retour_Dejeuner.Value)), "hh:mm")
If CDate(Total_Heure) > "12:00" Then
MsgBox "le nombre d'heures par jour doit être inférieur ou égal à 12h !Veuillez recommencer!", vbCritical
Me.H_Arrivee.SetFocus
Me.H_Depart_Dejeuner.Value = ""
Me.H_Retour_Dejeuner.Value = ""
Me.H_Sortie.Value = ""
Me.H_Arrivee.Value = ""
Me.Total_Heure.Value = ""
Exit Sub
End If
End Sub
Private Sub Total_Heure_change()
If CDate(Total_Heure) > "12:00" Then
MsgBox "le nombre d'heures par jour doit être inférieur ou égal à 12h !", vbCritical
Me.H_Arrivee.SetFocus
Exit Sub
End If
End Sub
Private Sub prenom_Change()
Prenom.Value = UCase(Prenom.Value)
End Sub
Private Sub H_Arrivee_Afterupdate()
Dim tString As String
With H_Arrivee
'Vérifie si l'utilisateur met dans des deux-points ou non
If InStr(1, .Value, ":", vbTextCompare) = 0 Then
'Sinon, faites la série de 4 chiffres et insérez des deux-points
tString = Format(.Value, "0000")
'autrement le code insère les ":"entre les 2 chiffres
tString = Left(tString, 2) & ":" & Right(tString, 2)
H_Arrivee.Value = Format(TimeValue(tString), "HH:MM")
Else
'Autrement, prenez la valeur comme donné
.Value = Format(.Value, "hh:mm")
End If
End With
End Sub
Private Sub H_Sortie_Afterupdate()
Dim tString As String
With H_Sortie
'Vérifie si l'utilisateur met dans des deux-points ou non
If InStr(1, .Value, ":", vbTextCompare) = 0 Then
'Sinon, faites la série de 4 chiffres et insérez des deux-points
tString = Format(.Value, "0000")
'autrement le code insère les ":"entre les 2 chiffres
tString = Left(tString, 2) & ":" & Right(tString, 2)
H_Sortie.Value = Format(TimeValue(tString), "HH:MM")
Else
'Autrement, prenez la valeur comme donné
.Value = Format(.Value, "hh:mm")
End If
End With
End Sub
Private Sub H_Depart_Dejeuner_Afterupdate()
Dim tString As String
With H_Depart_Dejeuner
'Vérifie si l'utilisateur met dans des deux-points ou non
If InStr(1, .Value, ":", vbTextCompare) = 0 Then
'Sinon, faites la série de 4 chiffres et insérez des deux-points
tString = Format(.Value, "0000")
'autrement le code insère les ":"entre les 2 chiffres
tString = Left(tString, 2) & ":" & Right(tString, 2)
H_Depart_Dejeuner.Value = Format(TimeValue(tString), "HH:MM")
Else
'Autrement, prenez la valeur comme donné
.Value = Format(.Value, "hh:mm")
End If
End With
End Sub
Private Sub H_Retour_Dejeuner_Afterupdate()
Dim tString As String
With H_Retour_Dejeuner
'Vérifie si l'utilisateur met dans des deux-points ou non
If InStr(1, .Value, ":", vbTextCompare) = 0 Then
'Sinon, faites la série de 4 chiffres et insérez des deux-points
tString = Format(.Value, "0000")
'autrement le code insère les ":"entre les 2 chiffres
tString = Left(tString, 2) & ":" & Right(tString, 2)
H_Retour_Dejeuner.Value = Format(TimeValue(tString), "HH:MM")
Else
'Autrement, prenez la valeur comme donné
.Value = Format(.Value, "hh:mm")
End If
End With
End Sub
Private Sub UserForm_Initialize()
With Sheets("Paramètres")
Me.Prenom.Value = .Range("D5")
Me.H_Arrivee.Value = .Range("G18")
Me.H_Depart_Dejeuner.Value = .Range("G19")
Me.H_Retour_Dejeuner.Value = .Range("G20")
Me.H_Sortie.Value = .Range("G21")
Me.Total_Heure.Value = .Range("G11")
End With
End Sub
Private Sub UserForm_Click()
End Sub