Ajout Bip

[JJ1]

Bonjour,

J'utilise une macro de comptage (incrémentation et copie).

Je voudrais ajouter un Bip Bip (mais pas un bip permanent !!) qui me signalerait que la variable O a atteint un seuil (par exemple 100), car je ne suis pas toujours devant l'écran.

Voici le code (merci Tototiti):

Sub Clic()
Dim B As Long, O As Integer
Application.ScreenUpdating = False
[CM1] = 0
Randomize
Application.Calculation = xlCalculationManual
B = 0
While B < 1000
Application.Calculate
B = B + 1
If [CM3] > O Then
Range("U5:AD5").Copy
Range("U2").PasteSpecial Paste:=xlPasteValues
O = [CM3]: [CM1] = O
Randomize
[A1].Select
End If
Application.StatusBar = " Max : " & O
Wend
Application.ScreenUpdating = True
End Sub

Merci de votre aide.

 

[mapomme]

Re : Ajout Bip

Bonjour JJ1,

Dans le code:

If O = 100 Then Bipbip 10, 8000

Avec pour Bipbip:

Sub Bipbip(nfois As Long, tempo As Long)
Dim i As Long, j As Long
    For i = 1 To nfois
      Beep
      For j = 1 To tempo: DoEvents: Next j
    Next i
End Sub

Réglez le nombre de beep et la tempo à votre convenance.