XL 2019 Modification du code de la macro

sylvanu à dit:

Bonjour Valouf, Kiki,
Vous pouvez le faire avec un simple Inputbox :

VB:

Sub DecompteMN()
    With Sheets("travail")
        If IsNumeric(.[B9]) Then
            If .[B9] > 0 Then
                .[E4] = .[B9]
                arret InputBox("Entrez l'heure")
                Do While .[E4] > 0
                    Application.Wait Now + TimeValue("0:0:1")
                    .[E4] = .[E4] - 1
                    If .[E4] = 400 Then Call arret("Vous êtes de passage à nantes")
                Loop
            End If
        End If
        Call arret("Vous êtes arrivé")
    End With
End Sub
Sub arret(vocal)
    Application.Speech.Speak vocal, 1
End Sub

La syntaxe dans l'Inputbox est : 14:35 par ex.

Cliquez pour agrandir...