calcul de délai VBA

[croco40]

Bonjour à tous,
Petit problème pour calculer des délais en heures à partir de données venant d'un usf.

heure 1 & heure 2 viennent de l'usf sous forme hh:mm, jusque là pas de problème

nom--------heure 1--------heure 2--------delai
pier--------8:00--------8:15--------0:15
paul--------9:01--------9:15--------0:14
jack--------23:50--------0:30--------23:20

et avec la macro suivante j'obtiens le delai :

Sub delai()
For lig1 = 2 To 4

val1 = Cells(lig1, 2).Value
val2 = Cells(lig1, 3).Value
val3 = Format(val2 - val1, "hh:mm")
Cells(lig1, 5).Value = val3

Next lig1
End Sub


petit probleme lorsque la personne arrive un jour et repart le lendemain, voir ligne jack
avez vous une idée
Par avance merci
Suerte
Croco.

 

[phlaurent55]

Re : calcul de délai VBA

Bonjour croco,

avec ceci:

Sub delai()
For lig1 = 2 To 4
    
    val1 = Cells(lig1, 2).Value
    val2 = Cells(lig1, 3).Value
    val3 = Format(24 + val2 - val1, "hh:mm") '<------modif ici
    Cells(lig1, 5).Value = val3
    
Next lig1
End Sub

à+
Philippe

 

[croco40]

Re : calcul de délai VBA

Bonjour et merci phlaurent55,
je me doutais qu'il y avait une histoire de référentiel 24, mais je ne savais pas comment l'interpreter.
Encore merci pour ton efficacite et ta rapidite.
Suerte
Croco

 

[phlaurent55]

Re : calcul de délai VBA

Re,
pour faire un peu plus court

Sub delai()
For lig1 = 2 To 4
    Cells(lig1, 5).Value = Format(24 + Cells(lig1, 3).Value- Cells(lig1, 2).Value, "hh:mm")
Next lig1
End Sub

à+
Philippe

 

[croco40]

Re : calcul de délai VBA

Merci encore Phlaurent55
Suerte
Croco

Ps : j'ai encore des soucis, mais pour l'instant je creuse l'aide microsoft, et multiplie les essais avant d'embeter le forum.