XL 2010 Comment Retrouver Ancien Beep (Dos ou windows xp)

[cathodique]

Bonjour,

Je suis sous Windows 7/64 bits et Excel 2010/32 bits.
Merci à ceux et celles qui ont la même configuration que la mienne de me confirmer que le beep fonctionne bien chez-eux.
Dans le cas contraire, auriez-vous une solution?

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If InStr("1234567890,-", Chr(KeyAscii)) = 0 Or TextBox1.SelStart > 0 And Chr(KeyAscii) = "-" _
      Then KeyAscii = 0: Beep
End Sub

Bonne journée.

 

[JM27]

Bonjour
regardes comment s'appelle ta text box (txtEcritFeuille)

 

[cathodique]

Bonjour
regardes comment s'appelle ta text box (txtEcritFeuille)

Quelle gourde je suis, je n'ai pas joint le bon fichier.
Mise à jour au post#1.
Merci pour ton retour.
Bonne journée.

 

[cathodique]

Bon pour le moment, voici ce que j'ai trouvé mais à voir avec le joli Beep sous XP.
C'est ce beep que je voulais retrouver.

'Dans l'userform
Option Explicit
Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890,-", Chr(KeyAscii)) = 0 Or TextBox1.SelStart > 0 And Chr(KeyAscii) = "-" _
Then KeyAscii = 0
'Frequence en Hz, Duree en millisecondes
Call Beep(500, 100)
End Sub

'Et dans un module standard un API (est-ce qu'elle passera sous Excel 64 bits?)'
Declare Function Beep Lib "kernel32" (ByVal Frequence As Long, ByVal Duree As Long) As Long

Bonne journée.

 

[VIARD]

Salut Cathodique et à tous

Ce code fonctionne sous Windows7 en 32 et 64 bits
code à placer dans un module standard.

Option Explicit
Declare Function Beep Lib "kernel32" (ByVal Frequence As Long, ByVal Duree As Long) As Long
'==================
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'==================
Sub Test_Musique_Beep()
Dim i%, Note()

Note = Array("", 264, 297, 330, 352, 396, 440, 495, 528, _
                528, 495, 440, 396, 352, 330, 297, 264)
For i = 1 To 16
    Beep Note(i), 200
'   Sleep 200
Next i
End Sub
'==================

A+ Jean-Paul

 

[cathodique]

Salut Cathodique et à tous

Ce code fonctionne sous Windows7 en 32 et 64 bits
code à placer dans un module standard.

Option Explicit
Declare Function Beep Lib "kernel32" (ByVal Frequence As Long, ByVal Duree As Long) As Long
'==================
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'==================
Sub Test_Musique_Beep()
Dim i%, Note()

Note = Array("", 264, 297, 330, 352, 396, 440, 495, 528, _
                528, 495, 440, 396, 352, 330, 297, 264)
For i = 1 To 16
    Beep Note(i), 200
'   Sleep 200
Next i
End Sub
'==================

A+ Jean-Paul

Merci beaucoup Viard. Ce n'est pas exactement le même beep.
Je garde ton code pour essayer de me rapprocher de ce "bon vieux beep".
Encore merci.
Bonne journée.

 

[VIARD]

Bonjour Tatiak, Cathodique et à tous

En fait la petite séquence, je l'ai coupé en deux pour mon planning.
une séquence montante le matin et une descendante l'après-midi pour signaler un RDV.

J'ai testé ton fichier que je trouve sympa, mais pas de chance la séquence se déroule en une fraction de seconde sans une note.
je suis sur excel2007.

Cordialement Jean-Paul

 

[VIARD]

Salut Pierre et à tous

J'ai testé ton fichier, belle réalisation, ça fonctionne parfaitement.
j'ai modifié légèrement le petit code que j'avais placé au poste 5.
j'ai mis la séquence de l'heure de Big-Ben, le son et la tempo n'est pas terrible, avec le beep c'est limité.

Option Explicit
'==================
Declare Function Beep Lib "kernel32" (ByVal Frequence As Long, ByVal Duree As Long) As Long
'==================
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'==================
Sub Test_Musique_Beep()
Dim i%, Note()

'------ Note Big Ben (Heure) suivi du (FA#) pour les heures -------
'------ de ce fait la cloche à 2 marteaux -------
'--idem pour la séquence 3 le(DO) est frappé 2 fois de suite (2 marteaux ?)
'----------------FA#--LA--SOL#--DO- -FA#--SOL#--LA--FA#
Note = Array("", 370, 440, 415, 262, 370, 415, 440, 370, _
                440, 370, 415, 262, 262, 415, 440, 370)
For i = 1 To 16
    Beep Note(i), 350
    If i = 4 Or i = 8 Or i = 12 Then Sleep 400
Next i
End Sub
'==================

A+ Jean-Paul

 

[Staple1600]

Bonjour

Ce fil me rappelle celui que j'avais initié en 2008
(cela ne nous rajeunit pas )

https://www.excel-downloads.com/thr...rite-ne-pas-diffusez.94768/page-3#post-531608

Je vous conseille de tester la pj du message#36 fourni par mutzik
(merci encore à tous ceux qui participèrent à ce fil de 2008)

 

[Modeste geedee]

Bonsour®

Bonjour

Ce fil me rappelle celui que j'avais initié en 2008
(cela ne nous rajeunit pas )

https://www.excel-downloads.com/thr...rite-ne-pas-diffusez.94768/page-3#post-531608

Je vous conseille de tester la pj du message#36 fourni par mutzik
(merci encore à tous ceux qui participèrent à ce fil de 2008)

Sed fugit interea, fugit irreparabile tempus, singula dum capti circumvectamur amore

Musical Excel – Daily Dose of Excel

Musical Excel – Daily Dose of Excel

14 novembre 2002

Jouer un son dans Excel 2000

groups.google.com

(5eme message)