XL 2010 Temps de travail

[Konte94]

Salut tout le monde, je vous en prie qui peut m'aider à écrire un programme vba qui me permettra de calculer la durée payée du travail d'un employé avec une pause obligatoire d'une heure qui s'étend de 12h:00 à 13h:00.
L'exercice est sur le fichier joint ci-dessous

 

[zebanx]

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

 

[Robert]

Bonsoir le fil, bonsoir le forum,

À tester :

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

 

[riton00]

Bonjour Konte94, le forum

Déjà vu cet exercice à quelque part!! 😳

Slts

 

[Konte94]

Bonsoir le fil, bonsoir le forum,

À tester :

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

Merci mais j'ai pas bien compris la formule.
Pouvez vous m'expliquer un peu svp

 

[Konte94]

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

Slt Zebanx merci pour ton aide mais j'ai pas bien compris. Svp es ce que je peux avoir une fonction vba pour sa

 

[Robert]

Re,

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

 

[Konte94]

Re,

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

Non c'est pas sa, j'ai exécuté mais on m'a dis erreur. Svp si vous pouvez m'aider sa me fera plaisir.

 

[Robert]

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...

 

[Konte94]

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...

Je ne vais pas vous mentir. J'ai juste copié le programme et jai exécuté. mais sa n'a rien donné. On me dit erreur débogage au niveau de Set O

 

[Robert]

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...

 

[Konte94]

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...

Merci Robert je commence à comprendre. Mais j'ai remarqué dans dans mes calcules y'a une erreur au niveau du TOTAL HEURES NORMALES.je suis trop embêtant mais svp aidez mw.

 

[Robert]

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

 

[Konte94]

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

Merci beaucoup mais jusqu'à présent le programme ne me permet pas d'obtenir le TOTAL. Si j'efface et j'exécute le calcul ne prend pas en compte la ligne TOTALE

 

[Robert]

Re,

Heu... Ben il faut pas effacer les formules des totaux bien sûr !...