Bonjour à tous
La macro de Gérard enrichie mais on peut encore améliorer
Private Sub Soirée_Open() ' "Ouverture d'une soirée privée"
' Ne pas oublier de déclarer les variables sinon @+Thierry va nous gronder
Dim Boissons As Variant ' Chacun boit selon ses envies'
Dim Tenue_de_rigueur As String 'soyons à l'aise
Dim Moralité As Integer 'Il faut être raisonnable
Dim Accord_Madame As Boolean ' Vous avez le choix
Dim Etat As String, Whisky_Double As Long
Dim Jai_du_Jeu As Boolean
10 If Accord_Madame = True Then
Select Case Whisky_Double
Case 0
Etat = "coincé!"
Moralité = 32767
Tenue_de_rigueur = "strict"
Select Case Jai_du_Jeu
Case True
Whisky_Double = 1
Case Else
Whisky_Double = 2
GoTo 10
End Select
Case 1
Etat = "ça va!"
Moralité = 30000
Tenue_de_rigueur = "décontracté"
Select Case Jai_du_Jeu
Case True
Whisky_Double = 2
Case Else
Whisky_Double = 3
GoTo 10
End Select
Case 2
Etat = "ça commence!"
Moralité = 20000
Tenue_de_rigueur = "chemise déboutonnée"
Select Case Jai_du_Jeu
Case True
Whisky_Double = 3
Case Else
Whisky_Double = 4
GoTo 10
End Select
Case 3
Etat = "ça continue!"
Moralité = 10000
Tenue_de_rigueur = "chemise ouverte"
Select Case Jai_du_Jeu
Case True
Whisky_Double = 4
Case Else
Whisky_Double = 5
Etat = "m'en fous!"
GoTo 10
End Select
Case 4
Etat = "ça chauffe!"
Moralité = 0
Tenue_de_rigueur = "ou est ma chemise ?"
Select Case Jai_du_Jeu
Case True
Whisky_Double = 5
Etat = "m'en fous!"
Case Else
Whisky_Double = 6
Etat = "m'en fous!"
GoTo 10
End Select
Case Is > 4
Etat = "grumphÅ_
ªñ ®’ä_ †Œyÿœ¬±«"
Moralité = -32768
Tenue_de_rigueur = "chemise déchirée, traces de vomi"
Select Case Jai_du_Jeu
Case Else
GoTo Bed
End Select
End Select
Else
GoTo Bed
End If
Exit Sub
Bed:
Application.ScreenUpdating = False
Application.Quit
End Sub