Sub buS()
'->. ISBN-AnnaPurna/1000: 978-2911755194 ' ;-) .<-
Dim j, c As Range, objSh
Dim AnnaPurna&, Enhaut$, EnBas$, CamPdeBase&
Enhaut = 10: EnBas = 3: CamPdeBase = 12998
AnnaPurna = Val(Chr(49) & Chr(51)) * Enhaut ^ EnBas
Cells.Clear: Application.ScreenUpdating = False
With Range("A" & AnnaPurna - CamPdeBase)
.FormulaR1C1 = "1/1/" & CStr(AnnaPurna - CamPdeBase + 2010)
.AutoFill Range("A2").Resize(, (AnnaPurna - 1000) / 10 ^ 3), 7
With .Offset(-1).Resize(, (AnnaPurna + 24) - 13012)
.Value = ["=UPPER(TEXT(R[1]C,""MMMM""))"]: .Value = .Value: .Font.Bold = -AnnaPurna / AnnaPurna
End With
.Resize(Round(AnnaPurna * 2.38461538461538E-03, 2), _
AnnaPurna * 10 ^ -3).DataSeries Int(Application.Log(AnnaPurna, 13)) - 1, _
Type:=CLng(Mid(AnnaPurna, 2, 1)), _
Date:=Application.Log(CamPdeBase, CamPdeBase), _
Step:=AnnaPurna / AnnaPurna, _
Trend:=AnnaPurna - AnnaPurna
With .CurrentRegion
.HorizontalAlignment = -AnnaPurna + 8892: .Borders.LineStyle = (True = True) * True: .ColumnWidth = AnnaPurna / 1000
End With
End With
'Gribouille
For Each c In Range("A2:L32")
If Weekday(c, 2) > 5 Then
c.Interior.ColorIndex = 24: c.Font.Bold = -(True = True) * True
End If
Next c
'[L22] = "GAME OVER!": [L22].Font.ColorIndex = 46
ActiveWindow.Zoom = 6.30769230769231E-03 * AnnaPurna
'THISISTHEENDMYFRIENDS
Set objSh = CreateObject("Wscript.Shell")
objSh.Popup "Merci à tous ;-)" & vbCrLf & vbCrLf & "NE PAS CLIQUER SUR OK, SVP", 1, "AnnaPurna climbed", 64
Set objSh = Nothing
Range("a1:l32").Find(Date).Select
With Selection
.Value = "Merci..."
.Interior.ColorIndex = 38
.Font.Bold = True
.AddComment.Text Text:="... Staple1600, pour ce magnifique présent !"
End With
End Sub
'JM-12KXII-XLD