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 :
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 SubWhat do you mean ?N.B. : Je n'y comprends rien! Une zone de message est apparue plus bas suite à ce commentaire!
OK, ça va, no problemo!What do you mean ?
Range(Cells(1, 1), Cells(2 ^ i, 2 ^ i)).Select
With Selection
Application.Run un
End Withun = [E4]
deux = [E5]
trois = [F5]L'abus d'alcool est dangereux pour la santé...Où donc est la macro un ?
Je ne la trouve pas (ni deux , ni trois)
Vu d'ici ce n'est pas vraiment évident...Bonsoir @garnote
Cette explication est limpide.
J'ai tout compris
Et je n'ai pas encore bu ma bière
Je verrais bien un nouveau "dicton" dans ta signature : On ne dit pas "vos", on dit "leurs"...j'ai mis des graines de chanvre dans mon frichti du soir
Si ! J'y avions même répondu. Z'avions point vu ???Z'avions point vu ?
Maudite boisson!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".