Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel [HS] FXM

[HS] FXM

24 réponses
Avatar
Misange
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Sitting Hoax \(BM\)
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!! a écrit dans le message de
news:
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" a écrit dans le message de
news:OI$
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" a écrit dans le message de news:
#xPSZ#
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










Avatar
Papyty
Salut @ Tous, Sitting Hoax (BM) a écrit:
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



Vraiment super Sitting (Laurent)la chansonnette ;-))
et bon anniversaire à FxM :-()
--
@+
Thierry

Avatar
garnote
Bon, joyeux et mirifique anniversaire François-Xavier !

Serge


"Misange" a écrit dans le message de news:
#xPSZ#
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




Avatar
e.lecrenier
Bonsoir François-Xavier
Je salue en toi l'homme au grand coeur et c'est de tout coeur que je te
souhaite un joyeux zanni....

--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net

"Misange" a écrit dans le message de
news:%23xPSZ%
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



Avatar
Bon anniversaire François Xavier !

Ta carte de voeux est ici !
http://ecarte.linternaute.com/asp/ecarte/ecarte_visu.asp?f_id_cartepostalex3919&f_cleR79504657



Misange wrote:
|| 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
Avatar
Philippe.R
Bon anniversaire à toi FxM !
Et longue vie ici et ailleurs...
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Misange" a écrit dans le message de
news:%23xPSZ%
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



Avatar
FxM
Bonsoir à toutes et tous,

Grand MERCI pour ces musique, carte et voeux qui me vont droit au
coeur. J'aurai plaisir à vous voir/revoir le mois prochain.

Becs aux Dames et poignée de main virile aux 'mâles' ;o)

@+
François-Xavier



Misange a écrit:
Bon anniversaire François Xavier !
des becs virtuels en attendant les vrais en décembre :-)


Avatar
JièL Goubert
soyeux ane y verse aire FxM

(et merci à Miss Ange pour la balise, au moins celui la je l'ai pas
raté, désolé pour les autres)

--
JièL Ane y versateur
Avatar
Clément Marcotte
Joyeux anniversaire

"Misange" a écrit dans le message de
news:%23xPSZ%
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



Avatar
DJ9B
--
@ 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!! a écrit dans le message de
news:
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" a écrit dans le message de
news:OI$
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" a écrit dans le message de news:
#xPSZ#
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










1 2 3