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

Staple1600

XLDnaute Barbatruc
Bonsoir à tous



Voici un classeur qui peut déstabiliser et faire mal aux yeux. :p
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:

skoobi

XLDnaute Barbatruc
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 :p :D

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

Bonnes fêtes à toi.
 

jeanpierre

Nous a quitté
Repose en paix
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
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:

JNP

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

Bonjour Stapple, Jeanpierre et Skoobi :),
Excellent... j'ai rien vu :eek:
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 :D
Bonne année à tous :cool:
 

ya_v_ka

XLDnaute Impliqué
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
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 !!!
 

Membres actuellement en ligne

Statistiques des forums

Discussions
313 046
Messages
2 094 759
Membres
106 081
dernier inscrit
CHRIS-5461