différence entre 2 heures

**dawood** · 14/12/2008, 21h33

Hello!

J'ai un tableau qui contiennent, entre autres, 2 colonnes qui contiennent :

- l'heure de départ (login) - format hh:mm
- l'heure d'arrivée (logout) - format hh:mm

Je dois trouver la durée écoulée entre ces deux heures et l'afficher sous forme #.## (par exemple 1.5 qui correspondrait à une durée de 1h30).

J'ai un peu bricolé avec ce code :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub CalculHeure()
Dim i As Integer
Dim login() As String
Dim logout() As String
Dim hlogin, mlogin, hlogout, mlogout, heurelogin, heurelogout As String
Dim datelogin, datelogout, dureeheure
 
Set WScible = Worksheets("Résumé")
 
For i = 2 To WScible.Range("B65536").End(xlUp).Row
With WScible
datelogin = .Range(Cells(i, 2).Address).Value
heurelogin = .Range(Cells(i, 3).Address).Value
login = Split(Format(heurelogin, "[h]:mm"), ":")
datelogout = .Range(Cells(i, 4).Address).Value
heurelogout = .Range(Cells(i, 5).Address).Value
logout = Split(Format(heurelogout, "hh:mm"), ":")
 
'Coupe heure / minutes
hlogin = login(0)
mlogin = login(1)
hlogout = logout(0)
mlogout = logout(1)
 
If datelogin = datelogout Then
    If hlogout = 0 Then
        hlogout = 12
    ElseIf hlogin = 0 Then
        hlogin = 12
    End If
    mlogin = mlogin / 60
    mlogout = mlogout / 60
    hlogin = hlogin + mlogin
    hlogout = hlogout + mlogout
    dureeheure = hlogout - hlogin
    dureeheure = Format(dureeheure, "#0.00")
    .Range(Cells(i, 6).Address).Value = dureeheure
 
    'Suppression des login / logout de durée 0
    If dureeheure = 0 Then
        .Range(Cells(i, 6).Address).EntireRow.Delete
    End If
 
End If
End With
Next i
End Sub

Ca fonctionne, sauf pour quelques valeurs, ou il me renvoie un nombre négatif (toujours pour un logout de 21:36, 19:12, 16:48).

J'avais aussi l'erreur pour 12:00, c'est pour ça que j'ai rajouté ça :

Code :

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

1
2
3
4
5
    If hlogout = 0 Then
        hlogout = 12
    ElseIf hlogin = 0 Then
        hlogin = 12
    End If

Est-ce que quelqu'un aurait une idée de mon erreur?

Merci!

**pgz** · 14/12/2008, 22h01

Bonsoir.

Pour calculer une différence d'heures entre d1 et d2(type date) en heures décimales, tu peux essayer

Code :

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

duréeHeure = datediff("n",login,logout)/60

et donc pas besoin de toutes ses conversions...

PGZ

**dawood** · 14/12/2008, 22h17

Bonsoir!

Merci, ça a bien allégé mon code!

Mais j'ai toujours des réponses incompréhensibles : par exemple il y a un login a 6:15, avec logout à 09:36 et il me donne comme réponse de durée : 878801.05... Sur quelques lignes, il me fait ce genre d'erreurs... Et sur chaque ligne ou le logout est à 12:00 pile!

Ca peut être dû à quoi?

Le nouveau code :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub CalculHeure()
Dim i As Integer
Dim heurelogin, heurelogout As String
Dim datelogin, datelogout, dureeheure
 
Set WScible = Worksheets("Résumé")
 
For i = 2 To WScible.Range("B65536").End(xlUp).Row
With WScible
datelogin = .Range(Cells(i, 2).Address).Value
heurelogin = .Range(Cells(i, 3).Address).Value
datelogout = .Range(Cells(i, 4).Address).Value
heurelogout = .Range(Cells(i, 5).Address).Value
 
 
If datelogin = datelogout Then
 
    dureeheure = DateDiff("n", heurelogin, heurelogout) / 60
    .Range(Cells(i, 6).Address).Value = dureeheure
 
    'Suppression des login / logout de durée 0
    'If dureeheure = 0 Then
        '.Range(Cells(i, 6).Address).EntireRow.Delete
    'End If
End If
End With
Next i
End Sub

**JackOuYA** · 14/12/2008, 22h49

Bonsoir,

pourrai tu vérifier le forma de tes heures dans ta feuille excel, est-tu sur que c'est une chaine de caractéres, menu excel format cellule nombre.