Hello!

J'ai un petit problème de format... Je m'explique : J'ai une liste de login / logout qui peuvent commencer par exemple le 22.12.2008 à 11:00 avec un logout à 00:30 le 23.12.2008. Je souhaiterais compter combien de temps s'est écoulé entre les deux. Pour ça je pensais couper en 2 : compter combien de temps s'est écoulé de 11:00 à 24:00, puis de 00:00 à 00:30. Mais j'ai une erreur de compatibilité, voilà le bout de code qui devrait le faire :

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
If datelogin = datelogout Then
 
    dureeheure = DateDiff("n", heurelogin, heurelogout) / 60
    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
 
Else
 
    'Durée sur 1er jour
    heurebutoire = Format("24:00", "hh:mm")
    dureeheure = DateDiff("n", heurelogin, heurebutoire) / 60
    dureeheure = Format(dureeheure, "#0.00")
    .Range(Cells(i, 6).Address).Value = dureeheure
 
    'Durée sur 2e jour
    heurebutoire = Format("00:00", "hh:mm")
    dureeheure = DateDiff("n", heurebutoire, heurelogout) / 60
    dureeheure = Format(dureeheure, "#0.00")
    .Range(Cells(i, 7).Address).Value = dureeheure
 
End If
Et la déclaration des variables :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Dim heurelogin As Date, heurelogout As Date, heurebutoire As Date
Dim datelogin, datelogout, dureeheure
Les heures dans le tableau excel sont dans ce format ##:##. Ca me fait une erreur 3, incompatibilité de type, sur la ligne "heurebutoire". Est-ce que quelqu'un pourait m'aider svp?

Bonne soirée!