Bonjour,
Si tu saisissais tes horaires en plaçant heure de début et heure de fin dans des cellules distinctes, et sous forme de valeurs horaires, tu pourrais en utilisant une formule simple, faire la soustraction, retrancher une demi-heure au résultat, et le convertir en heures décimales...
Là tu compliques un peu, et en pareil cas je propose une fonction personnalisée pour traiter ton texte en extraire les heures en opérant les conversions nécessaires et réaliser le calcul...
Function NBHEURES(horaire As String)
Dim hor, i%
Application.Volatile
If horaire = "" Then NBHEURES = "": Exit Function
hor = Split(horaire, "/")
For i = 0 To 1
hor(i) = Replace(hor(i), "H", ":")
If Right(hor(i), 1) = ":" Then hor(i) = hor(i) & "00"
Next i
hor = TimeValue(hor(1)) - TimeValue(hor(0))
NBHEURES = hor * 24 - 0.5
End Function
Code de la fonction en Module1. Elle s'utilise comme toute autre fonction d'Excel.
Voir utilisation dans le fichier (ta saisie doit être conforme à ton modèle, sinon la fonction renverra une erreur). Si tu lui passes une chaîne vide comme horaire (""), elle renvoie la même chose (ce qui te permet de placer la formule avant les horaires sans te soucier de gérer une erreur due à une cellule vide...)
Cordialement.