problème avec le format horaire

[pascal21]

bonsoir
j'ai un petit soucis de format horaire dans mon classeur
dans une cellule j'ai 9:00 mais si je l'additionne avec une autre contenant par exemple 0:15 ça me donne 561:15:00
j'ai changé le format et essayé avec [h]:mn mais là il affiche 561:00
que dois-je faire svp
merci

 

[zeltron24]

Re : problème avec le format horaire

Bonsoir,

Voici un petit programme qui pourrait je pense vous aider.

zeltron24

 

[pascal21]

Re : problème avec le format horaire

je pense avoir trouvé mais sans pouvoir l'expliquer d'où vient l'erreur
en a1 j'ai 18:00
en a2 7:00
et en a3 je lui demande de me compter combien il y a d'heures située entre 21h et 6h (calcul des heures de nuit)
il doit trouver 9:00 ce qu'il fait mais la cellule contient en réalité 561:00
si je lui demande de calculer

a1 18:00
a2 24:00
dans ce cas a3 = 3:00
et après de 0:01 à 7:00 il trouve 5:59
donc le problème vient du passage à 0:00
pourtant j'ai utilisé cette macro (elle n'est pas de moi)

Function HNUIT(RangeDebVac As Range, RangeFinVac As Range) As Date
'Avec DN et FN Cellules nommées DebutNuit et FinNuit (21:00 - 6:00)
Dim Y As Boolean, Y1 As Boolean, hFv As Date, hDv As Date
hFv = RangeFinVac
hDv = RangeDebVac
Y1 = hDv > 0 And hFv > 0
If Y1 Then
Y = hDv < hFv
If Y Then
If hFv < Range("FN") Then
HT1 = hFv - hDv
Else
If hDv < Range("FN") Then
HT1 = Range("FN") - hDv
Else
If hDv < Range("DN") Then hDv = Range("DN")
If hFv > Range("FN") Then HT1 = hFv - hDv
If hFv < Range("DN") Then HT1 = 0
End If
End If
Else
If hDv < Range("DN") Then hDv = Range("DN")
If hFv > Range("FN") Then hFv = Range("FN")
HT1 = 24 + hFv - hDv
End If
End If
HNUIT = HT1
End Function

qui prevoit le passage à 0:00 et elle fonctionne bien sur un classeur d'essai