Discussion :

[bru.antoine]

Bonjour,
J'ai écris une petite fonction toute simple avec l'editeur VB d'excel mais quand je l'appel pour certaines valeurs j'ai une erreur #Valeur! que je n'arrive pas à comprendre et si je diminue juste le nombre du 1er champ en dessous de 10, plus erreur.

Mieux qu'un long discours le code :
dans cellule excel :

Code :

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

1
2
 
=secToTimestamp(8;39;32.1;3700.2)

Retourne : 9:41:12.300000 (ce qui me convient)

Code :

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

1
2
 
=secToTimestamp(9;39;32.1;3700.2)

Retourne: #VALEUR! alors que l'on a juste ajouté fait 8+1=9
Toutes les valeurs supérieures à 8 pour le champ de heures retournent ce code d'erreur.

Code de la fonction :

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
19
20
21
22
 
'Conversion du nbr secondes en heures minutes secondes avec ajout d'une heure de départ
' Exemple pour 14h21min31.2658s et 369.253698
' StartH =14 StartM= 21 StartS= 31.2658 secNbr =369.253698
' Resultat 14:27:40.519498
 
Function secToTimestamp(StartH As Integer, StartM As Integer, StartS As Double, secNbr As Double) As String
 
 
Dim hours As Integer
Dim hours_res As Integer
Dim minutes As Integer
Dim sec As Double
 
secNbr = secNbr + StartS + StartM * 60 + StartH * 3600
 
hours = secNbr \ 3600
minutes = (secNbr - hours * 3600) \ 60
sec = secNbr - (60 * minutes) - (3600 * hours)
secToTimestamp = hours & ":" & minutes & ":" & FormatNumber(sec, 6, vbFalse, vbFalse, vbFalse)
 
End Function

[gFZT82]

Bonjour,

J'obtiens un résultat correct en modifiant la déclaration des variables

Code :

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

1
2
3
4
Function secToTimestamp(StartH As Long, StartM As Long, StartS As Double, secNbr As Double) As String
Dim hours As Long
Dim minutes As Long
Dim sec As Double

Cordialement.

[Daranc]

premiere colonne saisir l'heure

Code :

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

 8:39:32.1

en A1
deuxieme colonne le temps en seconde

Code :

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

3700.1

en B1
troisieme colonne

Code :

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

=A1+((B1/3600)/24)

en C1 mettre le format horaire de la cellule
tu garde le format de ton résultat en nombre et non en texte ce qui te permet de l'employer dans d'autre calculs

[bru.antoine]

Merci pour votre aide, en effet en remplaçant par Long les 2 premières variable ça fonctionne. J'avais essayé en remplaçant par Double mais j'avais pas pensé à essayer en Long.