Problème de formats heure

Version imprimable

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:

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:

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!

22/12/2008, 19h19
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

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:

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! :)

22/12/2008, 19h52
JackOuYA

Bonsoir,

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

Code:

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

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

tu dis quoi ...
22/12/2008, 20h01
ucfoutu

Bonjour,

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

Code:

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:

msgbox TimeValue("24:00")

pour avoir une erreur d'incompatibilité !
22/12/2008, 20h01
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é? :roll:
22/12/2008, 20h18
dawood

Citation:

Envoyé par ucfoutu

Bonjour,

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

Code:

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:

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!

Avec la concaténation de date et heure :
Code:

1 2 3 4 heurebutoire = TimeValue("00:00") dureeheure = DateDiff("n", datelogin & " " & heurelogin, datelogout & " " & heurelogout) / 60 dureeheure = Format(dureeheure, "#0.00") .Range(Cells(i, 6).Address).Value = dureeheure
ça fonctionne, après quelque tests, les valeurs sont correctes. Merci de votre aide!

Je veux bien t'aider, mais il va falloir que tu commences par t'aider toi-même un peu.

Réflexion 1 : on ne peut parler de durée en ne parlant que d'heures... ! La durée est une notion qui s'étale dans le temps et inclut donc la notion de date également !
Réflexion 2 : c'est précisément cette notion de date manquante qui te conduit au "mauvais coup" des 24 h 00 au lieu de 0 h.00 (mais... le lendemanin ;))

Je te donne ici de quoi méditer calmement :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Command1_Click() datedebut = "01/01/2001 10:12:43" datefin = "02/01/2001 10:53:41" nbsecondes = DateDiff("s", datedebut, datefin) nbheures = nbsecondes \ 3600 nbminutes = (nbsecondes Mod 3600) \ 60 nbsecondes = (nbsecondes Mod 3600) Mod 60 MsgBox nbheures & " heures " & nbminutes & " minutes " & nbsecondes & " secondes " MsgBox "soit donc : " & nbheures + (nbminutes / 60) + (nbsecondes / 3600) & " heures" End Sub
Le dernier msgbox te convertit dans ton "expression à virgule" ...:lol:

A toi d'attraper au vol ...

22/12/2008, 20h33
dawood

C'est bon, je me suis aidé moi-même aussi un peu :lol: Heure butoire, je l'ai supprimée et ajouté le concept de date dans mon code!! Merci beaucoup en tt cas! :king:
22/12/2008, 20h55
JackOuYA

Citation:

Envoyé par dawood

C'est bon, je me suis aidé moi-même aussi un peu :lol: Heure butoire, je l'ai supprimée et ajouté le concept de date dans mon code!! Merci beaucoup en tt cas! :king:

Ok j'aurai quand même aimé voir le résultat que tu as appliqué, comme je te l'ait dit plus haut nul besoin de faire des calculs astronomiques et pas besoin de VBA .

le résultat que de

Code:

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

c'est des jours , soit 24 h , tu multiplie donc par 24 et tu as ton résolu ton probléme

Code:

=((DateFin + heureFin) - (DateDebut + heureDebut))*24
22/12/2008, 21h30
dawood

Citation:

Envoyé par JackOuYA

Ok j'aurai quand même aimé voir le résultat que tu as appliqué, comme je te l'ait dit plus haut nul besoin de faire des calculs astronomiques et pas besoin de VBA .

le résultat que de

Code:

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

c'est des jours , soit 24 h , tu multiplie donc par 24 et tu as ton résolu ton probléme

Code:

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

Pour un login le 01.11.2008 à 10:57 et logout le 01.11.2008 à 15:06
Ca me donne ça : 04.01.1900 03:36, ensuite si je met au format standard, ça fonctionne aussi. Par contre, vu que je supprime tout le tableau avant de copier les données d'une feuille sur l'autre avec du code, les formules seront aussi supprimée... Ca me parait moins pratique, mais est-ce que ce sera plus rapide pour le calcul si je copie ta formule pour chaque ligne ou si je le fait avec le vb?
22/12/2008, 21h37
JackOuYA

Tu peu utiliser le même principe et effectuer le calcul en VBA la cela devrai marcher aussi ;)

comment reporte tu ton calcul dans toutes tes lignes actuellement ?

Comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CalculHeure()
Dim i As Integer
Dim heurelogin As Date, heurelogout As Date
Dim datelogin As Date, datelogout As Date, 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
 
 
dureeheure = DateDiff("n", datelogin & " " & heurelogin, datelogout & " " & heurelogout) / 60
dureeheure = Format(dureeheure, "#0.00")
.Range(Cells(i, 6).Address).Value = dureeheure
 
End With
Next i
End Sub

il ne faut pas traiter les dates comme des chaines de carctéres essai plutôt :

Code:

1
2
3
4
5
6
7
 
With WScible
   datelogin = .Cells(i, 2).Value +  .Cells(i, 3).Value
   datelogout = .Cells(i, 4).Value + .Cells(i, 5).Value
   .Cells(i, 6).Value = (datelogout - datelogin) * 24 
   .Cells(i,6).NumberFormat ="#0.00"
end With

tu dis quoi..