Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Me.[D12:D18,F12:F18], Target) Is Nothing Then Exit Sub
Target.Value = Int(Time * 96 + 0.5) / 96
Cancel = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Intersect(Me.[D12:D18,F12:F18], Target) Is Nothing Then Exit Sub
Target.Value = Int(Time * 96 + 0.5) / 96
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Me.[C12:C18], Target) Is Nothing Then
Target.Value = Date
ElseIf Not Intersect(Me.[D12:D18,F12:F18], Target) Is Nothing Then
Target.Value = Int(Time * 96 + 0.5) / 96
End If
End Sub
=MAX([@[Heure de départ]]-[@[Heure d arrivée]]-[@Dinner];0)
=SOMME(Tableau_Feuille_de_temps[Heures de travail])*24
=MIN(Total_des_heures_de_travail;40)
=Total_des_heures_de_travail-HeuresNormales
=ENT(SOMME(Tableau_Feuille_de_temps[Heures de travail])*96+0,5)/4