Séparation HO-HNO sous excel Résolu/Fermé

Question

Bonjour,
J'ai un tableau d'alarmes qui me synthétise l'indisponibilité d'équipement en notant l'heure de coupure et l'heure de rétablissement de celui-ci.
J'ai donc actuellement un tableau dans lequel je calcule la différence d'heures entre deux cellules au format "jj/mm/aaa hh:mm". 
Ma cellule résultat est au format [hh]:mm:ss et je peux donc avoir des résultats comme "112:45:32" si la coupure de l'équipement dure plusieurs jours
Je souhaite améliorer ce tableau et obtenir 2 résultats de cette différence:
                      - dans une cellule la durée de coupure des heures non ouvrables (HNO) à savoir, en semaine de 18h00 à 8h00 le lendemain ainsi que le week-end du vendredi 18h00 au lundi 8h00
                      - dans la cellule d'à côté la durée de coupure en heures ouvrables (HO) à savoir du lundi au vendredi de 8h00 à 18h00

Merci de votre aide

A bientôt.

Le Pingou · Answer

Bonjour,
Est-il possible d'avoir un exemple de votre tableau ?

Le Pingou · Answer

Bonjour,
Merci je vais examiner le tout et une réponse d'ici à demain.
Note: 
il est aussi possible de mettre le fichier(tableau) sur https://www.cjoint.com/ et poster le lien, c'est plus simple.

Le Pingou · Answer

Bonjour,
Voici ma proposition, en espérant que se soit dans le bon sens : https://www.cjoint.com/?clxBk2ZP3C

micbru14 · Answer

Bonjour,
"Chapeau bas" votre solution fonctionne à merveille et si j'osais, j'abuserais encore un peu de vos connaissances pour savoir quelles modifications il faudrait apporter à la macro pour considérer le samedi comme un jour ouvrable également.
En tous cas merci beaucoup.

Salutations.

Micbru14

Le Pingou · Answer

Bonjour,
Modifier cette ligne :
If Weekday(datdeb + c) = 1 Or Weekday(datdeb + c) = 7 Then '  Dimanche / Samedi (non ouvrable)
If Weekday(datdeb + c) = 1 Then ' Dimanche (non ouvrable)

micbru14 · Answer

Bonjour,
désolé d'avoir tardé à vous remercier (vacances!).
C'est impeccable
Merci bcp

micbru14 · Answer

Bonjour,
je me permets de vous recontacter car je viens de rencontrer un pb avec la macro.
En effet lorsque les coupures sont en semaine et en heures non ouvrables, cela me signale des erreurs. Un petit message me signale des heures négatives (?????). 
Le phénomène ne se produit pas quand les coupures sont le week-end même entre 18h00 et 8h00.
Je vous ai mis cet exemple dans le fichier joint.  https://www.cjoint.com/?dbnGZ8JlTf
Pouvez-vous m'aider s'il vous plait.

Cordialement

Le Pingou · Answer

Bonjour,
Merci de prendre cette version corrigée : https://www.cjoint.com/?dbwXLvKUwJ

Le Pingou · Answer

Bonjour micbru14,
Je vous ais mis le mauvais fichier, désolé, merci de voir le MP

micbru14 · Answer

Bonjour,
j'ai encore un pb avec la macro (voir: http://cjoint.com/?ddljaFbYjE).
Le pb des heures négatives est maintenant dans la colonne HNO.
Le premier essai que j'ai fait était ok mais la coupure avait lieu sur une même journée.
Il semblerait que ça ne marche pas quand la coupure est à cheval sur 2 dates.

Merci de votre aide

Cordialement

Le Pingou · Answer

Bonjour,
Est-ce la version que je vous ai envoyée via le MP ?

Le Pingou · Answer

Bonjour, Remplacer la procédure existante par la suivante : Function NbHeuJourOuv(dd, df, hd, hf) Dim datdeb, datfin, hdeb, hfin, nbj Dim houvd, houvf, hnhjo Dim c As Byte, test, fin houvd = CDate(hd) houvf = CDate(hf) datdeb = dd datfin = df hdeb = datdeb - 1 * Int(datdeb / 1) hfin = datfin - 1 * Int(datfin / 1) nbj = DateDiff("d", datdeb, datfin) For c = 0 To nbj test = datdeb + c If Weekday(datdeb + c) = 1 Or Weekday(datdeb + c) = 7 Then ' MsgBox "Samedi / Dimanche" Else ' MsgBox "ouvrable" If nbj = 0 Then If houvd < hdeb And hfin <= houvf Then hnhjo = hfin - hdeb ElseIf hdeb < houvd And (hfin > houvd And hfin <= houvf) Then hnhjo = (hfin - houvd) ElseIf (hdeb >= houvd And hdeb < houvf) And hfin > houvf Then hnhjo = houvf - hdeb ElseIf hdeb < houvd And hfin > houvf Then hnhjo = houvf - houvd End If Else If test = datdeb Then If houvd < hdeb And hdeb < houvf Then hnhjo = hnhjo + houvf - hdeb ElseIf hdeb < houvd Then hnhjo = hnhjo + (houvf - houvd) End If ElseIf Format(test, "dd mm yyyy") = Format(datfin, "dd mm yyyy") Then If houvd < hfin And hfin < houvf Then hnhjo = hnhjo + hfin - houvd ElseIf hfin > houvf Then hnhjo = hnhjo + (houvf - houvd) End If Else hnhjo = hnhjo + (houvf - houvd) End If End If End If Next c NbHeuJourOuv = hnhjo End Function

micbru14 · Answer

Bonjour,
tout est "nickel" maintenant;
Encore merci bcp de votre aide.

Cordialement.

Michel