[VBA] variable et heure absolue

Marsh Posté le 26-06-2007 à 19:03:16

bonjour

j'ai (encore) un soucis en VBA.

je fait un petit traitement de données, en lisant une cellule dans une page, et la recopiant avec d'autre données dans une autre page (données epurer et preparer)
seul soucis, un des champ de la première page est en heure, le problème c'est pas tellement les heures, mais le fait que j'ai des heures superieur a 24, cad que je peut avoir comme donnée 01:54:02 comme je peut avoir 640:02:78.
quand l'heure est en standard (inferieur a 24) j'arrive a le retrouver en formatant ma variable, mais quand c'est superieur a 24, ca marche pas, il me le donne avec une date en plus.

est il possible en vba de recuperer mes heures mais avec des heures superieur a 24 ?

Merci.

Marsh Posté le 26-06-2007 à 19:03:16

Marsh Posté le 26-06-2007 à 22:23:46

et bien, j'ai du poser une sacré colle.

Marsh Posté le 26-06-2007 à 22:25:37

avec les modulo peut être ?

Marsh Posté le 26-06-2007 à 23:19:11

euh cad ?

Marsh Posté le 26-06-2007 à 23:23:00

Sous forme de fonction personnalisée, donc à placer dans un module
et à adapter et tester

Option Explicit

Function RecupHeures(ByVal c As Range) As String
Dim Jour As Integer
Dim Heures As Integer
Dim Minutes As Integer
Dim Secondes As Integer

Jour = Int(c)
Heures = Int((c - Jour) * 24)
Minutes = Int(((c - Jour) * 24 - Heures) * 60)
Secondes = Int((((c - Jour) * 24 - Heures) * 60 - Minutes) * 60)

RecupHeures = CStr(Jour) & "j " & CStr(Heures) & "h " & CStr(Minutes) & "mn " & CStr(Secondes) & "s"
End Function

Marsh Posté le 26-06-2007 à 23:42:16

je pensais aussi a un truc du genre, mais si ya moyen de faire plus simple c'est pas plus mal, sinon tand pis, je passerais par cette methode.

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *