Staple1600
XLDnaute Barbatruc
Bonsoir
Toujours dans un registre ludique (edit : voir en bas du message: fichier joint; pour un autre moment de franche rigolade avec notre ami Excel)
(avec un clin d'oeil aux gens "binaires")
Copiez la macro ci-dessous dans un module
Exécuter là, et apprécier.
Bonne fin de soirée.
J-M
Edit: un petit jeu (ou plutôt une question) qui peut agacer (mais qui a une solution)
Pourquoi le classeur ci-joint a-t-il comme qui dirait un léger problème?
Les pointures d'Excel auront vite fait de trouver.
Les autres pourront utiliser ce classeur comme alibi
(pour prolonger une pause au travail par exemple
)
Toujours dans un registre ludique (edit : voir en bas du message: fichier joint; pour un autre moment de franche rigolade avec notre ami Excel)
(avec un clin d'oeil aux gens "binaires")
Copiez la macro ci-dessous dans un module
Sub Cela_M_A_Amusé____DESOLE()
For x = 0 To 5
x1 = x1 & Chr(x * (x * (x * (x * (-0.75 * x + 7.2917) _
- 22.5) + 16.708) + 28.25) + 72)
Next x
For x = 0 To 6
x2 = x2 & Chr(x * (x * (x * (x * (x * (0.425 * x - 6.8667) _
+ 40.833) - 109.58) + 122.24) - 23.05) + 87)
Next x
MsgBox x1 & x2, vbInformation, "Ne pas compliquer, ou pour le plaisir ;-)"
'
'de:Bob Umlas.
'(Auteur original inconnu).
End Sub
Exécuter là, et apprécier.
Bonne fin de soirée.
J-M
Edit: un petit jeu (ou plutôt une question) qui peut agacer (mais qui a une solution)
Pourquoi le classeur ci-joint a-t-il comme qui dirait un léger problème?
Les pointures d'Excel auront vite fait de trouver.
Les autres pourront utiliser ce classeur comme alibi
(pour prolonger une pause au travail par exemple
Dernière édition: