transformer 7.3 en 7h 30 minutes

[MARIE74]

Bonjour a toutes et a tous

Petit probleme

Est il possible de transformer 7.3 en 7h30

D'avance Merci

 

[herrator]

ci joint fichier

ça consiste à prendre en compte qu'excel travaille en jours [file name=heures_20051222165853.zip size=1385]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/heures_20051222165853.zip[/file]

 

[MARIE74]

Re a tous

Merci herrator

Tu es mon sauveur

Dans ma formule j'avais oublié de diviser par 60

Encore un grand merci


Bonne soirée et bonnes fetes a tous


PS: Pour le ski vous pouvez venir, neige parfaite

 

[porcinet82]

Salut Marie,

Et ben y en a qui ont de la chance de pouvoir faire du ski, si tu as de la place pour m'héberger, je fais mes bagagge de suite. B)

Bon je te propose quand meme une 'petite solution' par macro. Ma devise étant bien évidemment pourquoi faire simple lorsque l'on peut faire compliqué!!!

Il y a peut etre, surement meme, plus simple, mais c'es tout ce que j'ai réussit a bricoler.
En espérant que ca puisse t'aider quand meme.

Sub change()
Dim heur As Variant, min As Variant

Application.Goto Sheets('feuil1').Range('A1')
For i = 1 To Range('a65536').End(xlUp).Row
    heur = Left(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, '.') - 1)
    min = Mid(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, '.') + 1)
    If Len(min) = '1' Then min = min & '0'
    Cells(i, 2).Value = heur & 'h' & min
Next i
End Sub

@+

PS : La prochaine piste que tu descends, pense a moi qui suis en train de réviser mes exam!!!

 

[MARIE74]

Re a tous

Merci porcinet82

Bon j'essaye les 2 solutions


Encore Merci






Heu pour le ski tant pis je serais seule sur les pistes
Bouououou