"h2so4" <h2so4@pandora.be> wrote in message news:...
> essaie de formatter les cellules avec j"j "hh"h "mm"mn", si tu introduis
> 25:16 -> 1j 1h 16mn.utilise les fonctions classiques, somme ou + pour
> obtenir le résultat que tu souhaites.
sorry, ceci est valable pour des journées de 24h pas pour des journées de
7h30
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
h2so4
Function AddHeureSup(a As Range) ' a =ensemble de cellules dont il faut additionner les heures supplémentaires au format strict "xj xh xmn" ' copier la function dans un module vba et appeler la fonction à partir d'excell de la manière suivante ' = AddHeureSup(A1:A2) pour additionner A1 et A2 tj = 0 th = 0 tm = 0
For Each x In a y = x pj = InStr(y, "j ") If pj = 0 Then j = 0 Else j = Val(Left(y, pj - 1)) y = Right(y, Len(y) - pj - 1) End If tj = tj + j ph = InStr(y, "h ") If ph = 0 Then h = 0 Else h = Val(Left(y, ph - 1)) y = Right(y, Len(y) - ph - 1) End If th = th + h pm = InStr(y, "mn") If pm = 0 Then m = 0 Else m = Val(Left(y, pm - 1)) End If tm = tm + m Next mp = th * 60 + tm While mp > 449 tj = tj + 1 mp = mp - 450 Wend th = 0 While mp > 59 th = th + 1 mp = mp - 60 Wend tm = mp t = tj & "j " & th & "h " & tm & "mn" AddHeureSup = t End Function
"h2so4" wrote in message news:Oyehh.241854$
"h2so4" wrote in message news:...
essaie de formatter les cellules avec j"j "hh"h "mm"mn", si tu introduis 25:16 -> 1j 1h 16mn.utilise les fonctions classiques, somme ou + pour obtenir le résultat que tu souhaites.
sorry, ceci est valable pour des journées de 24h pas pour des journées de 7h30
Function AddHeureSup(a As Range)
' a =ensemble de cellules dont il faut additionner les heures
supplémentaires au format strict "xj xh xmn"
' copier la function dans un module vba et appeler la fonction à partir
d'excell de la manière suivante
' = AddHeureSup(A1:A2) pour additionner A1 et A2
tj = 0
th = 0
tm = 0
For Each x In a
y = x
pj = InStr(y, "j ")
If pj = 0 Then
j = 0
Else
j = Val(Left(y, pj - 1))
y = Right(y, Len(y) - pj - 1)
End If
tj = tj + j
ph = InStr(y, "h ")
If ph = 0 Then
h = 0
Else
h = Val(Left(y, ph - 1))
y = Right(y, Len(y) - ph - 1)
End If
th = th + h
pm = InStr(y, "mn")
If pm = 0 Then
m = 0
Else
m = Val(Left(y, pm - 1))
End If
tm = tm + m
Next
mp = th * 60 + tm
While mp > 449
tj = tj + 1
mp = mp - 450
Wend
th = 0
While mp > 59
th = th + 1
mp = mp - 60
Wend
tm = mp
t = tj & "j " & th & "h " & tm & "mn"
AddHeureSup = t
End Function
"h2so4" <h2so4@pandora.be> wrote in message
news:Oyehh.241854$j8.5367929@phobos.telenet-ops.be...
"h2so4" <h2so4@pandora.be> wrote in message news:...
essaie de formatter les cellules avec j"j "hh"h "mm"mn", si tu introduis
25:16 -> 1j 1h 16mn.utilise les fonctions classiques, somme ou + pour
obtenir le résultat que tu souhaites.
sorry, ceci est valable pour des journées de 24h pas pour des journées de
7h30
Function AddHeureSup(a As Range) ' a =ensemble de cellules dont il faut additionner les heures supplémentaires au format strict "xj xh xmn" ' copier la function dans un module vba et appeler la fonction à partir d'excell de la manière suivante ' = AddHeureSup(A1:A2) pour additionner A1 et A2 tj = 0 th = 0 tm = 0
For Each x In a y = x pj = InStr(y, "j ") If pj = 0 Then j = 0 Else j = Val(Left(y, pj - 1)) y = Right(y, Len(y) - pj - 1) End If tj = tj + j ph = InStr(y, "h ") If ph = 0 Then h = 0 Else h = Val(Left(y, ph - 1)) y = Right(y, Len(y) - ph - 1) End If th = th + h pm = InStr(y, "mn") If pm = 0 Then m = 0 Else m = Val(Left(y, pm - 1)) End If tm = tm + m Next mp = th * 60 + tm While mp > 449 tj = tj + 1 mp = mp - 450 Wend th = 0 While mp > 59 th = th + 1 mp = mp - 60 Wend tm = mp t = tj & "j " & th & "h " & tm & "mn" AddHeureSup = t End Function
"h2so4" wrote in message news:Oyehh.241854$
"h2so4" wrote in message news:...
essaie de formatter les cellules avec j"j "hh"h "mm"mn", si tu introduis 25:16 -> 1j 1h 16mn.utilise les fonctions classiques, somme ou + pour obtenir le résultat que tu souhaites.
sorry, ceci est valable pour des journées de 24h pas pour des journées de 7h30
