[Staple1600]

Bonjour à tous


Toujours dans le même esprit

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

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