Attribute VB_Name = "MacroVBA_1-11_EPSIC"
' Macros codées par Jämes Ménétrey
' D'après les cours donnés à l'EPSIC

Sub Macro_03W_exos_JME()
    
    
    MsgBox "Salut, j'utilise le caractère vbCr pour faire des retours à la ligne !" & vbCr & vbCr & "Haha :)"
    
End Sub

Sub Macro_05W_exos_JME()

    MsgBox "Voulez-vous quitter maintenant ?", vbYesNo + vbQuestion
    Application.Quit
    
End Sub

Sub Macro_06W_exos_JME()

    MsgBox "Voulez-vous vraiment quitter ?", vbYesNoCancel + vbQuestion
    Application.Quit
    
End Sub

Sub Macro_08W_exoss_JME()

    noel = MsgBox("Croyez-vous au père Noël ?", vbYesNo)
    
    If noel = vbYes Then
        MsgBox "Vous êtes un brin naïf !"
    Else
        MsgBox "Mais vous y croyiez lorsque vous êtiez petit !"
    End If
        
End Sub

Sub Macro_09W_exos_JME()
    
    Application.StatusBar = "Salut toi !"
    
End Sub

Sub Macro_11W_exos_JME()
    
    nom = InputBox("Veuillez taper votre prénom et nom :", "", "Bill Gates")
    
    If nom <> "" Then
    
         MsgBox "Bienvenue à ce nouveau joue de travail " & nom
    End If
    
End Sub