V
VB@D
Guest
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 ;-)
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 ;-)