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-

mardi 7 avril 1970

Bombes_MeF

Bombes (P)03/2010 MyLzz59: le Code Générateur de l'Interface
(ne sert qu'en préliminaire, pour bâtir la feuille)

Sub MeF_Jeu_Bombes()
'On Error Resume Next
Application.DisplayAlerts = False
While Sheets.Count > 1: Sheets(Sheets.Count).Delete: Wend
Sheets(1).Activate: Sheets(1).Name = "Bombes"
With Cells
    .ColumnWidth = 0: .RowHeight = 0
    '.EntireColumn.Hidden = True: .EntireRow.Hidden = True
End With
With Range("A1:AO34")
    .ColumnWidth = 2.14: .RowHeight = 14.25
    '.EntireRow.Hidden = False: .EntireColumn.Hidden = False
    .Font.Name = "Comic Sans MS": .Font.Size = 9
    .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter
    .Interior.Pattern = xlSolid: .Interior.ColorIndex = 15
End With
Application.Goto Reference:="R1C1:R34C41"
Rows("31:31").RowHeight = 3: Rows("33:33").RowHeight = 3
With Rows("31:33")
    .Font.Bold = True: .Interior.Pattern = xlSolid: .Interior.Color = 8388736
End With
Rows("34:34").RowHeight = 0.75: Columns("AO:AO").ColumnWidth = 0.08
With ActiveWindow
    .SplitRow = 33: .SplitColumn = 40: .FreezePanes = True
End With
LS = xlContinuous: WE = xlMedium: T = 1
With Range("B32:J32")
    .Merge: .Font.Color = 65535
    .Interior.Pattern = xlSolid: .Interior.Color = 16751052
    .Select: GoSub SSLine
End With
With Range("L32:Q32")
    .Merge: .Font.Color = 65535: .Value = "Bombes à trouver:"
    .Interior.Pattern = xlSolid: .Interior.Color = 8421631
    .HorizontalAlignment = xlRight: .Select: GoSub SSLine
End With
With Range("V32:AA32")
    .Merge: .Font.Color = 65535: .Value = "Cases couvertes:"
    .Interior.Pattern = xlSolid: .Interior.Color = 8421631
    .HorizontalAlignment = xlRight: .Select: GoSub SSLine
End With
T = 0
With Range("R32:T32")
    .Merge: .Font.Color = 32768
    .Interior.Pattern = xlSolid: .Interior.Color = 16763904
    .Select: GoSub SSLine
End With
With Range("AB32:AD32")
    .Merge: .Font.Color = 32768
    .Interior.Pattern = xlSolid: .Interior.Color = 16763904
    .Select: GoSub SSLine
End With
LS = xlDouble: WE = xlThick: T = 1
With Range("AF32:AM32")
    .Merge: .Font.Color = 128: .Font.Bold = True: .Value = "Recommencer (Dbl-Click)"
    .Interior.Pattern = xlSolid: .Interior.Color = 8421631
    .Select: GoSub SSLine
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select
Exit Sub
SSLine:
    With Selection
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With
    With Selection.Borders(xlEdgeLeft)
If T Then .LineStyle = LS: .Color = -10092442: .Weight = WE Else .LineStyle = xlNone
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = LS: .Color = -10092442: .Weight = WE
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = LS: .Color = -10092442: .Weight = WE
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = LS: .Color = -10092442: .Weight = WE
        'If T Then .LineStyle = xlNone Else .LineStyle = LS: .Color = -10092442: .Weight = WE
    End With
Return
End Sub
-MyLzz59-

0 Commentaire(s):