Excel Downloads Forums - Afficher un message

JNP · 31/12/2007, 08h01

Bonjour le forum

,
Je la préfère en VBA :

Code:

 
Sub Réveillon()
Whith Invités.Select
     .Huître = 1 * Douzaine
     .Champagne = 1 * 75cl
     .FoieGras = 250g
     .Montbazillac = Modération ' Sinon bobo la tête
     .Poularde = Farcie.Girolles + Farcie.Oignons
     .Médoc = 1998 * 75cl
     .BûcheGlacée = ADiscrétion
End With
If Estomac = UnPeuLourd Then
     2 * Aspirines.Boire
End If
Select Case Alcotest
     Case is <= 1.5
          Rentrer.JePeux
     Case is > 1.5 <= 2
          MaFemme.JeLaisseConduire
     Case is > 2
          Dodo.JeFait
          Bassine.JePrévois
End Select
End Sub

EXCELente année à tous