Ajouter un son lorsqu'une erreur apparait

Bonsoir à toutes et à tous.

J'ai une petite appli qui me permet d'enregistrer le passage des coureurs. Il arrive que parfois je tape deux fois le meme numero, à ce moment la une msgbox s'ouvre pour me dire ce coureur est déjà passé.

J'ai un problème pour introduire un beep lorsque la msgbox s'ouvre.

ci joint le code utilisé.

Sub heure()

End Sub

Merci d'avance pour votre aide.

Salut Ldopa,

essaie comme ca

MsgBox "Ce coureur est déjà passé", vbExclamation

ou bien comme ca

Application.Speech.Speak "Ce coureur est déjà passé"

Bonne soirée

Bonjour,

Une proposition ?

Public Sub heure()
Dim I As Byte, ACell As Range
Const R As String = "B4:B203"
    Set ACell = ActiveCell
    If Not IsEmpty(ACell.Offset(, 1)) And Not IsEmpty(ACell.Offset(, 2)) Then
        MsgBox ("Ce coureur est d?j? pass?"), vbOKOnly + vbCritical, "Alerte"
        For I = 1 To 3
            Beep
        Next I
    Else
        If IsEmpty(ACell.Offset(0, 1)) Then
            With ACell.Offset(0, 1)
                .Value = Time
                .NumberFormat = "hh:mm:ss"
            End With
            ActiveSheet.Range(R).Interior.ColorIndex = xlNone
            ACell.Resize(, 2).Interior.ColorIndex = 36
        Else
            With ACell.Offset(0, 2)
                .Value = Time
                .NumberFormat = "hh:mm:ss"
            End With
            ACell.Resize(, 3).Interior.ColorIndex = 38
        End If
    End If
    ActiveSheet.Cells(4, 2).Select
End Sub

Bonjour m3ellem1 & Jean-Eric,

Merci pour votre aide.

J'ai testé les 3 propositions, le seule qui fonctionne est Application.Speech.Speak "Ce coureur est déjà passé" et elle me convient très bien.

Merci à vous deux.

A vous relire