Dépassement de capacité lors d'une conversion

Bonjour,

Je dois effectuer des conversions de secondes en hh:mm:ss, malheureusement j'ai un dépassement de capacité en raison d'un nombre de secondes supérieur à 35000.

Existe t'il un moyen de pendre en compte un nombre plus important de secondes

Voici mon bout code :

Dim TempsParle AS Long

TempsParle = 57283

Cells(1, 1) = Format(TimeSerial(0, 0, TempsParle), "hh:mm:ss")

Merci par avance.

Bonjour,

A tester :

Cells(1, 1) = TempsParle / (3600# * 24)

cf fichier en PJ

Bonne journée

Bouben

Bonjour

Bonjour Bouben

Pour info tu ne peut dépasser 32767 avec Timeserial

Merci Bouben, cela fonctionne bien :

du coup pour le contexte, j'exploite les résultats d'une requete SQL

While Not rs2.EOF

Cells(r, 7) = rs2.Fields(8)

Cells(r, 8) = rs2.Fields(9)

Cells(r, 9) = rs2.Fields(10)

Cells(r, 9) = rs2.Fields(11)

Tempsparle = rs2.Fields(8) + rs2.Fields(9) + rs2.Fields(10) + rs2.Fields(11)

Cells(r, 10) = Format(TempsParle / (3600# * 24), "hh:mm:ss")

rs2.MoveNext

r = r + 1

Wend

M12,

Effectivement