Discussion :

[patricktoulon]

bonjour a tous j'ai fait un tableau de style planning

et je voudrais transformer les données en format heure je m'explique :

apres calcul dans les celules j'obtiens
exemple:
5.83 soit 5heures 83 minutes hors si je ne me trompe pas ca corespond a 6 heures 23 minutes c'est cette formules que je n'arrive pas a trouver pour obtenir ce resultat

que ce soit dans les cellules ou en vba quoi que je prefererais en vba

quelqu un a une idée

merci d'avance

[pgz]

Bonjour.

Tu es bien sûr que ton 5.83 signifie 5 H et 83 mn et non pas 5 H et 83 centièmes?

PGZ

[patricktoulon]

Bonjour.PGZ

non il ne sagi pas de centieme sinon ca aurais ete facile

1.15 centieme = 1heure 9minute je crois si je ne me trompe pas

non en fait quand je fait un planning pour 12 personnes
par macro je rempli dans un autre sheets la colonne du mois concerné

et a la fin je calcule le nombre de colonne rempli par nom de salarié
et je le multipli par 151.67 soit la durée legale et je la compare avec les heures effectuées par salarié c'est pour calculer les heures en positif(supplementaires) ou en negatif (les heures a rattraper) mais j'obtien des chiffre apres la virgule supperieur a 59
alors en fait il faudrais que je trouve la formule qui::

separe les heures des minutes (manipulation de caracteres)
et les minutes les diviser par 60 tou simplement en tout cas c'est comme ca que je fais je cherche simplement plus simple si ca existe
exemple::
5.85 =6heures25minutes donc
5.85=5+0.85
soit l'heure reelles est 5 + (0.85/60) soit
5+1.25=6.25

voila je cherche tout simplement une autre formule plus eleguante


merci pour les reponses avenir

[pgz]

Re,

Si tu es sûr de ton format = hh.mm, ta donnée de départ est donc un texte.
Voici une fonction qui devrait convertir ce texte en heure. On suppose que après le point, il y a un nombre de minutes < 100.

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
Function fConvertHeure(ByVal sHeure As String) As Date
Dim iHeure As Integer, iMinute As Integer, iPos As Integer
 
iPos = InStr(1, sHeure, ".")
iHeure = CInt(Mid$(sHeure, 1, iPos - 1))
iMinute = CInt(Mid$(sHeure, iPos + 1, 2))
 
If iMinute >= 60 Then
    iMinute = iMinute - 60
    iHeure = iHeure + 1
End If
 
fConvertHeure = TimeSerial(iHeure, iMinute, 0)
 
End Function

Cordialement,

PGZ

[mercatog]

Edit:

Code :

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

1
2
3
Public Function Convert(ByVal tim As Double)
Convert = Format(TimeSerial(0, 100 * tim - 40 * Int(tim), 0), "hh:mm")
End Function

Edit 2: en faite le TimeSerial convertit en date
Pour convertir en durée (et non en date/time)
proposition

Code :

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

1
2
3
4
5
Public Function Convert(ByVal tim As Double) As String
Dim mn As Integer
mn = 100 * tim - 40 * Int(tim) 'convert en minutes
Convert = Format((mn - mn Mod 60) / 60, "00") & ":" & Format(mn Mod 60, "00")
End Function

[Pierre Fauconnier]

Salut.

Pour garder une valeur temporelle à l'arrivée

Code :

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

1
2
3
Function Temps(Valeur As Double) As Date
  Temps = TimeSerial(Int(Valeur), (Valeur - Int(Valeur)) * 100, 0)
End Function

TimeSerial et DateSerial permettent le débordement, ce qui est très pratique dans beaucoup de cas.

Par exemple:

Code :

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

timeserial(5,83,0)

renvoie 6:23:00.

Code :

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

DateSerial(2010,4,0)

renvoie 31/03/2010