BON APPETIT A TOUS en VBA

Public Sub BONAPPETIT()

If marie = apero Then
    Select Case marie
        Case champagne: marie = pompette
        Case crevette: marie = pas_pompette
    End Select
End If

With marie
    .marie = Lit_de_feuille_verte_au_coeur_dartichaux _
    .marie = Super_retour_de_cuisse_de_chevreuil_a_la_sauce
End With

finderepas = Fromage + Fruits

Select Case boisson
    Case vin: résultat = waouh
    Case eaugazeuse: résultat = bof
    Case eau: résultat = beurk
End Select

MsgBox 'avec tout ca, marie, plus faire du VBA cet après-midi'
End Sub

Cliquez pour agrandir...

Option Explicit

Const Title As String = 'BON APPETIT'
Const Lib1 As String = 'Apero'
Const Lib2 As String = 'Champagne et Crevette'
Const Lib3 As String = 'Entrée'
Const Lib4 As String = 'Lit de feuille verte au coeur d'artichaux'
Const Lib5 As String = 'Super retour de cuisse de chevreuil à la sauce'
Const Lib6 As String = 'Fromage'
Const Lib7 As String = 'Fruits'
Const Lib8 As String = 'Boisson au choix'

Sub TheMenu()

MsgBox vbTab & vbTab & Lib1 & vbCrLf & vbTab & Lib2 & vbCrLf & vbTab & vbTab & Lib3 & vbCrLf & _
        Lib4 & vbCrLf & Lib5 & vbCrLf & vbTab & vbTab & Lib6 & vbCrLf & vbTab & vbTab & Lib7 & _
        vbCrLf & vbTab & Lib8, , Title

End Sub

Cliquez pour agrandir...