[HS] à 4 plumes

LSteph

22/01/2005 à 15:16

Vrai Bon Anniversaire

'lSteph

"Philippe.R" a écrit dans le message de news:
e9f$

Péhemme

22/01/2005 à 15:49

Oh oui !...
Bon anniversaire Laurent !!
Mais suit-il toujours le forum ?
Michel

"Philippe.R" a écrit dans le message de news:
e9f$

Daniel.M

22/01/2005 à 16:28

XLLent anniversaire Laurent.

Daniel M.

"Philippe.R" wrote in message
news:e9f$

Patrick BASTARD

22/01/2005 à 16:51

Joyeux anniversaire, Laurent,

Et merci pour tes contributions passées (et futures ?).

Je souscris totalement à cette coutume locale du [HS] Bon anniversaire, qui
renforce la convivialité de ce forum que j'aime.
Voilà, c'est dit.

Bien cordialement,

Patrick.

Clément Marcotte

22/01/2005 à 17:20

Bon anniversaire

"Philippe.R" a écrit dans le message de
news:e9f$

Jacquouille

22/01/2005 à 17:33

Excellent anniversaire à toi, grand chef à 4 plumes et Maître Vénéré de ces
lieux. Mais il me semble que notre mètre à penser se fait bien
iscret. -))

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Philippe.R" a écrit dans le message de news:
e9f$

Herdet

22/01/2005 à 18:38

BON ANNIVERSAIRE LAURENT
Au plaisir de te voir (plus souvent que moi en ce moment) sur le forum et
peut être un jour aux rencontres du MPFE car depuis ta participation chez
Flottes en 2000 nous n'avons pas eu cet honneur.
..... et pour ne pas faillir à la tradition mais c'est plus pour les
nouveaux contributeurs du MPFE
Pour l'animation : un double clic dans la feuille du 1) et arrêt éventuel
par Echap
Amitiés
Robert Dezan
---------------------------------------------------------------------------
1) Copier dans le code d'une feuille:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Anniversaire_anime
End Sub

2) Dans le code du ThisWorkbook (facultatif)
Private Sub Workbook_Open()
Anniversaire_anime
End Sub

3) et dans le code d'un module :
Sub Anniversaire_anime()
Application.EnableCancelKey = xlErrorHandler
' anniversaire
Application.ScreenUpdating = False
z = 2
Range(Cells(z, 2), Cells(z + 1, 2)).Select
Selection.ClearContents
Selection.Font.Name = "Comic Sans MS"
Selection.Font.Size = 36
Selection.Font.Bold = True
Txt_codé_1 =
"66.79.78.32.69.84.32.74.79.89.69.85.88.32.65.78.78.73.86.69.82.83.65.73.82.69."
Txt_codé_2 = "76.65.85.82.69.78.84."
For n = 1 To Len(Txt_codé_1)
If Mid(Txt_codé_1, n, 1) = "." Then
Cells(z, 2).Value = Cells(z, 2).Value + Chr(Code)
Code = ""
Else
Code = Code + Mid(Txt_codé_1, n, 1)
End If
Next
For n = 1 To Len(Txt_codé_2)
If Mid(Txt_codé_2, n, 1) = "." Then
Cells(z + 1, 2).Value = Cells(z + 1, 2).Value + Chr(Code)
Code = ""
Else
Code = Code + Mid(Txt_codé_2, n, 1)
End If
Next
ActiveWindow.DisplayGridlines = False
Columns("B:B").EntireColumn.AutoFit
Range("B3").HorizontalAlignment = xlCenter
Range("A1").Select
Application.ScreenUpdating = True
For i = 1 To 10
For k = 1 To 2
Txt = Cells(z - 1 + k, 2).Value
For n = 1 To Len(Txt)
Cells(z - 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
End Sub

"Philippe.R" a écrit dans le message de news:
e9f$

BON ANNIVERSAIRE LAURENT
Au plaisir de te voir (plus souvent que moi en ce moment) sur le forum et
peut être un jour aux rencontres du MPFE car depuis ta participation chez
Flottes en 2000 nous n'avons pas eu cet honneur.
..... et pour ne pas faillir à la tradition mais c'est plus pour les
nouveaux contributeurs du MPFE
Pour l'animation : un double clic dans la feuille du 1) et arrêt éventuel
par Echap
Amitiés
Robert Dezan
---------------------------------------------------------------------------
1) Copier dans le code d'une feuille:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Anniversaire_anime
End Sub

2) Dans le code du ThisWorkbook (facultatif)
Private Sub Workbook_Open()
Anniversaire_anime
End Sub

