Calcul horaire

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Integer

Dim horaire As Date

Dim total As Date

horaire = Sheets("recap").Range("a1").Value

c = Sheets("janvier").Range("F65536").End(xlUp).Row

If c = 7 Then

Exit Sub

End If

For A = 8 To c

total = Range("f" & A)

If total >= horaire Then

Range("I" & A).Value = total - horaire

Range("J" & A) = "00:00:00"

End If

If total < horaire Then

Range("I" & A).Value = horaire - total

Range("J" & A) = "00:00:00"

End If

Next

End Sub

49horaire.xlsm (31.84 Ko)

Bonjour

c'est quoi la question ??

fred

Bonjour,

Le calcul sera faux !

je souhaiterai que sur ma feuille de calcul lorque c'est des heures en plus ca ce note dans la colonne I (heurre supp) et qaund c'est des heure en moins dans la colonne J (heures moins) la formule que j'ai fait me lance un debug a chaque fois

Rechercher des sujets similaires à "calcul horaire"