XL 2019 Modification du code de la macro

[valouf]

J'aimerais changer le code de cette macro afin que je choisisse moi meme l'heure de départ merci d'avance

 

[kiki29]

Salut, une myriade de réponses via une recherche

 

[sylvanu]

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

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.

 

[valouf]

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

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.

merci bcp sylvanu