En effet, comme le temps passe vite! Me semble que c'est de moi cette affaire-là , mais me souviens pas comment j'y suis arrivé! 20 ans sans Excel, ça m'a fait perdre certains "pouvoirs".Moi j'ai retrouvé ceci dans mes archives
Regarde la pièce jointe 1149944
Ça vous rappelle quelque chose, non ?
PS: Excel me dit : Date de création du fichier: 06/03/1998(le temps file )
Petit Quizz
Combien valait Excel en francs en 1998 ?
Staple¸ en mode fractal à dit:Ça vous rappelle quelque chose, non ?
Sub TRI_SIER_OneAgain()
Application.ScreenUpdating = False
Dim r As Range, x&, y&: Set r = Range("A1:IV256")
r.ColumnWidth = 0.35: r.RowHeight = 3.5: r.Interior.Color = vbWhite
For x = 1 To 256
For y = 1 To 256
If (x And y) = 0 Then Cells(x, y).Interior.Color = vbBlue
Next
Next
ActiveWindow.Zoom = 87
Application.ScreenUpdating = True
End Sub
C'est bien de vous si vous êtes Serge G.
C'est bien pour cela que j'écrivais
La route est belle! Et à mon tour, une autre pour ta route!
En vue de construire de nombreuses fractales....
Sub Dessiner_Julia()
Application.ScreenUpdating = False
Cells.Interior.Color = vbWhite
Calculs
Mise_En_Forme
End Sub
Sub Calculs()
[B1] = 0.0002: [D3] = 0.2: [C4] = 0.3
Range("E3:HK3").FormulaR1C1 = "=RC[-1]+R1C2"
Range("C5:C140").FormulaR1C1 = "=R[-1]C-R1C2"
Range("D4:HK140").Formula2R1C1 = "=JULIA(R3C,RC3)"
Range("C5").CurrentRegion = Range("C5").CurrentRegion.Value
End Sub
Sub Mise_En_Forme()
Dim Julia As Range
Set Julia = Range("D4:HK140")
Julia.ColumnWidth = 0.35: Julia.RowHeight = 3.5
Julia.FormatConditions.AddColorScale ColorScaleType:=3
Julia.FormatConditions(Julia.FormatConditions.Count).SetFirstPriority
Julia.FormatConditions(1).ColorScaleCriteria(1).Type = xlConditionValueLowestValue
Julia.FormatConditions(1).ColorScaleCriteria(1).FormatColor.Color = vbRed
Julia.FormatConditions(1).ColorScaleCriteria(2).Type = xlConditionValuePercentile
Julia.FormatConditions(1).ColorScaleCriteria(2).Value = 50
Julia.FormatConditions(1).ColorScaleCriteria(2).FormatColor.Color = vbYellow
Julia.FormatConditions(1).ColorScaleCriteria(3).Type = xlConditionValueHighestValue
Julia.FormatConditions(1).ColorScaleCriteria(3).FormatColor.Color = vbGreen
ActiveWindow.Zoom = 50
End Sub
Function Julia(x, y) As Integer
Dim Modulo, z_reel, z_imag, z_carre_reel, z_carre_imag As Double
Dim n As Integer
n = 0
Modulo = 0
z_reel = x
z_imag = y
Do While (n < 200 And Modulo < 2)
z_carre_reel = z_reel ^ 2 - z_imag ^ 2
z_carre_imag = 2 * z_reel * z_imag
z_reel = z_carre_reel - 0.7927
z_imag = z_carre_imag + 0.1609
Modulo = Sqr(z_reel ^ 2 + z_imag ^ 2)
n = n + 1
Loop
Julia = n
End Function
Sub Mise_En_Forme()
Dim Julia As Range, i%, t, c
Set Julia = Range("D4:HK140")
t = Array(1, 5, 2): c = Array(vbRed, vbYellow, vbGreen)
Julia.ColumnWidth = 0.35: Julia.RowHeight = 3.5
Julia.FormatConditions.AddColorScale ColorScaleType:=3
Julia.FormatConditions(Julia.FormatConditions.Count).SetFirstPriority
For i = 1 To 3
Julia.FormatConditions(1).ColorScaleCriteria(i).Type = t(i)
If i = 2 Then Julia.FormatConditions(1).ColorScaleCriteria(i).Value = 50
Julia.FormatConditions(1).ColorScaleCriteria(i).FormatColor.Color = c(i)
Next
ActiveWindow.Zoom = 50
End Sub
@Staple1600Bonjour garnote, le fil
@garnote
On peut voir ces macros à grossesses multiples
(512 !)
Ou il est encore trop tôt ?
Merci et bon ciné! Et dans la macro "Fractale", j'ai ajouté cette ligne juste après Sheets.Add :Impressionnant !
Regarde la pièce jointe 1150699
Je vais au cinoche puis je retourne m'amuser avec ton fichier.
Bonne soirée.