Je dois comparer des heures avec une heure en VBA !
Je ne comprends pas que ma macro indique un message erroné !
Code:
Sub controle_ReposB()
Dim i As Long
For i = 6 To 65536
If Hour(Range("C3")) > (Hour(0) - Hour(Cells(i, 4))) Then
MsgBox " Repos inférieur à " & Range("C3"), vbInformation, "ATTENTION"
Exit Sub
End If
Next i
End Sub
Sub controle_ReposB()
Dim i As Long
For i = 6 To 65536
If Range("C3") * 24 > 24 - Cells(i, 4) * 24 Then
MsgBox " Repos inférieur à " & Range("B3"), vbInformation, "ATTENTION"
Exit Sub
End If
Next i
End Sub
Nouvelle demande : et si l'on doit ajouter des heures sur une autre cellule :
Exemple suivant qui ne marche pas !
Code:
Sub controle_ReposC()
Dim i As Long
For i = 6 To 65536
If Range("C3") * 24 > 24 - Cells(i, 4) * 24 + Cells(i - 1, 3) * 24 Then
MsgBox " Repos inférieur à " & Range("C3"), vbInformation, "ATTENTION"
Exit Sub
End If
Next i
End Sub