Controler un champs de saisie

Bonsoir

j'ai une question , peut etre pas forcement réalisable , mais je tente de la poser :

Est il possible de controler le champs de remplissage d'une inputbox qui devra etre renseignée par des heures au format

hh:mm , c'est à dire refuser tout autre ecriture d'heure comme par exemple "12h20" mais accepter 12:20 ?

Merci pour vos réponses

Bonsoir,

voici

Sub demandeheure()
While h = ""
h = InputBox("hh:mm")
If Not (h Like "##:##") Then
 MsgBox "format doit être hh:mm pour " & h
 h = ""
End If
Wend
End Sub

Bonsoir,

Bonsoir h2so4

Un exemple +pédagogique

Cdlt

Option Explicit
Public Sub test_InputBox()
Dim Msg As String
Dim Title As String
Dim Default As String
Dim Response As String
Dim x As Variant

line1:
    Msg = "Veuillez saisir une heure au format 00:00"
    Title = "Saisie heure"
    Default = "00:00"

    Response = InputBox(Msg, Title, Default)
    If Response = "" Then
        MsgBox "Aucune heure saisie."
        Exit Sub
    End If
    On Error Resume Next
    x = TimeValue(Response)
    If x = "" Then
        MsgBox " La saisie n'est pas une heure valide."
        On Error GoTo 0
        GoTo line1
    End If

End Sub

Merci jean Éric et h2so4 , j'ai testé vos deux solutions et ça marche parfaitement