[HS 2004]

Jacky

01/01/2004 à 10:26

Il est des nôôôÔÔÔÔôôôÔÔÔÔôôôtrrres,..........Hip
A la tienne!

Bonne Année Alain et à tous les ÔÔôôÔÔôôtres
JJ

"AV" a écrit dans le message de news:
#

A la notre !
A la votre !
A la notre !
A la votre !
A la notre !
A la votre !
A la notre !
A la votre !
A la notre !
A la votre !
A la notre !
A la votre !
A la notre !
A la votre !
A la notre !
A la votre !
A la notre !
A la votre !
A la notre !
A la votre !
A la notre !
A la votre !
A la notre !
A la votre !
A la notre !
A la votre !
A la notre !
A la votre !
A la notre !
A la votre !
A la notre !
A la votre !
A la notre !
A la votre !
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
A la mienne !

AV

Herdet

01/01/2004 à 11:12

Bonjour à vous tous MPFEiennes et MPFEiens de 2004,
Le pompon revient cette année à Monique qui nous à envoyé ses bons voeux le
1er janvier 2004 à 00 h 00.
Je vous souhaite à tous une très bonne et heureuse année 2004.
J'en profite pour nous souhaiter aussi pleins d'Heureux Classeurs et de
Codes VBA 2004 (qui ne plantent pas !) sans oublier les fameux HS et bien
sûr d'autres mémorables rencontres du MPFE.
Je vous mets à contribution pour vous souhaiter personnellement mes voeux
avec le petit code VBA ci-dessous.
Bisoux aux filles et poignées de mains aux gars.
Robert Dezan
------------------------------------------------------------------------
==> Dans un nouveau classeur :
'-------- Code à copier dans le module ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.StatusBar = "Prêt"
End Sub

Private Sub Workbook_Open()
Application.StatusBar = "Faire un double clic dans la feuille pour
démarrer l'application"
MsgBox "Un double-clic et je demarre au quart de tour"
End Sub

'-------- Code à copier dans le module de la feuille
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Lancer_Bonne_annee
Application.StatusBar = "Prêt"
MsgBox "Un double-clic et je demarre au quart de tour"
End Sub

Sub Lancer_Bonne_annee()
Application.EnableCancelKey = xlErrorHandler
ActiveWindow.DisplayGridlines = False
' anniversaire
Application.ScreenUpdating = False
Columns("A").HorizontalAlignment = xlCenter
Columns("A").ClearContents
z = 2
Cells.Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Txt_codé_1 = "77698332776973767669858283328679698588"
Txt_codé_2 = "8079858232763965787869693250484852"
Txt_codé_3 = "827966698284"
For n = 1 To Len(Txt_codé_1) Step 2
Code = Mid(Txt_codé_1, n, 2)
Cells(z, 1).Value = Cells(z, 1).Value + Chr(Code)
Next
For n = 1 To Len(Txt_codé_2) Step 2
Code = Mid(Txt_codé_2, n, 2)
Cells(z + 1, 1).Value = Cells(z + 1, 1).Value + Chr(Code)
Next
For n = 1 To Len(Txt_codé_3) Step 2
Code = Mid(Txt_codé_3, n, 2)
Cells(z + 2, 1).Value = Cells(z + 2, 1).Value + Chr(Code)
Next
With Range(Cells(z, 1), Cells(z + 2, 1))
.Font.Name = "Comic Sans MS"
.Font.Size = 48
.Font.Bold = True
End With

Columns("A:A").EntireColumn.AutoFit
Range("A1").Select
Application.ScreenUpdating = True
m = 10
For i = 1 To m
Application.StatusBar = Str(m + 1 - i)
For k = 1 To 3
Txt = Cells(z - 1 + k, 1).Value
For n = 1 To Len(Txt)
Cells(z - 1 + k, 1).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
' ------ ensuite un petit double-clic dans la feuille et çà demarre.
' ------ on peut aussi enregistrer le classeur
----------------------------------------------------------------------------
------------

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour à vous tous MPFEiennes et MPFEiens de 2004,
Le pompon revient cette année à Monique qui nous à envoyé ses bons voeux le
1er janvier 2004 à 00 h 00.
Je vous souhaite à tous une très bonne et heureuse année 2004.
J'en profite pour nous souhaiter aussi pleins d'Heureux Classeurs et de
Codes VBA 2004 (qui ne plantent pas !) sans oublier les fameux HS et bien
sûr d'autres mémorables rencontres du MPFE.
Je vous mets à contribution pour vous souhaiter personnellement mes voeux
avec le petit code VBA ci-dessous.
Bisoux aux filles et poignées de mains aux gars.
Robert Dezan
------------------------------------------------------------------------
==> Dans un nouveau classeur :
'-------- Code à copier dans le module ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.StatusBar = "Prêt"
End Sub

