[XL-2007] Pointeur heure de travail

[colapsus]

Voilà on m'a demandé de créer un pointeur sous Excel, et je ne connais que très peu cet outil, car je code sous Visual Studio, pour démarrer, j'ai suivi divers tutoriels, et mon premier code a pour but d'additionner les heures.

Code :

1
2
3
4
5
6
7
8
9
10
Sub Bouton2_Clic()
 
Dim Addition As Single
 
Addition = (Range("C5") - Range("C4"))
 
Range("F5") = Addition
 
 
End Sub

Il n'y a pas d'erreur selon excel, mais quand je lis la réponse en F5, j'y trouve 0.0000015
En C5, l'heure est : 17:01
En C4, l'heure est : 13:25

Quelqu'un pourrait m'aider a résoudre ce problème ?

[rjamin]

Bonjour,

Excel travaillant par défaut sur un jour = 24h
Quand vous écrivez 17:01 c'est égal à 0,709027778 c'est à dire 0.709 de 24H
13:25 => 0,559027778 donc quand on lui demande la différence ntre ces deux valeurs on obtient 0,709027778 - 0,559027778 = 0.15

Vous dites vous que vous avez 0.0000015 c'est déjà bizarre (à vérifier)
Si vous mettez F5 au format heure vous devez avoir 03:36:00 comme résultat.
En tout cas chez moi c'est comme cela.

Edit : au lieu

Dim Addition As Single

mettez plutôt

Code :

Dim Addition as Date

et vous aurez directement le résulta en heure

[colapsus]

Oui mais ma question est comment met on F5 au format heure ?

Et connaitrais tu un bon livre sur ce sujet soit dit en passant ? ^^

[rjamin]

Re,

Click droit sur F5 > Format de cellule > Heure

Regarde ce j'ai ajouter au 1er post.

Voir ceci
http://silkyroad.developpez.com/excel/dateheure/