Sub Va_Savoir() Dim i As Integer, letexte As String Range("A1").Select For i = 0 To 720 Step 10 letexte = String(Abs(Cos(Application.Radians(3 * i)) * 20), " ") & "VA SAVOIR" Selection.Font.Size = 6 + Abs(Sin(Application.Radians(i)) * 70) Selection.Value = letexte Selection.Font.Color = RGB(220, 220, 220) Selection.Characters(Start:=Len(letexte) - 4, Length:=2).Font.ColorIndex = 3 + i Mod 16 Application.Wait (Now + TimeValue("0:00:01")) Next End Sub
Sub Va_Savoir()
Dim i As Integer, letexte As String
Range("A1").Select
For i = 0 To 720 Step 10
letexte = String(Abs(Cos(Application.Radians(3 * i)) * 20), " ") & "VA
SAVOIR"
Selection.Font.Size = 6 + Abs(Sin(Application.Radians(i)) * 70)
Selection.Value = letexte
Selection.Font.Color = RGB(220, 220, 220)
Selection.Characters(Start:=Len(letexte) - 4, Length:=2).Font.ColorIndex
= 3 + i Mod 16
Application.Wait (Now + TimeValue("0:00:01"))
Next
End Sub
Sub Va_Savoir() Dim i As Integer, letexte As String Range("A1").Select For i = 0 To 720 Step 10 letexte = String(Abs(Cos(Application.Radians(3 * i)) * 20), " ") & "VA SAVOIR" Selection.Font.Size = 6 + Abs(Sin(Application.Radians(i)) * 70) Selection.Value = letexte Selection.Font.Color = RGB(220, 220, 220) Selection.Characters(Start:=Len(letexte) - 4, Length:=2).Font.ColorIndex = 3 + i Mod 16 Application.Wait (Now + TimeValue("0:00:01")) Next End Sub
