Commentaire avec forme automatique

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Commentaires_Types()
 Application.DisplayCommentIndicator = xlCommentAndIndicator
 Sheets.Add
 Range("A2").AddComment
For N = 1 To 100
'Range("A2").Comment.Shape.Select True
 Range("A2").Comment.Shape.AutoShapeType = N
 Range("A2").Comment.Shape.Visible = msoCTrue
 Range("A2").Comment.Shape.Fill.ForeColor.RGB = RGB(20, 255, 255)
 Range("A2").Comment.Shape.TextFrame.Characters.Caption = N
 Range("A2").Comment.Shape.TextFrame.Characters.Font.Size = 12
 Range("A2").Comment.Shape.TextFrame.Characters.Font.ColorInd ex = 12
 Range("A2").Comment.Shape.TextFrame.Characters.Font.Color = RGB(255, 0, 0)
 Sleep 100
Next N
 Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

t = Timer: While Timer < t + 0.5: DoEvents: Wend

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Commentaires_Types()
Dim N As MsoAutoShapeType
Range("A2").Comment.Text Text:=""
For N = 1 To 100
DoEvents
Range("A2").Comment.Shape.AutoShapeType = N
Range("A2").Comment.Text Text:=""
Sleep 100
Next N
End Sub

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Commentaires_TypesIII()
Dim N As MsoAutoShapeType, x&, y&, z&
Randomize 1245897
For N = 1 To 100
DoEvents
Range("A2").Comment.Shape.AutoShapeType = N
x = Int(Rnd * 255): y = Int(Rnd * 255): z = Int(Rnd * 255)
With Range("A2").Comment.Shape
    .Fill.ForeColor.RGB = RGB(x, y, z)
    .TextFrame.Characters.Caption = ""
    .Line.ForeColor.RGB = RGB(z, x, y)
    .Line.BackColor.RGB = RGB(y, z, x)
End With
Sleep 100
Next N
End Sub

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

Sub zizik()
Dim a, i&
'•Do : 264 Hz
'•Ré : 297 Hz
'•Mi : 330 Hz
'•Fa : 352 Hz
'•Sol : 396 Hz
'•La : 440 Hz (Le LA du diapason)
'•Si : 495 Hz
'•Do4 : 528 Hz

'Au clair de la lune
a = Array(264, 264, 264, 297, 330, 297, 264, 330, 297, 297, 264)
For i = 0 To 10
beep_api a(i), IIf(i = 4 Or i = 5 Or i = 10, 1000, 400)
Next

End Sub

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function BeepAPI Lib "kernel32.dll" Alias "Beep" _
    (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Sub zik2()
'merci à l'auteur: [COLOR=#000000]ichinose (enfin je crois que c'est son nom)[/COLOR]
    Dim a, b
    Dim g0 As Long
    a = Array(400, 449, 504, "s", 400, 449, 504, "s", 599.3, 504, 449, 400, 449, 504, 449)
    b = Array(500, 500, 500, 300, 500, 500, 500, 300, 500, 500, 500, 500, 500, 500, 700)
    For g0 = LBound(a) To UBound(a)
        If a(g0) = "s" Then
           Sleep b(g0)
        Else
           BeepAPI a(g0), b(g0)
        End If
    Next
 End Sub