3) et dans le code d'un module :
Sub Anniversaire_anime()
Application.EnableCancelKey = xlErrorHandler
' anniversaire
Application.ScreenUpdating = False
z = 2
Range(Cells(z, 2), Cells(z + 1, 2)).Select
Selection.ClearContents
Selection.Font.Name = "Comic Sans MS"
Selection.Font.Size = 36
Selection.Font.Bold = True
Txt_codé_1 =
"66.79.78.32.69.84.32.74.79.89.69.85.88.32.65.78.78.73.86.69.82.83.65.73.82.69."
Txt_codé_2 = "76.65.85.82.69.78.84."
For n = 1 To Len(Txt_codé_1)
If Mid(Txt_codé_1, n, 1) = "." Then
Cells(z, 2).Value = Cells(z, 2).Value + Chr(Code)
Code = ""
Else
Code = Code + Mid(Txt_codé_1, n, 1)
End If
Next
For n = 1 To Len(Txt_codé_2)
If Mid(Txt_codé_2, n, 1) = "." Then
Cells(z + 1, 2).Value = Cells(z + 1, 2).Value + Chr(Code)
Code = ""
Else
Code = Code + Mid(Txt_codé_2, n, 1)
End If
Next
ActiveWindow.DisplayGridlines = False
Columns("B:B").EntireColumn.AutoFit
Range("B3").HorizontalAlignment = xlCenter
Range("A1").Select
Application.ScreenUpdating = True
For i = 1 To 10
For k = 1 To 2
Txt = Cells(z - 1 + k, 2).Value
For n = 1 To Len(Txt)
Cells(z - 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
End Sub

"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
e9f$BoIAFHA.2676@TK2MSFTNGP12.phx.gbl...

Vous avez filtré cet utilisateur ! Consultez son message

BON ANNIVERSAIRE LAURENT
Au plaisir de te voir (plus souvent que moi en ce moment) sur le forum et
peut être un jour aux rencontres du MPFE car depuis ta participation chez
Flottes en 2000 nous n'avons pas eu cet honneur.
..... et pour ne pas faillir à la tradition mais c'est plus pour les
nouveaux contributeurs du MPFE
Pour l'animation : un double clic dans la feuille du 1) et arrêt éventuel
par Echap
Amitiés
Robert Dezan
---------------------------------------------------------------------------
1) Copier dans le code d'une feuille:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Anniversaire_anime
End Sub

2) Dans le code du ThisWorkbook (facultatif)
Private Sub Workbook_Open()
Anniversaire_anime
End Sub

3) et dans le code d'un module :
Sub Anniversaire_anime()
Application.EnableCancelKey = xlErrorHandler
' anniversaire
Application.ScreenUpdating = False
z = 2
Range(Cells(z, 2), Cells(z + 1, 2)).Select
Selection.ClearContents
Selection.Font.Name = "Comic Sans MS"
Selection.Font.Size = 36
Selection.Font.Bold = True
Txt_codé_1 =
"66.79.78.32.69.84.32.74.79.89.69.85.88.32.65.78.78.73.86.69.82.83.65.73.82.69."
Txt_codé_2 = "76.65.85.82.69.78.84."
For n = 1 To Len(Txt_codé_1)
If Mid(Txt_codé_1, n, 1) = "." Then
Cells(z, 2).Value = Cells(z, 2).Value + Chr(Code)
Code = ""
Else
Code = Code + Mid(Txt_codé_1, n, 1)
End If
Next
For n = 1 To Len(Txt_codé_2)
If Mid(Txt_codé_2, n, 1) = "." Then
Cells(z + 1, 2).Value = Cells(z + 1, 2).Value + Chr(Code)
Code = ""
Else
Code = Code + Mid(Txt_codé_2, n, 1)
End If
Next
ActiveWindow.DisplayGridlines = False
Columns("B:B").EntireColumn.AutoFit
Range("B3").HorizontalAlignment = xlCenter
Range("A1").Select
Application.ScreenUpdating = True
For i = 1 To 10
For k = 1 To 2
Txt = Cells(z - 1 + k, 2).Value
For n = 1 To Len(Txt)
Cells(z - 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
End Sub

"Philippe.R" a écrit dans le message de news:
e9f$

...patrick

22/01/2005 à 20:52

Je m y associe avec plaisir Laurent !!!

...Patrick

"Philippe.R" a écrit dans le message de
news:e9f$

FxM

22/01/2005 à 21:51

Merci à Bisounours de ne rappeler cette échéance délectable.

Bonzani à celui que l'on lit et voit trop peu.

@+
FxM

GD

22/01/2005 à 22:33

Bonsour®,
oui un excellent anniversaire à Filochard,
(Le) un des pères fondateurs de ce forum
le plus absent des compétents de forums !!!
@+
FxM wrote:

[HS] à 4 plumes

10 réponses

Veuillez sélectionner un problème