Comparaison entre 2 heures

[adr95]

Bonjour,

Je souhaite faire un test de comparaison en vba voici ce que je compare :

if 13 < time < 14 then
....

Sauf que la condition est toujours ok et ne passe jamais dans le else.

Cela vient surement du format mais je ne sais pas comment faire.

Une idée ?

 

[tbft]

Re : Comparaison entre 2 heures

Bonjour

Peut-être avec

  If (17 >= Hour(Time)) And (Hour(Time) < 18) Then
    toto = True
  Else
    toto = False
  End If

 

[adr95]

Re : Comparaison entre 2 heures

Merci c'est ça que je cherchais maintenant je souhaite afficher uniquement l'heure et les minutes mais pas les seconde j'ai essayé ça sans succès :

Sub Bouton1_Clic()
Dim I As Integer

If (18 >= Hour(Time)) And (Hour(Time) < 19) Then
Cells(5, 5) = Hour(Time) & Minute(Time)
Else
MsgBox ("erreur")
End If
End Sub

 

[tbft]

Re : Comparaison entre 2 heures

bonjour

attention pas essayer
Cells(5, 5).value = cstr(Hour(Time)) & cstr(Minute(Time))

désolé j'étais en déplacement...😱

 

[job75]

Re : Comparaison entre 2 heures

Bonjour,

Le test n'allait pas...

Sub Bouton1_Clic()
If Hour(Time) = 18 Then 'de 18:00:00 à 18:59:59
Cells(5, 5) = Format(Hour(Time), "00") & Format(Minute(Time), "00")
Else
MsgBox ("erreur")
End If
End Sub

A+