2015-03-01
- correction cosmétique
   du modèle du Blog
  ° diaporama occupant
     tout l'écran
  ° message défilant
     démarrant du bord
     droit sous Chrome

Trognon le chaton

En lumière..

Des articles Lesbiens: Camellia Rose ,
Lipsticks [:* Fanny] , Lisa
et des Histoires signées MyLzz59: Mylène écrit (http://mylene-ecrit.blogspot.fr)

Des articles Trans-*: Ma Vie En Rose ,
Wawa's Smile , FtM ? , Thomas Beatie 2

Des Coups de Coeur: EXL ,
Kashimashi ~Girl meets Girl~ ,
Sa Majesté Freddie , Mon Côté Midinette
des Coups de Gueule: Karol relève-toi ,
BlondeBox , 1 pub 2 mR2 [bon courage :D]
et des Coups de Blues: Pile 1 an ,
Baisser de Rideau , Interlude

Du Visual Basic (VB6-VBA): Mlle Hanoï
Boules , Bombes , AnaClock , DigiClock ,
Tris (tetris) ,
et de la Bricologie: Real Barbie Girl

Pis pour les plus grand(e)s, des
S*X TOYS:
DildoBike , Tech To Nique

Et même parfois de la vraie vie:
Impressions de Voyage (Maroc) ,
Chez Mickey , La Tonnelle ,
Nous Nous Sommes Rencontrées

.

La vraie Taunie ..


... Tu me manques :'(


Notre Taz :*




Clock & Zik..

Idée Cadeau..


Attrape-Mouches

dyke goudou gouine homo homoaffectivité homoaffectivity homosexual homosexualité homosexuality homosexuel homosexuelle inverti invertie lesbian lesbianism lesbianisme lesbien lesbienne lez néovagin neovagina réassignation saphique saphisme sapphic sapphism trans transgender transgenre transidentité transidentity transsexalité transsexality transsexual transsexualism transsexualisme transsexuel transsexuelle tribade tribadisme vaginoplastie ...

Le combat continue..

MyLzz59..

.. @gmail.com

Blog français

Ca va encore mieux en le disant.. Important
## Comment "marche" ce Blog / Comment laisser un Commentaire ##

Et pour finir,
Mylène écrit (http://mylene-ecrit.blogspot.fr)N'oubliez pas de visiter aussi
mon blog d'histoires ====>



-MyLzz59-

vendredi 16 mai 2008

DrawFlag

Collez ça dans "ThisWorkBook",
dans un nouveau Classeur Excel 2000&+..
(doit contenir au minimum un onglet "Feuil1")

' =============================
' DrawFlag (P)05/2008 -MyLzz59-
' =============================

Sub DrawFlag()
' Déclarations
Const CVT = 0.174532925194444 ' PI/18
Const Flag = "0000FF0099FF00FFFF669933FFCC00FF99CC3" ' Rainbow
' Init Feuille

With Feuil1.Range("A:IV")
.RowHeight = 7.5: .ColumnWidth = 0.83: .Interior.ColorIndex = -1
End With

' Dessin
With Feuil1
For X = 0 To 73
Z = -Int(5 * Sin(X * CVT))
' Sinusoïde
C& = IIf(X > 0 And X < 73, _
Val("&h0" + Mid$(Flag, 1 + 6 * ((X - 1) \ 12), 6) + "&"), 0)
' Flag Color
For Y = 8 To 48 - 25 * (X = 0)
.Cells(Y + Z, 2 + X).Interior.Color = IIf(Y > 8 And Y < 48, C&, 0)
Next Y
Next X
End With
End Sub


Cadeau !!
-MyLzz59-

2 Commentaire(s):

Stéphane a dit…
:-)
vu!
......je commence à avoir de droles de trucs sur mon pc au boulot!!!
Mylène (MyLzz59) a dit…
Re-, Stéphane !

Hé, si on m'avait dit que le premier à se refaire une déco d'Excel plus "gaie" serait un hétéro ;-D Merci de l'avoir testé, en tout cas.

Re-Biz,
-MyLzz59-