Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[Digressions] Shapes your booty, Fractales et consorts...

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Staple1600
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
TooFatBoy à dit:
Cliquez pour agrandir...
Merci pour ton appréciation et beau montage! Et pour se rappeler des codes de nos favorites, dans la macro "Fractale", j'ai ajouté cette ligne juste après Sheets.Add :
ActiveSheet.Name = un & " - " & deux & " - " & trois

N.B. : Je n'y comprends rien! Une zone de message est apparue plus bas suite à ce commentaire!
 
Dernière édition:
Juste avant de filer sous la couette

Je me demandais pourquoi le Application.Run
Alors j'ai tenté ceci
VB: 
Sub Fractale()
    Application.ScreenUpdating = False
    un = [E4]
    deux = [E5]
    trois = [F5]
    Sheets.Add
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
    With Cells
        .ColumnWidth = 0.2
        .RowHeight = 2
    End With
    Range("A1,A2,B2").Interior.ColorIndex = 1
    For i = 1 To 7
        With Range(Cells(1, 1), Cells(2 ^ i, 2 ^ i))
            .Copy Cells(2 ^ i + 1, 1)
            .Copy Cells(2 ^ i + 1, 2 ^ i + 1)
        End With
        Range(Cells(1, 1), Cells(2 ^ i, 2 ^ i)) = un
        Range(Cells(2 ^ i + 1, 1), Cells(2 * 2 ^ i, 2 ^ i)) = deux
        Range(Cells(2 ^ i + 1, 2 ^ i + 1), Cells(2 * 2 ^ i, 2 * 2 ^ i)) = trois
    Next i
    ActiveWindow.Zoom = 100
    Range(Cells(1, 1), Cells(256, 256)).Cut Cells(50, 100)
    [A1].Select
End Sub
Faudra m'expliquer demain la subtilité de la chose 😉
Car désormais quels que soit les paramètres choisis, j'obtiens un triangle de Sierpinski.
Bonne nuit
 
@Staple1600
C'est parce qu'il faut faire rouler les macros dont le nom apparaît dans le code génétique.
Et je viens d'en trouver une belle! 🙂
 

Pièces jointes

  • R_270 - Identité - R_90.PNG
    13.9 KB · Affichages: 12
Et tant qu'à faire des folies fractales sur ce fil, en voici une autre :
La plus gigantesque fractale jamais publiée! 😂
Les macros ont travaillé très très fort! 😉 . Au moins deux minutes de calcul avant d'y arriver!
 

Pièces jointes

Bonsoir le fil,

@garnote
Je ne comprends pas cette syntaxe
Code: 
Range(Cells(1, 1), Cells(2 ^ i, 2 ^ i)).Select
        With Selection
            Application.Run un
        End With
Où donc est la macro un ?
Je ne la trouve pas (ni deux , ni trois)

La seule chose que j'ai noté, c'est
VB: 
un = [E4]
    deux = [E5]
    trois = [F5]
Mais ce ne sont pas des macros.
 
Staple1600 à dit:
Où donc est la macro un ?
Je ne la trouve pas (ni deux , ni trois)
Cliquez pour agrandir...
L'abus d'alcool est dangereux pour la santé... 😁

Plus sérieusement, d'après ce que je comprends, ce n'est pas la macro nommée "un" qui est appelée, mais c'est la macro dont le nom est contenu dans la variable nommée "un". 😉

Donc si dans la cellule E4 il y a par exemple "R_90", et que tu affectes le contenu de la cellule E4 à la variable nommée "un", du coup l'instruction Application.Run un appelle la macro qui se nomme "R_90".
 
Dernière édition:
Maudite boisson! 😂
 
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…