XL 2010 Temps de travail

Robert à dit:

Bonsoir le fil, bonsoir le forum,

À tester :

VB:

Sub Macro1()
Dim O As Worksheet
Dim TV As Variant
Dim I As Integer
Dim COL As Byte
Dim D As Double
Dim F As Double

Set O = Worksheets("Calcul de temps de travail")
TV = O.Range("C7").CurrentRegion
For I = 2 To UBound(TV, 1) - 1
    Select Case Weekday(CDate(TV(I, 1)))
        Case 7
            COL = 5
        Case 1
            COL = 6
        Case Else
            COL = 4
    End Select
    If TV(I, 2) > 12 / 24 And TV(I, 2) < 13 / 24 Then D = 13 / 24 Else D = TV(I, 2)
    If TV(I, 3) > 12 / 24 And TV(I, 3) < 13 / 24 Then F = 12 / 24 Else F = TV(I, 3)
    If TV(I, 2) < 12 / 24 And TV(I, 3) > 13 / 24 Then F = TV(I, 3) - 1 / 24
    If (TV(I, 2) > 12 / 24 And TV(I, 2) < 13 / 24) And (TV(I, 3) > 12 / 24 And TV(I, 3) < 13 / 24) Then F = 0: D = 0
    O.Cells(I + 6, COL + 2).Value = IIf(F = 0 And D = 0, "", Format(F - D, "hh:mm"))
Next I
End Sub

Cliquez pour agrandir...

zebanx à dit:

Bonjour Konte94, le forum

Un essai FORMULES avec une colonne supplémentaire pour obtenir le lunchtime calculé à chaque date.
Sinon, ça va être "galère" à manipuler dans une formule.

xl-ment
zebanx

Cliquez pour agrandir...

Robert à dit:

Re,

Tu veux un café aussi ?! Avec ou sans sucre?...

Cliquez pour agrandir...

Robert à dit:

Re,

Alors fait l'effort de nous dire quelle est la ligne qui provoque l'erreur et quel est le message d'erreur. On n'est pas des devins !... Enfin pas moi, pour d'autres, j'ai des doutes...

Cliquez pour agrandir...

Robert à dit:

Re,

Cela signifie que dans le fichier où tu as copier le code, l'onglet ne se nomme pas :
Calcul de temps de travail. Soit tu renommes l'onglet, sois tu modifies le code mais il faut que ça soit identique...
En pièce jointe le fichier de ton premier post avec le code. Ça semble fonctionner...

Cliquez pour agrandir...

Robert à dit:

Juste un soucis avec le format. Corrigé dans la Pièce jointe.

Cliquez pour agrandir...