XL 2019 Emission d'un bip

valouf · 10 Août 2022

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

patricktoulon · 10 Août 2022

bonjour

VB:

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 · 10 Août 2022

Bonjour,
En B9 mettre 200,
Dans un module,

VB:

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 · 10 Août 2022

Wayki à dit:
Bonjour,
En B9 mettre 200,
Dans un module,

VB:

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 · 10 Août 2022

valouf à dit:
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)

VB:

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

A +

XL 2019 Emission d'un bip

valouf

XLDnaute Junior

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Wayki

XLDnaute Impliqué

Beep, instruction (VBA)

valouf

XLDnaute Junior

Beep, instruction (VBA)

Beep, instruction (VBA)

Wayki

XLDnaute Impliqué

Discussions similaires