Private Sub Workbook_Open()
Application.StatusBar = "Faire un double clic dans la feuille pour
démarrer l'application"
MsgBox "Un double-clic et je demarre au quart de tour"
End Sub

'-------- Code à copier dans le module de la feuille
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Lancer_Bonne_annee
Application.StatusBar = "Prêt"
MsgBox "Un double-clic et je demarre au quart de tour"
End Sub

Sub Lancer_Bonne_annee()
Application.EnableCancelKey = xlErrorHandler
ActiveWindow.DisplayGridlines = False
' anniversaire
Application.ScreenUpdating = False
Columns("A").HorizontalAlignment = xlCenter
Columns("A").ClearContents
z = 2
Cells.Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Txt_codé_1 = "77698332776973767669858283328679698588"
Txt_codé_2 = "8079858232763965787869693250484852"
Txt_codé_3 = "827966698284"
For n = 1 To Len(Txt_codé_1) Step 2
Code = Mid(Txt_codé_1, n, 2)
Cells(z, 1).Value = Cells(z, 1).Value + Chr(Code)
Next
For n = 1 To Len(Txt_codé_2) Step 2
Code = Mid(Txt_codé_2, n, 2)
Cells(z + 1, 1).Value = Cells(z + 1, 1).Value + Chr(Code)
Next
For n = 1 To Len(Txt_codé_3) Step 2
Code = Mid(Txt_codé_3, n, 2)
Cells(z + 2, 1).Value = Cells(z + 2, 1).Value + Chr(Code)
Next
With Range(Cells(z, 1), Cells(z + 2, 1))
.Font.Name = "Comic Sans MS"
.Font.Size = 48
.Font.Bold = True
End With

Columns("A:A").EntireColumn.AutoFit
Range("A1").Select
Application.ScreenUpdating = True
m = 10
For i = 1 To m
Application.StatusBar = Str(m + 1 - i)
For k = 1 To 3
Txt = Cells(z - 1 + k, 1).Value
For n = 1 To Len(Txt)
Cells(z - 1 + k, 1).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
' ------ ensuite un petit double-clic dans la feuille et çà demarre.
' ------ on peut aussi enregistrer le classeur
----------------------------------------------------------------------------
------------

DanC

01/01/2004 à 15:25

Merci pour le voeux et les bises!
et à tous, vos meilleurs souhaits, même les plus secrets!

Danielle

"Herdet" a écrit dans le message de
news:eUUtm%

Bonjour à vous tous MPFEiennes et MPFEiens de 2004,
Le pompon revient cette année à Monique qui nous à envoyé ses bons voeux
le

1er janvier 2004 à 00 h 00.
Je vous souhaite à tous une très bonne et heureuse année 2004.
J'en profite pour nous souhaiter aussi pleins d'Heureux Classeurs et de
Codes VBA 2004 (qui ne plantent pas !) sans oublier les fameux HS et bien
sûr d'autres mémorables rencontres du MPFE.
Je vous mets à contribution pour vous souhaiter personnellement mes voeux
avec le petit code VBA ci-dessous.
Bisoux aux filles et poignées de mains aux gars.
Robert Dezan
------------------------------------------------------------------------
==> Dans un nouveau classeur :
'-------- Code à copier dans le module ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.StatusBar = "Prêt"
End Sub

Private Sub Workbook_Open()
Application.StatusBar = "Faire un double clic dans la feuille pour
démarrer l'application"
MsgBox "Un double-clic et je demarre au quart de tour"
End Sub

'-------- Code à copier dans le module de la feuille
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Lancer_Bonne_annee
Application.StatusBar = "Prêt"
MsgBox "Un double-clic et je demarre au quart de tour"
End Sub

