Discussion :

[vindkald]

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 :

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

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.

[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) ?

[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.

[Daniel.C]

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
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

[vindkald]

Merci beaucoup ça fonctionne à merveille