Microsoft 365 Calcul de plages horaires

[NONO14]

Bonsoir,
Dans le fichier exemple ci-joint et dans la feuille Tab_Pointage il y a un tableau (t_Saisie) dans lequel se trouvent des heures.
Dans la colonne 12 je souhaite avoir le total des heures par plage mais uniquement si la plage est complète.
Par exemple H1 et H2 complètes alors H2-H1, mais si il y H3 mais que H4 est vide alors ne calculer que la 1ère plage.
J'ai créé un code pour faire le calcul, mais si il manque un horaire dans une plage le calcul ne fonctionne pas.
Pouvez-vous m'aider à résoudre ce problème s'il vous plaît ?
Je vous en remercie par avance

Sub CalculerTotalHeures()
    Dim Ws As Worksheet
    Dim Tbl As ListObject
    Dim Cell As Range
    Dim TotalHeures As Double
    Dim Start1 As Variant, Dep1 As Variant
    Dim Start2 As Variant, Dep2 As Variant
    Dim Start3 As Variant, Dep3 As Variant
    
    ' Définir la feuille et le tableau structuré
    Set Ws = Sheets("Tab_Pointage")
    Set Tbl = Ws.ListObjects("t_Saisie") ' Nom du tableau structuré
    
    
    ' Parcourir chaque ligne du tableau structuré
    For Each Cell In Tbl.ListColumns(1).DataBodyRange
        TotalHeures = 0
        ' Récupérer les heures des différentes colonnes
        Start1 = Cell.Offset(0, 5).Value
        Dep1 = Cell.Offset(0, 6).Value
        Start2 = Cell.Offset(0, 7).Value
        Dep2 = Cell.Offset(0, 8).Value
        Start3 = Cell.Offset(0, 9).Value
        Dep3 = Cell.Offset(0, 10).Value
        
        ' Calculer les heures si les plages sont complètes
        If IsNumeric(Start1) And IsNumeric(Dep1) Then
            TotalHeures = TotalHeures + (Dep1 - Start1)
        End If
        
        If IsNumeric(Start2) And IsNumeric(Dep2) Then
            TotalHeures = TotalHeures + (Dep2 - Start2)
        End If
        
        If IsNumeric(Start3) And IsNumeric(Dep3) Then
            TotalHeures = TotalHeures + (Dep3 - Start3)
        End If

        ' Afficher le résultat dans la colonne 12
        Cell.Offset(0, 11).Value = TotalHeures
    Next Cell
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CalculerTotalHeures
End Sub

 

[NONO14]

OK.




Moi je comprends qu'il y a trois plages : H1 et H2, H3 et H4, H5 et H6.
Et je comprends qu'il faut calculer chacune de ces trois plages si elle est complète, et ensuite faire la somme des plages calculées. 😉

Oui c'est exactement ça

 

[NONO14]

Ok, mais ceci dit, Phil a raison : il faudra mettre en évidence les lignes, voire les tranches horaires, où il manque au moins une heure.

Oui c'est possible. Mettre la cellule en rouge si il manque un pointage par exemple

 

[Phil69970]

@NONO14

Je te propose la V2

Merci de ton retour

 

[NONO14]

@NONO14

Je te propose la V2

Merci de ton retour

Bonjour Phil69970, bonjour le fil,
J'espère que vous allez bien.
Phil, je testé ton fichier mais ça ne va pas tout à fait. En effet, si les deux cellules d'une plage sont vides pas de soucis, mais si une des deux cellule contient une heure et pas l'autre, j'ai une erreur dans la colonne total.
Regarde ton fichier, j'ai mis un exemple.
Merci par avance

 

[Phil69970]

Re

@NONO14
Voici la V3

J'attends tes commentaires

 

[NONO14]

Re

@NONO14
Voici la V3

J'attends tes commentaires

Merci beaucoup, c'est exactement ça. 👍
Je vais utiliser les conditions pour marquer les cellules où il manque un pointage entrée ou sortie, pas celles où il n'y pas les deux.
Encore mille mercis

 

[TooFatBoy]

Je vais utiliser les conditions pour marquer les cellules où il manque un pointage entrée ou sortie, pas celles où il n'y pas les deux.

Une MFC dans le TS ne conviendrait-elle pas ?

 

[NONO14]

Une MFC dans le TS ne conviendrait-elle pas ?

Bonjour TooFatBoy
Oui c'est ce que je compte faire... J'ai encore dû cafouiller dans mon commentaire

 

[Phil69970]

@NONO14

On peut se servir de la colonne commentaire en inscrivant par exemple "il manque x plages" en fonction de ce qu'il manque
J'avais commencé un essai hier dans ce sens et puis j'ai fait marche arrière en pensant que la colonne commentaire était prévu pour autre chose....

Edit : @NONO14 ==> Ajout fichier

 

[NONO14]

@NONO14

On peut se servir de la colonne commentaire en inscrivant par exemple "il manque x plages" en fonction de ce qu'il manque
J'avais commencé un essai hier dans ce sens et puis j'ai fait marche arrière en pensant que la colonne commentaire était prévu pour autre chose....

L'idée est bonne. Je la retient, cela fera sans doute moi de travail que les MFC

 

[NONO14]

@NONO14

On peut se servir de la colonne commentaire en inscrivant par exemple "il manque x plages" en fonction de ce qu'il manque
J'avais commencé un essai hier dans ce sens et puis j'ai fait marche arrière en pensant que la colonne commentaire était prévu pour autre chose....

Edit : @NONO14 ==> Ajout fichier

J'ai testé le fichier et j'ai un message d'erreur "La méthode Range de l'objet_Worksheet a échoué" dès que l'on intervient sur une cellule.
Petite précision, il peut y avoir qu'une plage ou deux ou trois de saisies sans que pour cela il y ait une anomalie, dès lors que la plage soit complète, une entrée + une sortie.
J'aurai pu le préciser dès le départ de cette discussion.

 

[TooFatBoy]

L'idée est bonne. Je la retient, cela fera sans doute moi de travail que les MFC

Non, une MFC demanderais moins de travail.
Mais en fait une MFC ne serait pas utile étant donné qu'on n'utilise pas directement la feuille.

 

[NONO14]

Non, une MFC demanderais moins de travail.
Mais en fait une MFC ne serait pas utile étant donné qu'on n'utilise pas directement la feuille.

On peut peut-être l'utiliser selon les données entrées dans le TS ?

 

[TooFatBoy]

On peut peut-être l'utiliser selon les données entrées dans le TS ?

Tu peux utiliser une MFC si tu veux, mais étant donné que tu ne vois pas la feuille ça ne sera pas très utile.

 

[NONO14]

Tu peux utiliser une MFC si tu veux, mais étant donné que tu ne vois pas la feuille ça ne sera pas très utile.

L'administrateur aura accès à la feuille si besoin, on pourrait alors indiquer les commentaires dans la ListBox du formulaire, c'est peut-être mieux.