Séparation HO-HNO sous excel Résolu

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

Séparation HO-HNO sous excel

13 réponses

Discussions similaires

Newsletters