Voilà ce qui arrive quand on trace
toutes les diagonales d'un polygone
régulier à 30 côtés ;-)
Etonnant, non !
Option Explicit
Sub Mandala()
Dim i As Integer, j As Integer
Dim k As Integer, p As Double
Dim d As Double
Dim tableau(1 To 1740, 1 To 2) As Double
Dim ici As Range
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
Sheets.Add
Columns("A:B").Clear
p = WorksheetFunction.Pi
d = 2 * p / 30
For i = 1 To 30
For j = 2 To 30
k = k + 1
tableau(k, 1) = Cos(i * d)
tableau(k, 2) = Sin(i * d)
tableau(k + 1, 1) = Cos(j * d)
tableau(k + 1, 2) = Sin(j * d)
k = k + 1
Next j
Next i
Set ici = Range(Cells(1, 1), Cells(k, 2))
ici.Value = tableau
Charts.Add
With ActiveChart
.ChartType = xlXYScatterLinesNoMarkers
.SetSourceData Source:=ici, PlotBy:=xlColumns
.Location Where:=xlLocationAsNewSheet
.HasLegend = False
.PlotArea.ClearFormats
With .Axes(xlValue)
.MinimumScale = -1
.MaximumScale = 1
.MajorGridlines.Delete
.Delete
End With
.Axes(xlCategory).Delete
.SeriesCollection(1).Border.ColorIndex = 1
End With
ActiveChart.Deselect
ActiveWindow.Zoom = 100
'garnote, mars 2005.
End Sub
Bonjoir(c) garnote jolie... mais c'est pas en couleur ? :-( ;-)) JièL en rose
GD
Bonsour® LSteph, ;o))) je te recommanderai celui-ci pour lequel je suis a l'origine de l'animation et des couleurs http://j-walk.com/ss/excel/files/AnimatedHypoclycloids.exe ce en quoi JW lui même me remercia dans la préface de bouquin : http://j-walk.com/ss/books/bookxl22.htm dans cette même préface on y notera également une citation à notre matheux québecois...
@+
wrote:
Bonsoir GD,
Merci pour la couleur et bravo pour le psyché! Manque plus qu'une ou deux boucles > :-)
Bonjoir(c) garnote jolie... mais c'est pas en couleur ? :-( ;-)) JièL en rose
Bonsour® LSteph,
;o)))
je te recommanderai celui-ci pour lequel je suis a l'origine de l'animation
et des couleurs
http://j-walk.com/ss/excel/files/AnimatedHypoclycloids.exe
ce en quoi JW lui même me remercia dans la préface de bouquin :
http://j-walk.com/ss/books/bookxl22.htm
dans cette même préface on y notera également une citation à notre matheux
québecois...
@+
wrote:
Bonsoir GD,
Merci pour la couleur et bravo pour le psyché!
Manque plus qu'une ou deux boucles > :-)
'lSteph
"GD" <nomail@nomail.net> a écrit dans le message de news:
%23hlyWo8MFHA.3356@TK2MSFTNGP12.phx.gbl...
Bonsour® LSteph, ;o))) je te recommanderai celui-ci pour lequel je suis a l'origine de l'animation et des couleurs http://j-walk.com/ss/excel/files/AnimatedHypoclycloids.exe ce en quoi JW lui même me remercia dans la préface de bouquin : http://j-walk.com/ss/books/bookxl22.htm dans cette même préface on y notera également une citation à notre matheux québecois...
@+
wrote:
Bonsoir GD,
Merci pour la couleur et bravo pour le psyché! Manque plus qu'une ou deux boucles > :-)
... et y'a pas du son ? ;-)))))))))))))))))))))) MDR tout extraire dans le même répertoire :
http://cjoint.com/?dDayPwEe82
la couleur, le son... et puis quoi encore ???? pourquoi pas les clés d'une Ferrari ;o)))
LSteph
Alors là ! C'est vraiment gentil j'y vais de suite. merci beaucoup
lSteph
"GD" a écrit dans le message de news: uz8CKC%
Bonsour® LSteph, ;o))) je te recommanderai celui-ci pour lequel je suis a l'origine de l'animation et des couleurs http://j-walk.com/ss/excel/files/AnimatedHypoclycloids.exe ce en quoi JW lui même me remercia dans la préface de bouquin : http://j-walk.com/ss/books/bookxl22.htm dans cette même préface on y notera également une citation à notre matheux québecois...
@+
wrote:
Bonsoir GD,
Merci pour la couleur et bravo pour le psyché! Manque plus qu'une ou deux boucles > :-)
Bonjoir(c) garnote jolie... mais c'est pas en couleur ? :-( ;-)) JièL en rose
Alors là ! C'est vraiment gentil
j'y vais de suite.
merci beaucoup
lSteph
"GD" <nomail@nomail.net> a écrit dans le message de news:
uz8CKC%23MFHA.3228@TK2MSFTNGP12.phx.gbl...
Bonsour® LSteph,
;o)))
je te recommanderai celui-ci pour lequel je suis a l'origine de
l'animation
et des couleurs
http://j-walk.com/ss/excel/files/AnimatedHypoclycloids.exe
ce en quoi JW lui même me remercia dans la préface de bouquin :
http://j-walk.com/ss/books/bookxl22.htm
dans cette même préface on y notera également une citation à notre matheux
québecois...
@+
wrote:
Bonsoir GD,
Merci pour la couleur et bravo pour le psyché!
Manque plus qu'une ou deux boucles > :-)
'lSteph
"GD" <nomail@nomail.net> a écrit dans le message de news:
%23hlyWo8MFHA.3356@TK2MSFTNGP12.phx.gbl...
Alors là ! C'est vraiment gentil j'y vais de suite. merci beaucoup
lSteph
"GD" a écrit dans le message de news: uz8CKC%
Bonsour® LSteph, ;o))) je te recommanderai celui-ci pour lequel je suis a l'origine de l'animation et des couleurs http://j-walk.com/ss/excel/files/AnimatedHypoclycloids.exe ce en quoi JW lui même me remercia dans la préface de bouquin : http://j-walk.com/ss/books/bookxl22.htm dans cette même préface on y notera également une citation à notre matheux québecois...
@+
wrote:
Bonsoir GD,
Merci pour la couleur et bravo pour le psyché! Manque plus qu'une ou deux boucles > :-)
