Bon zani Philippe, et bon spam après le cadeau du GeeDee :-)
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
Le 18/02/2005 01:00, :
Bon anniversaire Philippe ! !! http://www.doofus.org/audio/havcigar.mid
;o))) @+
Herdet
Bonjour Philippe, Heureux anniversaire Philippe avec un petit cadeau ci-dessous. Amicale poignée de mains et grosse bises à Maria Robert Dezan
------------------- A copier dans un module ------------------------------------------ Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub Anniversaire_anime() ' heureux anniversaire à Philippe de la part de Robert DEZAN Application.EnableCancelKey = xlErrorHandler
Application.ScreenUpdating = False With Cells .Font.ColorIndex = 0 .Interior.ColorIndex = 44 End With [A1].Select With [B2:B4] .ClearContents .HorizontalAlignment = xlCenter .Font.Name = "Comic Sans MS" .Font.Size = 48 .Font.Bold = True .Font.ColorIndex = 5 End With Txt1 = "BON ET JOYEUX" Txt2 = "ANNIVERSAIRE" Txt3 = "PHILIPPE" DoEvents Application.ScreenUpdating = True For n = 1 To Len(Txt1) [B2] = [B2] + Mid(Txt1, n, 1) [B2].Font.ColorIndex = 2 + Int(8 * Rnd) + 1 Sleep (200) Next [B2].Font.ColorIndex = 5 For n = 1 To Len(Txt2) [B3] = [B3] + Mid(Txt2, n, 1) [B3].Font.ColorIndex = 2 + Int(8 * Rnd) + 1 Sleep (200) Next [B3].Font.ColorIndex = 3 For n = 1 To Len(Txt3) [B4] = [B4] + Mid(Txt3, n, 1) [B4].Font.ColorIndex = 2 + Int(8 * Rnd) + 1 Sleep (200) Next [B4].Font.ColorIndex = 10 ActiveWindow.DisplayGridlines = False Columns("B:B").EntireColumn.AutoFit For i = 1 To 10 For k = 1 To 3 Txt = Cells(1 + k, 2).Value For n = 1 To Len(Txt) Cells(1 + k, 2).Characters(n, 1).Font.ColorIndex = 2 + Int(8 * Rnd) + 1 Next n Next k DoEvents newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 1 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime Next i MsgBox "On recommence ? Double-clic sur feuille" End Sub
"GD" a écrit dans le message de news: uhi$
Bon anniversaire Philippe ! !! http://www.doofus.org/audio/havcigar.mid
;o))) @+
Bonjour Philippe,
Heureux anniversaire Philippe avec un petit cadeau ci-dessous.
Amicale poignée de mains et grosse bises à Maria
Robert Dezan
------------------- A copier dans un
module ------------------------------------------
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Anniversaire_anime()
' heureux anniversaire à Philippe de la part de Robert DEZAN
Application.EnableCancelKey = xlErrorHandler
Application.ScreenUpdating = False
With Cells
.Font.ColorIndex = 0
.Interior.ColorIndex = 44
End With
[A1].Select
With [B2:B4]
.ClearContents
.HorizontalAlignment = xlCenter
.Font.Name = "Comic Sans MS"
.Font.Size = 48
.Font.Bold = True
.Font.ColorIndex = 5
End With
Txt1 = "BON ET JOYEUX"
Txt2 = "ANNIVERSAIRE"
Txt3 = "PHILIPPE"
DoEvents
Application.ScreenUpdating = True
For n = 1 To Len(Txt1)
[B2] = [B2] + Mid(Txt1, n, 1)
[B2].Font.ColorIndex = 2 + Int(8 * Rnd) + 1
Sleep (200)
Next
[B2].Font.ColorIndex = 5
For n = 1 To Len(Txt2)
[B3] = [B3] + Mid(Txt2, n, 1)
[B3].Font.ColorIndex = 2 + Int(8 * Rnd) + 1
Sleep (200)
Next
[B3].Font.ColorIndex = 3
For n = 1 To Len(Txt3)
[B4] = [B4] + Mid(Txt3, n, 1)
[B4].Font.ColorIndex = 2 + Int(8 * Rnd) + 1
Sleep (200)
Next
[B4].Font.ColorIndex = 10
ActiveWindow.DisplayGridlines = False
Columns("B:B").EntireColumn.AutoFit
For i = 1 To 10
For k = 1 To 3
Txt = Cells(1 + k, 2).Value
For n = 1 To Len(Txt)
Cells(1 + k, 2).Characters(n, 1).Font.ColorIndex = 2 + Int(8
* Rnd) + 1
Next n
Next k
DoEvents
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Next i
MsgBox "On recommence ? Double-clic sur feuille"
End Sub
"GD" <nomail@nomail.net> a écrit dans le message de news:
uhi$rzUFFHA.2176@TK2MSFTNGP15.phx.gbl...
Bon anniversaire Philippe ! ptulliez@be.tf
!!
http://www.doofus.org/audio/havcigar.mid
Bonjour Philippe, Heureux anniversaire Philippe avec un petit cadeau ci-dessous. Amicale poignée de mains et grosse bises à Maria Robert Dezan
------------------- A copier dans un module ------------------------------------------ Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub Anniversaire_anime() ' heureux anniversaire à Philippe de la part de Robert DEZAN Application.EnableCancelKey = xlErrorHandler
Application.ScreenUpdating = False With Cells .Font.ColorIndex = 0 .Interior.ColorIndex = 44 End With [A1].Select With [B2:B4] .ClearContents .HorizontalAlignment = xlCenter .Font.Name = "Comic Sans MS" .Font.Size = 48 .Font.Bold = True .Font.ColorIndex = 5 End With Txt1 = "BON ET JOYEUX" Txt2 = "ANNIVERSAIRE" Txt3 = "PHILIPPE" DoEvents Application.ScreenUpdating = True For n = 1 To Len(Txt1) [B2] = [B2] + Mid(Txt1, n, 1) [B2].Font.ColorIndex = 2 + Int(8 * Rnd) + 1 Sleep (200) Next [B2].Font.ColorIndex = 5 For n = 1 To Len(Txt2) [B3] = [B3] + Mid(Txt2, n, 1) [B3].Font.ColorIndex = 2 + Int(8 * Rnd) + 1 Sleep (200) Next [B3].Font.ColorIndex = 3 For n = 1 To Len(Txt3) [B4] = [B4] + Mid(Txt3, n, 1) [B4].Font.ColorIndex = 2 + Int(8 * Rnd) + 1 Sleep (200) Next [B4].Font.ColorIndex = 10 ActiveWindow.DisplayGridlines = False Columns("B:B").EntireColumn.AutoFit For i = 1 To 10 For k = 1 To 3 Txt = Cells(1 + k, 2).Value For n = 1 To Len(Txt) Cells(1 + k, 2).Characters(n, 1).Font.ColorIndex = 2 + Int(8 * Rnd) + 1 Next n Next k DoEvents newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 1 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime Next i MsgBox "On recommence ? Double-clic sur feuille" End Sub
"GD" a écrit dans le message de news: uhi$
Bon anniversaire Philippe ! !! http://www.doofus.org/audio/havcigar.mid
;o))) @+
MichDenis
Bonjour Ru-th,
Si j'avais au moins cette excuse
;-)
Salutations!
"ru-th" a écrit dans le message de news: OoT9G$ toi, t'étais hier soir avec AV ! ;-))
bon aniv à phillipe et bisou à maria ! a+ rural thierry "MichDenis" a écrit dans le message de news: #
bon ... je me reprends ;-))
Bon anniversaire Philippe,
Salutations!
"GD" a écrit dans le message de news: uhi$
Bon anniversaire Philippe ! !! http://www.doofus.org/audio/havcigar.mid
;o))) @+
Bonjour Ru-th,
Si j'avais au moins cette excuse
;-)
Salutations!
"ru-th" <ailleurs@nowhere.fr> a écrit dans le message de news: OoT9G$aFFHA.3840@tk2msftngp13.phx.gbl...
toi, t'étais hier soir avec AV ! ;-))
bon aniv à phillipe et bisou à maria !
a+
rural thierry
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
#7bVmvaFFHA.2832@TK2MSFTNGP14.phx.gbl...
bon ... je me reprends ;-))
Bon anniversaire Philippe,
Salutations!
"GD" <nomail@nomail.net> a écrit dans le message de news:
uhi$rzUFFHA.2176@TK2MSFTNGP15.phx.gbl...
Bon anniversaire Philippe ! ptulliez@be.tf
!!
http://www.doofus.org/audio/havcigar.mid
Bon anniversaire Philippe ! !! http://www.doofus.org/audio/havcigar.mid
;o))) @+
Starwing
Je trinque à ta santé, je file Hip!
Hum! Pardon, Joyeux anniversaire Philippe! -- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange Starwing
--
Je trinque à ta santé, je file Hip!
Hum! Pardon, Joyeux anniversaire Philippe!
--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing
brault-lavoieNOSPAM@sympatico.ca
--
Bon anniversaire Philippe ! !! http://www.doofus.org/audio/havcigar.mid
;o))) @+
GD
Oupss toutes mes excuses Philippe!!! va falloir que je me couche plus tôt comme dit Ru-Th , à nos âges la chirogourdie touche de plus en plus les membres supérieurs ... ;o))) @+
Misange wrote:
Bon zani Philippe, et bon spam après le cadeau du GeeDee :-)
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
Le 18/02/2005 01:00, :
Bon anniversaire Philippe ! !! http://www.doofus.org/audio/havcigar.mid
;o))) @+
Oupss toutes mes excuses Philippe!!!
va falloir que je me couche plus tôt
comme dit Ru-Th , à nos âges la chirogourdie touche de plus en plus les
membres supérieurs ...
;o)))
@+
Misange wrote:
Bon zani Philippe, et bon spam après le cadeau du GeeDee :-)
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
Le 18/02/2005 01:00, :
Bon anniversaire Philippe ! ptulliez@be.tf
!!
http://www.doofus.org/audio/havcigar.mid
Oupss toutes mes excuses Philippe!!! va falloir que je me couche plus tôt comme dit Ru-Th , à nos âges la chirogourdie touche de plus en plus les membres supérieurs ... ;o))) @+
Misange wrote:
Bon zani Philippe, et bon spam après le cadeau du GeeDee :-)
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
Le 18/02/2005 01:00, :
Bon anniversaire Philippe ! !! http://www.doofus.org/audio/havcigar.mid
;o))) @+
Michel Pierron
Ouais; comme dit JPS, les raideurs se déplacent ! MP
"GD" a écrit dans le message de news:
Oupss toutes mes excuses Philippe!!! va falloir que je me couche plus tôt comme dit Ru-Th , à nos âges la chirogourdie touche de plus en plus les membres supérieurs ... ;o))) @+
Misange wrote:
Bon zani Philippe, et bon spam après le cadeau du GeeDee :-)
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
Le 18/02/2005 01:00, :
Bon anniversaire Philippe ! !! http://www.doofus.org/audio/havcigar.mid
;o))) @+
Ouais; comme dit JPS, les raideurs se déplacent !
MP
"GD" <nomail@nomail.net> a écrit dans le message de
news:eYtc1wcFFHA.3972@TK2MSFTNGP15.phx.gbl...
Oupss toutes mes excuses Philippe!!!
va falloir que je me couche plus tôt
comme dit Ru-Th , à nos âges la chirogourdie touche de plus en plus les
membres supérieurs ...
;o)))
@+
Misange wrote:
Bon zani Philippe, et bon spam après le cadeau du GeeDee :-)
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
Le 18/02/2005 01:00, :
Bon anniversaire Philippe ! ptulliez@be.tf
!!
http://www.doofus.org/audio/havcigar.mid
Ouais; comme dit JPS, les raideurs se déplacent ! MP
"GD" a écrit dans le message de news:
Oupss toutes mes excuses Philippe!!! va falloir que je me couche plus tôt comme dit Ru-Th , à nos âges la chirogourdie touche de plus en plus les membres supérieurs ... ;o))) @+
Misange wrote:
Bon zani Philippe, et bon spam après le cadeau du GeeDee :-)
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
Le 18/02/2005 01:00, :
Bon anniversaire Philippe ! !! http://www.doofus.org/audio/havcigar.mid
;o))) @+
FxM
Et ben dis donc, il en a fallu du temps pour que tu sortes du bois et remontres le bout de ton clavier !
Bon z'ani au grilleur de cigares, Amitiés à Maria et plein de bonnes choses à tou(te)s en attendant de se revoir.
@+ FxM
cé ki? ben, notre fumeur de cigares, pardi... mais néanmoins un saint homme car, comme dit laureng de marseille, il est avé maria, cong... joyeux zani, philippe et bises à la famille...et à bientôt à liéch... jps
"GD" a écrit dans le message de news:uhi$
Bon anniversaire Philippe ! !! http://www.doofus.org/audio/havcigar.mid
;o))) @+
Et ben dis donc, il en a fallu du temps pour que tu sortes du bois et
remontres le bout de ton clavier !
Bon z'ani au grilleur de cigares, Amitiés à Maria et plein de bonnes
choses à tou(te)s en attendant de se revoir.
@+
FxM
cé ki? ben, notre fumeur de cigares, pardi...
mais néanmoins un saint homme car, comme dit laureng de marseille, il est
avé maria, cong...
joyeux zani, philippe et bises à la famille...et à bientôt à liéch...
jps
"GD" <nomail@nomail.net> a écrit dans le message de
news:uhi$rzUFFHA.2176@TK2MSFTNGP15.phx.gbl...
Bon anniversaire Philippe ! ptulliez@be.tf
!!
http://www.doofus.org/audio/havcigar.mid
Et ben dis donc, il en a fallu du temps pour que tu sortes du bois et remontres le bout de ton clavier !
Bon z'ani au grilleur de cigares, Amitiés à Maria et plein de bonnes choses à tou(te)s en attendant de se revoir.
@+ FxM
cé ki? ben, notre fumeur de cigares, pardi... mais néanmoins un saint homme car, comme dit laureng de marseille, il est avé maria, cong... joyeux zani, philippe et bises à la famille...et à bientôt à liéch... jps
"GD" a écrit dans le message de news:uhi$
Bon anniversaire Philippe ! !! http://www.doofus.org/audio/havcigar.mid