Sub Lancer_Bonne_annee()
Application.EnableCancelKey = xlErrorHandler
ActiveWindow.DisplayGridlines = False
' anniversaire
Application.ScreenUpdating = False
Columns("A").HorizontalAlignment = xlCenter
Columns("A").ClearContents
z = 2
Cells.Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Txt_codé_1 = "77698332776973767669858283328679698588"
Txt_codé_2 = "8079858232763965787869693250484852"
Txt_codé_3 = "827966698284"
For n = 1 To Len(Txt_codé_1) Step 2
Code = Mid(Txt_codé_1, n, 2)
Cells(z, 1).Value = Cells(z, 1).Value + Chr(Code)
Next
For n = 1 To Len(Txt_codé_2) Step 2
Code = Mid(Txt_codé_2, n, 2)
Cells(z + 1, 1).Value = Cells(z + 1, 1).Value + Chr(Code)
Next
For n = 1 To Len(Txt_codé_3) Step 2
Code = Mid(Txt_codé_3, n, 2)
Cells(z + 2, 1).Value = Cells(z + 2, 1).Value + Chr(Code)
Next
With Range(Cells(z, 1), Cells(z + 2, 1))
.Font.Name = "Comic Sans MS"
.Font.Size = 48
.Font.Bold = True
End With

Columns("A:A").EntireColumn.AutoFit
Range("A1").Select
Application.ScreenUpdating = True
m = 10
For i = 1 To m
Application.StatusBar = Str(m + 1 - i)
For k = 1 To 3
Txt = Cells(z - 1 + k, 1).Value
For n = 1 To Len(Txt)
Cells(z - 1 + k, 1).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
' ------ ensuite un petit double-clic dans la feuille et çà demarre.
' ------ on peut aussi enregistrer le classeur
--------------------------------------------------------------------------
--

------------

Merci pour le voeux et les bises!
et à tous, vos meilleurs souhaits, même les plus secrets!

Danielle

"Herdet" <rdezan@noos.fr> a écrit dans le message de
news:eUUtm%23E0DHA.2308@TK2MSFTNGP11.phx.gbl...

Bonjour à vous tous MPFEiennes et MPFEiens de 2004,
Le pompon revient cette année à Monique qui nous à envoyé ses bons voeux
le

1er janvier 2004 à 00 h 00.
Je vous souhaite à tous une très bonne et heureuse année 2004.
J'en profite pour nous souhaiter aussi pleins d'Heureux Classeurs et de
Codes VBA 2004 (qui ne plantent pas !) sans oublier les fameux HS et bien
sûr d'autres mémorables rencontres du MPFE.
Je vous mets à contribution pour vous souhaiter personnellement mes voeux
avec le petit code VBA ci-dessous.
Bisoux aux filles et poignées de mains aux gars.
Robert Dezan
------------------------------------------------------------------------
==> Dans un nouveau classeur :
'-------- Code à copier dans le module ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.StatusBar = "Prêt"
End Sub

Private Sub Workbook_Open()
Application.StatusBar = "Faire un double clic dans la feuille pour
démarrer l'application"
MsgBox "Un double-clic et je demarre au quart de tour"
End Sub

'-------- Code à copier dans le module de la feuille
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Lancer_Bonne_annee
Application.StatusBar = "Prêt"
MsgBox "Un double-clic et je demarre au quart de tour"
End Sub

Sub Lancer_Bonne_annee()
Application.EnableCancelKey = xlErrorHandler
ActiveWindow.DisplayGridlines = False
' anniversaire
Application.ScreenUpdating = False
Columns("A").HorizontalAlignment = xlCenter
Columns("A").ClearContents
z = 2
Cells.Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Txt_codé_1 = "77698332776973767669858283328679698588"
Txt_codé_2 = "8079858232763965787869693250484852"
Txt_codé_3 = "827966698284"
For n = 1 To Len(Txt_codé_1) Step 2
Code = Mid(Txt_codé_1, n, 2)
Cells(z, 1).Value = Cells(z, 1).Value + Chr(Code)
Next
For n = 1 To Len(Txt_codé_2) Step 2
Code = Mid(Txt_codé_2, n, 2)
Cells(z + 1, 1).Value = Cells(z + 1, 1).Value + Chr(Code)
Next
For n = 1 To Len(Txt_codé_3) Step 2
Code = Mid(Txt_codé_3, n, 2)
Cells(z + 2, 1).Value = Cells(z + 2, 1).Value + Chr(Code)
Next
With Range(Cells(z, 1), Cells(z + 2, 1))
.Font.Name = "Comic Sans MS"
.Font.Size = 48
.Font.Bold = True
End With

