Commentaire avec forme automatique

Declare Function beep_api Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Sub Quand_allons_nous_nous_marier()
Dim do1, ré, mi, fa, sol, la, si, do2, a, b, i&
do1 = 264 'Hz
ré = 297
mi = 330
fa = 352
sol = 396
la = 440 'Le LA du diapason
si = 495
do2 = 528

a = Array(do1, fa, fa, fa, la, do2, la, fa, sol, sol, do2, do2, la, _
la, fa, fa, do1, fa, fa, fa, la, do2, la, fa, fa, sol, sol, fa, mi, fa)
b = Array(7, 15, 23, 29)
For i = 0 To 29
beep_api a(i), IIf(IsError(Application.Match(i, b, 0)), 400, 800)
Next

End Sub

Option Explicit
Const do1 = 264
Const ré = 297
Const mi = 330
Const fa = 352
Const sol = 396
Const la = 440
Const si = 495
Const do2 = 528
Dim a, b
Declare Function beep_api Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Sub Au_clair_de_la_lune()
a = Array(do1, do1, do1, ré, mi, ré, do1, mi, ré, ré, do1)
b = Array(4, 5, 10)
Jouer a, b
End Sub

Sub Quand_allons_nous_nous_marier()
a = Array(do1, fa, fa, fa, la, do2, la, fa, sol, sol, do2, do2, la, _
la, fa, fa, do1, fa, fa, fa, la, do2, la, fa, fa, sol, sol, fa, mi, fa)
b = Array(7, 15, 23, 29)
Jouer a, b
End Sub

Sub Jouer(a, b)
Dim i&
For i = 0 To UBound(a)
beep_api a(i), IIf(IsError(Application.Match(i, b, 0)), 400, 800)
Next
End Sub