XL 2019 Emission d'un bip

[valouf]

Bonsoir j'aimerais avoir un bip au chiffre voulue merci d'avance

 

[patricktoulon]

bonjour

Sub DecompteMN()
    With Sheets("travail")
        If IsNumeric(.[B9]) Then
            If .[B9] > 0 Then
                .[e4] = .[B9]

                Do While .[e4] > 0
                    Application.Wait Now + TimeValue("0:0:1")
                    With .[e4]
                        .Value = .value - 1
                        If .Value = 200 Then Beep
                        If .Value = 400 Then Call arret("Vous êtes de passage à nantes")
                    End With
                Loop
            End If
        End If
        Call arret("Vous êtes arrivé")
    End With
End Sub
Sub arret(vocal)
    Application.Speech.Speak vocal, 1
End Sub

@+ 😉

 

[Wayki]

Bonjour,
En B9 mettre 200,
Dans un module,

Sub test()
If sheets(1).range("B9") = 200 then beep
End sub

Beep, instruction (VBA)

Rubrique de référence sur Office VBA

docs.microsoft.com

A +

 

[valouf]

Bonjour,
En B9 mettre 200,
Dans un module,

Sub test()
If sheets(1).range("B9") = 200 then beep
End sub

Beep, instruction (VBA)

Rubrique de référence sur Office VBA

docs.microsoft.com

A +

Bonjour,
En B9 mettre 200,
Dans un module,

Sub test()
If sheets(1).range("B9") = 200 then beep
End sub

Beep, instruction (VBA)

Rubrique de référence sur Office VBA

docs.microsoft.com

A +

MERCI pour vos reponses c gentil mais je n'y arrive pas pas assez bon sur visual basic

 

[Wayki]

MERCI pour vos reponses c gentil mais je n'y arrive pas pas assez bon sur visual basic

Essayez de coller ceci dans le module de la feuille (Alt + F11, double cliquer dans l'explorateur de gauche sur la feuille contenant vos données)

Private sub Worksheet_Change(ByVal Target as Range)
If range("B9") = 200 then beep
End sub

A +