Columns("A:A").EntireColumn.AutoFit
Range("A1").Select
Application.ScreenUpdating = True
m = 10
For i = 1 To m
Application.StatusBar = Str(m + 1 - i)
For k = 1 To 3
Txt = Cells(z - 1 + k, 1).Value
For n = 1 To Len(Txt)
Cells(z - 1 + k, 1).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
' ------ ensuite un petit double-clic dans la feuille et çà demarre.
' ------ on peut aussi enregistrer le classeur
--------------------------------------------------------------------------
--

------------

Vous avez filtré cet utilisateur ! Consultez son message

Merci pour le voeux et les bises!
et à tous, vos meilleurs souhaits, même les plus secrets!

Danielle

"Herdet" a écrit dans le message de
news:eUUtm%

Bonjour à vous tous MPFEiennes et MPFEiens de 2004,
Le pompon revient cette année à Monique qui nous à envoyé ses bons voeux
le

1er janvier 2004 à 00 h 00.
Je vous souhaite à tous une très bonne et heureuse année 2004.
J'en profite pour nous souhaiter aussi pleins d'Heureux Classeurs et de
Codes VBA 2004 (qui ne plantent pas !) sans oublier les fameux HS et bien
sûr d'autres mémorables rencontres du MPFE.
Je vous mets à contribution pour vous souhaiter personnellement mes voeux
avec le petit code VBA ci-dessous.
Bisoux aux filles et poignées de mains aux gars.
Robert Dezan
------------------------------------------------------------------------
==> Dans un nouveau classeur :
'-------- Code à copier dans le module ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.StatusBar = "Prêt"
End Sub

Private Sub Workbook_Open()
Application.StatusBar = "Faire un double clic dans la feuille pour
démarrer l'application"
MsgBox "Un double-clic et je demarre au quart de tour"
End Sub

'-------- Code à copier dans le module de la feuille
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Lancer_Bonne_annee
Application.StatusBar = "Prêt"
MsgBox "Un double-clic et je demarre au quart de tour"
End Sub

Sub Lancer_Bonne_annee()
Application.EnableCancelKey = xlErrorHandler
ActiveWindow.DisplayGridlines = False
' anniversaire
Application.ScreenUpdating = False
Columns("A").HorizontalAlignment = xlCenter
Columns("A").ClearContents
z = 2
Cells.Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Txt_codé_1 = "77698332776973767669858283328679698588"
Txt_codé_2 = "8079858232763965787869693250484852"
Txt_codé_3 = "827966698284"
For n = 1 To Len(Txt_codé_1) Step 2
Code = Mid(Txt_codé_1, n, 2)
Cells(z, 1).Value = Cells(z, 1).Value + Chr(Code)
Next
For n = 1 To Len(Txt_codé_2) Step 2
Code = Mid(Txt_codé_2, n, 2)
Cells(z + 1, 1).Value = Cells(z + 1, 1).Value + Chr(Code)
Next
For n = 1 To Len(Txt_codé_3) Step 2
Code = Mid(Txt_codé_3, n, 2)
Cells(z + 2, 1).Value = Cells(z + 2, 1).Value + Chr(Code)
Next
With Range(Cells(z, 1), Cells(z + 2, 1))
.Font.Name = "Comic Sans MS"
.Font.Size = 48
.Font.Bold = True
End With

Columns("A:A").EntireColumn.AutoFit
Range("A1").Select
Application.ScreenUpdating = True
m = 10
For i = 1 To m
Application.StatusBar = Str(m + 1 - i)
For k = 1 To 3
Txt = Cells(z - 1 + k, 1).Value
For n = 1 To Len(Txt)
Cells(z - 1 + k, 1).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
' ------ ensuite un petit double-clic dans la feuille et çà demarre.
' ------ on peut aussi enregistrer le classeur
--------------------------------------------------------------------------
--

------------

[HS 2004]

3 réponses

Veuillez sélectionner un problème