[HS] FXM

Oups, désolé pour le message en blanc c'est parti tout seul !
Je voulais dire :
Merci Laurent !
--
@ tantôt !
email : http://www.cerbermail.com/?05npeGunAn
Site : http://www.dj9b.fr.st



Dans le fameux MPFE Sitting Hoax (BM) a écrit il y a peu :

A tes ordres chef ! ;-)))
lancez cette macro, échap pour l'arrêter
(n'oubliez pas les hauts parleurs et éventuellement les boules Qui
est ce)

'******************
Private Declare Function MidiOutClose Lib "winmm.dll" _
Alias "midiOutClose" (ByVal hMidiOut As Long) As Long
'-------------------------------
Private Declare Function MidiOutOpen Lib "winmm.dll" _
Alias "midiOutOpen" (lphMidiOut As _
Long, ByVal uDeviceID As _
Long, ByVal dwCallback As _
Long, ByVal dwInstance As _
Long, ByVal dwFlags As Long) As Long
'-------------------------------
Private Declare Function MidiOutShortMsg Lib "winmm.dll" _
Alias "midiOutShortMsg" (ByVal hMidiOut As _
Long, ByVal dwMsg As Long) As Long
'...........................................................
Declare Sub Sleep Lib "Kernel32" _
(ByVal dwMilliseconds As Long)

Sub joyeux_anniv_FxM()
On Error GoTo fin
x = InputBox("entrez un nombre de 1 à 100", _
" joyeux anniversaire ", "57")
If x > 100 Then
x = 100
End If
For u = x To x + 20
notees = 50505250555450# & _
50525057555050# & _
62595554526060# & _
59555755
numéro = 0
For i = 1 To Len(notees) Step 2
y = Mid(notees, i, 2)
numéro = numéro + 1
numéros_temps = 437669437669648# & _
6696436679#
x = Mid(numéros_temps, numéro, 1) * 100
Application.EnableCancelKey = xlErrorHandler
On Error GoTo fin
MidiOutClose hMidiOut
MidiOutOpen hMidiOut, 0, 0, 0, 0
MidiOutShortMsg hMidiOut, RGB(192, u + 10, 127)
lanote = 12 + CInt(y)
note = RGB(144, lanote, 127)
MidiOutShortMsg hMidiOut, note
Sleep (x)
MidiOutClose hMidiOut
Next
Next
fin:
MidiOutClose hMidiOut
End
End Sub
'**************
Amicalement
Sitting Hoax


"DJ9B" <antiSpam!!dj9b@free.fr> a écrit dans le message de
news:eP7uhj5oDHA.1728@TK2MSFTNGP09.phx.gbl...

Salut Laurent !
Je suis étonné que tu n'ais pas associé à tes voeux un petit morceau
de musique de ta composition :o( ...
Allez allez musique Maestro ;o) ...
--
@ tantôt !
email : http://www.cerbermail.com/?05npeGunAn
Site : http://www.dj9b.fr.st



Dans le fameux MPFE Sitting Hoax (BM) a écrit il y a peu :

salut FxM,
bon anniversaire! :-))
Amicalement
Sitting Haox
"ru-th" <ailleurs@nowhere.fr> a écrit dans le message de
news:OI$q6S4oDHA.2304@TK2MSFTNGP11.phx.gbl...

Bon anniversaire François-Xavier
Chaleureuse poignée de main virile !

a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Misange" <misange@devinezou.net> a écrit dans le message de news:
#xPSZ#3oDHA.3024@tk2msftngp13.phx.gbl...

Bon anniversaire François Xavier !
des becs virtuels en attendant les vrais en décembre :-)
--
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Joyeux anniversaire François Xavier.

En retard, mais quand même. :-)

Daniel M.

Bon anniversaire FX, trèèèèès en retard mais..
A bientôt

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

Bon anniversaire François Xavier !
des becs virtuels en attendant les vrais en décembre :-)
--
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

:-)))))))))))
merci ! popi,
j'vais la prendre à la santé de françois xavier, en lui souhaitant
joyeux zani avec bisou en retard,

isabelle

Et une de plus disais-tu ?

J'espère qu'il a été bon ;-)
popi