Une idiotie pour embêter sa/son secrétaire

Staple1600

XLDnaute Barbatruc

• 22 Décembre 2007

• #1

Bonsoir à tous



Voici un classeur qui peut déstabiliser et faire mal aux yeux.
A utiliser uniquement après la période des fêtes de Noel.
Bonne fête à tous.

EDITION: pour éviter les désagréments, pj supprimée.

PS: ce post m'a été inspiré par celui-ci:
https://www.excel-downloads.com/threads/retourner-texte-dans-une-zone-par-macro.87138/

 

Dernière édition: 11 Septembre 2016

skoobi

XLDnaute Barbatruc

• 22 Décembre 2007

• #2

Re : Une idiotie pour embêter sa/son secrétaire

Re Staple1600,

en utilisant le miroir de sa trousse de maquillage, elle devrait s'en sortir

Suis pas très sympa là.....
Je taquine

Bonnes fêtes à toi.

 

jeanpierre

Nous a quitté

Repose en paix

• 23 Décembre 2007

• #3

Re : Une idiotie pour embêter sa/son secrétaire

Bonsoir,

Ce que je regrette, c'est que le nom de l'auteur a été remplacé par un pseudo... un peu dommage....

 

Staple1600

XLDnaute Barbatruc

• 23 Décembre 2007

• #4

Re : Une idiotie pour embêter sa/son secrétaire

Bonjour à tous


Toujours dans le même esprit

Code:

Private Sub Workbook_Open()
'Auteur: Bruno
'désolé mais c'est la seule identité indiquée
Application.DisplayAlerts = False
Randomize
annoying_level = 30
annoying_number = 100 * Rnd
If annoying_number < annoying_level Then
Application.Quit
End If
End Sub

Et une dernière tracasserie

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Auteur: Lewiy
'a mettre dans le code d'une feuille
Dim i As Integer
Application.WindowState = xlNormal
Application.Width = Int(Rnd() * 1000) - 100
i = Int(Rnd() * 4 + 1)
Select Case i
    Case 1: Windows.Arrange xlCascade
    Case 2: Windows.Arrange xlArrangeStyleTiled
    Case 3: Windows.Arrange xlArrangeStyleHorizontal
    Case 4: Windows.Arrange xlArrangeStyleVertical
End Select
End Sub

 

Dernière édition: 23 Décembre 2007

JNP

XLDnaute Barbatruc

• 28 Décembre 2007

• #5

Re : Une idiotie pour embêter sa/son secrétaire

Bonjour Stapple, Jeanpierre et Skoobi ,
Excellent... j'ai rien vu
Bon je suis en 2007, ça explique tout !
Fait gaffe que ta blonde de secrétaire (préférée...) n'y sois pas aussi, sinon, elle risque de comprendre... en 2009
Bonne année à tous

 

ya_v_ka

XLDnaute Impliqué

• 29 Décembre 2007

• #6

Re : Une idiotie pour embêter sa/son secrétaire

Hello tous

Juste pour signaler que c'est bien drôle..... mais très ennuyeux quand on revient à la normale, c'est selon les voeux de Billou et il faut replacer nos menus personnalisés à la main.... très drôle !

M'enfin bon, ça peut amuser !

Ya'v

 

p'tit lulu

XLDnaute Junior

• 29 Décembre 2007

• #7

Re : Une idiotie pour embêter sa/son secrétaire

Merci ! je suis pas blond mais...... j'ai ouvert pour voir mais maintenant lorsque j'ouvre un fichier excel, la barre est toujours dans le désordre et mon patron commence à enrager !!!! si je dis que c'est moi, je suis mort !!! lol
en espérant que tout revienne vite dans l'ordre, meilleurs voeux a tous !!!