BON APPETIT A TOUS en VBA

[MARIE74]

B) SALUT A TOUT LE FORUM


BON APPETIT

Apero
Chanmpagne et Crevette

Entrée

Lit de feuille verte au coeur d'artichaux

Super retour de cuisse de chevreuil a la sauce


Fromage

Fruits

Boisson au choix


Pouvez mettre ca CA en VBA




Ca gazouille

 

[bbmarcus]

Bonjour Marie74, le forum,

alors là, tu m'as mis l'eau à la bouche.......mais j'ai rien compris ! :woohoo: :woohoo:

une explication s'impose.......

bbmarcus

 

[Hervé]

re marie, salut bbmarcus

Marie une proposition 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

salut

PS : merci de me faire grace des déclarations de variables.

 

[Celeda]

Bonjour,

t'a oublié la sieste RV!!!

quel charmeur!!!

j'ai bien ri!!!

Merci

Celeda

 

[bbmarcus]

J'aime bien ton dernier messagebox hervé.......

J'ai une question à Marie:
Tu vas vraiement manger tout CA?

Tu as prévu pour combien de personne parce que sinon.....enfin j'ai fin quoi......

En tout cas, c'est gentil comme invitation à tous les xldnautes ! ! ! ! !

TOUS CHEZ MARIE......enfin si vous savez ou elle habite ! !

Mot de la FAIM ! ! !

 

[_Thierry]

Bonjour Celeda, Marie, Hervé, Marcus

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

Ah oui, bon appétit !!!!

@+Thierry

Message édité par: _Thierry, à: 28/06/2005 12:39

 

[Celeda]

BOnjour,

ah aha aha ah


merci Thierry

toi aussi bon app et pas devant le pc

Celeda :kiss: