narkott
Messages postés18Date d'inscriptionjeudi 28 octobre 2004StatutMembreDernière intervention19 décembre 2005
-
19 déc. 2005 à 08:54
kalobit
Messages postés169Date d'inscriptionmardi 15 juillet 2003StatutMembreDernière intervention 7 avril 2008
-
20 déc. 2005 à 15:49
Bonjour à tous et toutes.
J'aimerais savoir si quelqu'un d'entre vous à déjà pu faire ce type de fonction, et si oui comment. En faite je dois parcourir un tableau excel et a chaque fois que la cellule n'est pas vide. Il l'ajoute au résultat précédent. Le réeel problème est que si il y a plus de 23h59 cela fait un jour. On ne peut avoir d'exemple type 35h:45. Et c'est le résultat que je dois avoir.
narkott
Messages postés18Date d'inscriptionjeudi 28 octobre 2004StatutMembreDernière intervention19 décembre 20051 19 déc. 2005 à 11:59
Please Help , je masterise pas encore vraiment en vba. Et donc je ne sais pas non plus comment faire pour découper des chaines de caractères ce qui me serait bien pratique. Par exemple pour faire mes calculs et faire une somme.
kalobit
Messages postés169Date d'inscriptionmardi 15 juillet 2003StatutMembreDernière intervention 7 avril 20082 20 déc. 2005 à 15:47
salut,
Voici ma fonction
Function daytoHour(Jours)
Dim nbjours As Integer
Dim nbheures As Integer
Dim nbminutes As Integer
Dim reste As Single
nbjours = Int(Jours)
reste = Jours - nbjours
reste = reste * 24
nbheures = Int(reste)
reste = reste - nbheures
reste = reste * 60
nbminutes = Int(reste)
reste = reste - nbminutes
reste = Round(reste * 60, 0)
nbsecondes = Int(reste)
nbheures = nbheures + 24 * nbjoursIf nbsecondes 0 Then mbsecondes 0: nbminutes = nbminutes + 1If nbminutes 60 Then nbminutes 0: nbheures = nbheures + 1
daytoHour = Format(nbheures & ":" & nbminutes & ":" & nbsecondes, "hh:mm:ss")
End Function
@+++
les fonctions utilisées restent basiques alors je commente pas mais si tu veux plus d'infos, fais moi signe