Somme d'heure

[pierrot]

Bonsoir à tous.
J'aurais voulu faire la somme des heures inscrites en colonne D, mais voilà, la somme s'effectue bien mais sans la valeur horaire de la cellule D2.
J'ai essyé de tout remanier dans tous les sens rien y fait.
Quelqu'un pourrait il me conseiller.
Merci d'avance

Private Sub CalculHeure()
With W1
ligne = .Range("D65536").End(xlUp).Row
Set myRange = .Range("D2" & ligne)
.Range("M2").Value = Application.WorksheetFunction.Sum(myRange)
.Range("M2").NumberFormat = "[h]:mm:ss"
HeuresTotal = .Range("M2").Text
End If
End With
End Sub

 

[steplof]

Salut à tous

Pierrot, je ne suis pas assez doué en VBA pour voir où cloche ton code mais je pense que le code ci-dessous doit fonctionner (avec les réserves liées à la spécificité du calcul d'heures). Vois si ça peut t'aider

Sub TotalHeureD()
Dim dernligne as long '(integer si t'es sur de pas dépasser 32767 lignes)
dim formuleM as string

dernligne = Sheets(1).Range("d65536").End(xlUp).Row
formuleM = "=Sum(d2:d" & dernligne & ")"
Sheets(1).Range("m2").Value = formuleM
Sheets(1).Range("M2").NumberFormat = "[h]:mm:ss"

End Sub


@+
Steplof

 

[pierrot]

Merci de ta réponse .
En fait l'erreur venait du format d'enregistrement de mes valeurs.

Mais Merci encore.