Discussion :

[the_qd]

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

[Thumb down]

Bonjour,
Il faut donner à la cellule le format [h]:mm:ss

[the_qd]

Bonjour,

J'essayais d'avoir le bon format en msgbox mais effectivement si j'envoie la valeur directement dans une cellule excel c'est tout bon.

Merci pour vote aide

[Philippe Tulliez]

Bonjour,
Curieusement la fonction Format de VBA ne reconnait pas les crochets dans le format d'heure
Voici une astuce en utilisant en VBA la fonction Text d'excel

Dans l'exemple la cellule M5 de la feuille active contient 36:00

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub t()
  Dim t As String
  t = Application.WorksheetFunction.Text(Range("M5").Value, "[h]:mm")
  MsgBox (t)
End Sub