Toupie - modifier heures avec minimum 0:00 pour éviter #######

[lolo62000]

Bonjour,

j'ai le code suivant pour modifier l'heure dans une cellule. Je souhaiterais qu'il ne soit pas possible de descendre en dessous de 0:00, car si "spindown" à 0:00, j'obtiens cela: #######.

Sub Picture4_Clic()
ActiveSheet.Unprotect
If Range("B2").Value <> 0 Then
MsgBox "Veuillez utiliser les flèches pour modifier votre horaire"
Else
Range("B2").Value = Time
Range("B3").Value = Time + 7 / 24
End If
ActiveSheet.Protect
End Sub

Une idée svp?
Merci.

Laurent.

 

[Papou-net]

Re : Toupie - modifier heures avec minimum 0:00 pour éviter #######

Bonsoir Laurent,

Peut-être comme ceci :

Sub Picture4_Clic()
ActiveSheet.Unprotect
If Cdate(Range("B2").Value) > 0 Then
    MsgBox "Veuillez utiliser les flèches pour modifier votre horaire"
Else
Range("B2").Value = Time
Range("B3").Value = Format(Range("B2") + (7 / 24), "hh:mm")
End If
ActiveSheet.Protect
End Sub

Ou, en conservant ton code, modifier le format de la cellule B3 en : "hh:mm".

Cordialement.