Comparer des heures dans excel.

Version imprimable

Bonjour,

Je dispose d'un tableau avec des temps de résolutions au format heure ->

00:00:00
00:08:35
1.00:01:42

etc ...

Je cherche à faire des statistiques en sortant les dossiers traités en moins de X heures, entre X et Y heures, plus de Z jours etc ...

Je fais un passage avec une boucle sur mon tableau pour vérifier une autre valeur j'ai donc pensé ajouter simplement ->
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 If Sheets("Feuil2").Range("J" & j) < "0.01:00:00" Then t0 = t0 + 1 ElseIf Sheets("Feuil2").Range("J" & j) > "0.01:00:00" And Sheets("Feuil2").Range("J" & j) < "0.08:00:00" Then t1 = t1 + 1 ElseIf Sheets("Feuil2").Range("J" & j) > "0.08:00:00" And Sheets("Feuil2").Range("J" & j) < "2.00:00:00" Then t2 = t2 + 1 Else t3 = t3 + 1 End If
Bon forcément ça ne fonctionne pas j'en ai conclu que les heures ne sont pas géré comme ça, j'ai fais quelques recherches mais impossible de trouver comment les comparer. Est ce possible ou dois-je tout convertir avant de pouvoir comparer les valeurs ?

Par avance merci de votre aide.

28/01/2014, 14h21
Daniel.C

Bonjour,

Est-ce que, sur ta feuille, les heures sont au format texte ? sinon, dans "0.01:00:00", qu'est-ce que représente le 0 de gauche (celui suivi d'un point) ?
28/01/2014, 14h28
vindkald

Bonjour,

Par défaut les cellules sont au format texte (c'est un tableau généré automatiquement par la fonction "exporter" du logiciel de saisie de dossier).

Le chiffre devant le nombre d'heure représente le nombre de jours.

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
27
Sub test()
Dim c As Range, Jour As Integer, Heure As Date
With Sheets("Feuil2")
    For Each c In .Range(.[J1], .Cells(.Rows.Count, 10).End(xlUp))
        Jour = 0
        If InStr(1, c.Value, ".") > 0 Then
            Jour = CInt(Split(c.Value, ".")(0))
        End If
 
        Heure = Jour + CDate(Right(c.Value, 8))
        If Heure < #1:00:00 AM# Then
            t0 = t0 + 1
 
        ElseIf Heure > #1:00:00 AM# And Heure < #8:00:00 AM# Then
            t1 = t1 + 1
 
        ElseIf Heure > #8:00:00 AM# And Jour < 2 Then
            t2 = t2 + 1
 
        Else
 
            t3 = t3 + 1
 
        End If
    Next c
End With
End Sub

29/01/2014, 12h13
vindkald

Merci beaucoup ça fonctionne à merveille :)