Clavier musicale

[VB@D]

Bonjour,

Je suis récement tomber sur une macro plutot marrante de emg qui fesait un peu de musique avec des bip interne.
c'était:

Option Explicit

Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long

Sub BeepBeep()
Beep 392, 200
Beep 494, 100
Beep 588, 200
Beep 740, 100
Beep 880, 400
Beep 740, 100
Beep 880, 900
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") <> "" Then
Call BeepBeep
MsgBox "Attention valeur atteinte"
End If
End Sub

Je me demendait s il était possible d'affecter un de c'est beep à une touche afin de creer un petit clavier (voir piece jointe)
En gros je souhaite creer un do,do#,ré,ré#,mi,fa...
J ai préparer mon clavier mais je n arrive pas a l'accorder.
J aimerais aussi que l on m'explique cette ligne:
Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long

Merci de votre aide

VB@D

Ps: C juste pour m'amuser et épater les copains ;-)

 

[VB@D]

Bonjour,

Voila j ai trouvé un meilleur réglage

@+

VB@D