Discussion :

[dawood]

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!

[pgz]

Bonsoir.

Si HeureLogin et HeureLogout sont des temps complets (date et heure), dateDiff te donne directement la durée.

Et, du coup, le découpage ne sert à rien.

Pour l'erreur, je pense que tu essaies d'affecter à une variable date une string. En plus la fonction Format ne sert ici à rien (si elle marchait elle renverrait "00:00") et son premier argument devrait être TimeValue("..."). Bref une erreur 3, mais aussi probablement 3 erreurs sur la même ligne

PGZ

[dawood]

Bonsoir!

Dans mon tableau j'ai une colonne "Date login", une colonne "Heure login", une colonne "Date logout" et une colonne "Heure logout". J'utilise DateDiff sur les colonnes "Heure login" et "Heure logout", c'est pour ça que je voulais faire ce "découpage". J'ai adapté le code selon ce que tu m'as dit, ça me donne la même erreur / nouveau code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    'Durée sur 1er jour
    heurebutoire = TimeValue("24:00")
    dureeheure = DateDiff("n", heurelogin, heurebutoire) / 60
    dureeheure = Format(dureeheure, "#0.00")
    .Range(Cells(i, 6).Address).Value = dureeheure
 
    'Durée sur 2e jour
    heurebutoire = TimeValue("00:00")
    dureeheure = DateDiff("n", heurebutoire, heurelogout) / 60
    dureeheure = Format(dureeheure, "#0.00")
    .Range(Cells(i, 7).Address).Value = dureeheure

Est-ce que je suis obligé d'assembler la colonne "Date login" avec "Heure login" et "Date logout" avec "Heure logout" pour faire le calcul, ou est-ce que ça pourrait fonctionner autrement?

Merci!

[JackOuYA]

Bonsoir,

tu peu tout simplement faire cela avec une formule excel. :

Code :

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

=(DateFin + heureFin) - (DateDebut + heureDebut)

et tu met la cellule au format : [h]:mm


tu dis quoi ...

[ucfoutu]

Bonjour,

Moi, je m'arrête à ton "heure butoir" :

Code :

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

heurebutoire = TimeValue("24:00")

Cette heure n'existe tout simplement pas ! (on passe de 23 h 59 à 0 h 00)
Il te suffirait d'ailleurs de frapper :

Code :

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

msgbox  TimeValue("24:00")

pour avoir une erreur d'incompatibilité !

[dawood]

Bonjour,

Moi, je m'arrête à ton "heure butoir" :

Code :

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

heurebutoire = TimeValue("24:00")

Cette heure n'existe tout simplement pas ! (on passe de 23 h 59 à 0 h 00)
Il te suffirait d'ailleurs de frapper :

Code :

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

msgbox  TimeValue("24:00")

pour avoir une erreur d'incompatibilité !

Avec 23h 59 ça fonctionne, je savais pas que 24:00 n'existait pas le problème c'est maintenant que je perd 1 min à chaque fois... Je vais essayer de concaténer date login avec heure login et date logout avec heure logout et voir si ça passe comme ça!

[dawood]

Hello!

En fait j'ai besoin de la durée en heure par exemple 1.5 = 1:30. Si je mets ta formule, ça ne fonctionne pas, même après avoir changé le format en format nombre.

Ou alors utiliser un format personnalisé?