Private Sub Worksheet_Change(ByVal Target As Range)
If Range("c3") <> "" Then Call Message
End Sub
Public Result$, x
Private Function AfficheSoulons$()
AfficheSoulons$ = " *** Liste des soulons ***" & vbCrLf & vbCrLf & _
" 1er Degré" & vbCrLf & _
" 2ème Degré" & vbCrLf & _
" 3ème Degré" & vbCrLf
End Function
Sub Message()
Dim Status As Long
x = Feuil1.Range("c3").Value
Status = x
Result$ = Choose(Status, _
"Martini Seck : Alcoolique à 25%", _
"Wodka Orange : Alcoolique à 50%", _
"Wisky Ontherock : Alcoolique à 100%", _
AfficheSoulons$)
MsgBox (Result$)
If x >= 4 Then: MsgBox "Vous m'avez soulé !!", , "Alcoolisme": Range("c3").ClearContents: Exit Sub
End Sub