XL 2019 creation d'une boite de dialogue dans ma macro

[valouf]

Bonjour j'aimerais obtenir de l'aide d'apres ma macro decompte qu'une boite de dialogue s'ouvre me bloquant la macro afin que je puisse envoyer ensuite un message vocal merci d'avance

 

[vgendron]

d'apres ma macro decompte qu'une boite de dialogue s'ouvre me bloquant la macro

Bonjour:
c'est incompréhensible !

 

[valouf]

Bonjour:
c'est incompréhensible !

OK quand je clique sur start un decompte ce fait quand j'arrive à 400 je veux qu'une boite de dialogue s'ouvre

 

[Jacky67]

Bonjour j'aimerais obtenir de l'aide d'apres ma macro decompte qu'une boite de dialogue s'ouvre me bloquant la macro afin que je puisse envoyer ensuite un message vocal merci d'avance

Bonjour,
Une proposition avec ce code en PJ

Sub DecompteMN()
    With Sheets("travail")
        If IsNumeric(.[B9]) Then
            If .[B9] > 0 Then
                .[E4] = .[B9]
                Call arret("départ à" & Format(Time, "hh""heure"" mm"))
                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

 

[valouf]

Bonjour,
Une proposition avec ce code en PJ

Sub DecompteMN()
    With Sheets("travail")
        If IsNumeric(.[B9]) Then
            If .[B9] > 0 Then
                .[E4] = .[B9]
                Call arret("départ à" & Format(Time, "hh""heure"" mm"))
                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

Génial jacky je vous remercie bcp mais comme je me bat encore avec visual basic et si je veux mettre un autre passage à toulouse je recopie la ligne if de nantes ? MERCI

 

[Jacky67]

Génial jacky je vous remercie bcp mais comme je me bat encore avec visual basic et si je veux mettre un autre passage à toulouse je recopie la ligne if de nantes ? MERCI

Re..
Oui, avec un autre temps et un autre texte évidemment.
Faudra se battre avec la SNCF pas avec VBA 🙂😉