Bonjour,

Je suppose que la question a déjà été posée mais je ne trouve pas.

J'ai un tableau excel avec des heures par jour au format hh:mm:ss

Avec VBA, je souhaite additionné toutes les heures du lundi au samedi et toutes les heures du dimanche

J'arrive bien à le faire mais je n'arrive pas à convertir les heures en heures si elles dépassent 24h

J'ai bien essayé de formater(FORMAT) mon résultat mais :
- [hh]:nn ne me retourne pas d'heures mais que les minutes (" :45")
- hh:nn me retourne des heures en dessous de 24h (01:45)
- FORMAT, ça me retourne la date/heure si ça dépasse de 24h ("01.01.1900 01:45:00)

Comment faire ?

En vous remerciant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub calcul()
Dim var_semaine As Date
Dim var_dimanche As Date
Dim cellule As Range
For Each cellule In Range("A4:A29")
    If Weekday(cellule, 2) <> 7 Then
        If cellule <> "" Then
            var_semaine = var_semaine + Application.WorksheetFunction.VLookup(cellule, Range("A4:F29"), 6)
        End If
    Else
        If cellule <> "" Then
            var_dimanche = var_dimanche + Application.WorksheetFunction.VLookup(cellule, Range("A4:F29"), 6)
        End If
    End If
Next cellule
MsgBox Format(var_semaine, "[hh]:nn") & " - " & Format(var_dimanche, "[hh]:nn")
End Sub