OUPS désolée, je ne savais pas...
Voici le code :
Private Sub UserForm_Activate()
'affichage de l'userform
Me.Left = 100
Me.Top = 150
Nom.Caption = Sheets("ACCUEIL").Cells(14, 9)
MDP = Sheets("PARAMETRES").Cells(1, 5)
If Not ADMIN Then Sheets(ONGLET).Unprotect Password:=MDP
With Sheets(ONGLET)
IJOUR = .Range("A65536").End(xlUp).Row
If .Cells(IJOUR, 1) = Date Then
If .Cells(IJOUR, 4) = "" Then
Arrivée.Enabled = False
Depart.Enabled = True
'On cherche si il y a des départs pauses sans retour
IPAUSE = 6
While .Cells(IJOUR, IPAUSE) <> "" And .Cells(IJOUR, IPAUSE + 1) <> ""
IPAUSE = IPAUSE + 3
Wend
If .Cells(IJOUR, IPAUSE) <> "" Then
' il y a eu un départ en pause et pas de retour
Dep_Pause.Enabled = False
Ret_Pause.Enabled = True
IPAUSE = IPAUSE + 1
Else
Dep_Pause.Enabled = True
Ret_Pause.Enabled = False
End If
Else
Arrivée.Enabled = False
Depart.Enabled = False
Dep_Pause.Enabled = False
Ret_Pause.Enabled = False
MsgBox "Votre journée est finie vous ne pouvez que consulter"
End If
Else
Arrivée.Enabled = True
Depart.Enabled = False
Dep_Pause.Enabled = False
Ret_Pause.Enabled = False
IJOUR = IJOUR + 1
End If
End With
End Sub
Private Sub Retour_Click()
Pointage.Hide
Sheets("ACCUEIL").Select
If Not ADMIN Then Sheets(ONGLET).Protect Password:=MDP
Sheets(ONGLET).Visible = False
MDP = ""
LMDP = 0
End Sub
Private Sub UserForm_Terminate()
Sheets("ACCUEIL").Select
If Not ADMIN Then Sheets(ONGLET).Protect Password:=MDP
Sheets(ONGLET).Visible = False
MDP = ""
LMDP = 0
End Sub
Private Sub Arrivée_Click()
'On recherche de la 1¡ ligne libre dans le tableau
'On enregistre la date
Sheets(ONGLET).Cells(IJOUR, 1) = Date
Sheets(ONGLET).Cells(IJOUR, 3) = Time
Arrivée.Enabled = False
Depart.Enabled = True
Dep_Pause.Enabled = True
Ret_Pause.Enabled = False
End Sub
Private Sub Depart_Click()
With Sheets(ONGLET)
IJOUR = .Range("A65536").End(xlUp).Row
If .Cells(IJOUR, 1) = Date Then
'Enregistrement de l'heure de sortie
.Cells(IJOUR, 4) = Time
.Cells(IJOUR, 2) = .Cells(IJOUR, 4) - .Cells(IJOUR, 3) - .Cells(IJOUR, 5)
Arrivée.Enabled = False
Depart.Enabled = False
Dep_Pause.Enabled = False
Ret_Pause.Enabled = False
End If
End With
End Sub
Private Sub Dep_Pause_Click()
'On part en pause
With Sheets(ONGLET).Cells(IJOUR, IPAUSE) = Time
IPAUSE = IPAUSE + 1
Arrivée.Enabled = False
Depart.Enabled = False
Dep_Pause.Enabled = False
Ret_Pause.Enabled = True
End With
End Sub
Private Sub Ret_Pause_Click()
'On revient de pause
With Sheets(ONGLET)
.Cells(IJOUR, IPAUSE) = Time
.Cells(IJOUR, IPAUSE + 1) = .Cells(IJOUR, IPAUSE) - .Cells(IJOUR, IPAUSE - 1)
.Cells(IJOUR, 5) = .Cells(IJOUR, 5) + .Cells(IJOUR, IPAUSE + 1)
End With
IPAUSE = IPAUSE + 2
Arrivée.Enabled = False
Depart.Enabled = True
Dep_Pause.Enabled = True
Ret_Pause.Enabled = False
End Sub