Discussion :

[dawood]

Hello!

J'ai un problème pour vérifier si une heure est dans une certaine intervalle de temps avec VBA. Voici mon code :

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
28
29
For i = 4 To wsstats.Range("B65536").End(xlUp).Row
 
    If Format(wsstats.Range(Cells(i, 2).Address).Value, "hh:mm") = "00:00" Then
        test = datejour + 1
    Else
        heuretest = wsstats.Range(Cells(i, 2).Address).Value
        test = datejour & " " & heuretest
    End If
 
    compteur = 0
 
    For y = 1 To UBound(horaires)
        If horaires(y, 1) <> "" And horaires(y, 2) <> "" And horaires(y, 3) <> "" And horaires(y, 4) <> "" Then
            If horaires(y, 5) = "" Or horaires(y, 6) = "" Or horaires(y, 7) = "" Or horaires(y, 8) = "" Then
 
                If (test >= horaires(y, 1) And test <= horaires(y, 3)) Or (test >= horaires(y, 4) And test <= horaires(y, 2)) Then
                    compteur = compteur + 1
                End If
            Else
                If (test >= horaires(y, 5) And test <= horaires(y, 7)) Or (test >= horaires(y, 8) And test <= horaires(y, 6)) Then
                    compteur = compteur + 1
                End If
            End If
        End If
 
    wsstats.Cells(i, 3).Value = compteur
    Next y
 
Next i

Pas mal de bricolages surement, le problème est que bien que la variable test soit de type DD.MM.YYYY HH:MM:SS et que mes entrées dans la variable tableau soient du même format, il n'a pas l'air de comprendre les signes > < pour tester les dates. Quelqu'un aurait une idée?

[LeForestier]

Bonjour,

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
Sub Test()
Dim Lig As Long
Dim wsstats As Worksheet
Dim Test As Double, Horaire As Date
    Set wsstats = Sheets("Feuil2")
    With wsstats
        For Lig = 4 To .Range("B65536").End(xlUp).Row
            If .Cells(Lig, 2) = 0 Then
                Test = DateSerial(Year(Now), Month(Now), Day(Now) + 1)
            Else
                Test = DateValue(Date) + .Cells(Lig, 2)
            End If
'FAIRE LE TEST
'pour l'exemple
Horaire = "12/05/2009 12:30:00"
            If Test < Horaire Then
                Stop
            Else
                Stop
            End If
        Next Lig
    End With
End Sub

A+
Edit:
J'ai oublier de dire...
Colonne 2 au format personnalisé, hh:mm:ss

[dawood]

Merci de ta réponse j'ai réussi à trouver l'erreur.

A+!