Par ailleurs, il nous a également été demandé de créer un menu. Je cite :
Voici mon humble production, bien évidemment fonctionnelle :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| Sub menu()
Dim q As String
q = InputBox("1 = exercice 1" & Chr(13) & "2 = exercice 2" & Chr(13) & "3 = quitter")
If Val(q) = 1 Then
MsgBox ("ex1")
Call j
ElseIf Val(q) = 2 Then
MsgBox ("ex2")
Call k
Else
MsgBox ("hasta la vista baby")
Exit Sub
End If
End Sub
Sub j()
Dim r, q As String
r = InputBox("entrez une valeur")
Select Case True
Case r Like "bateau": MsgBox ("Mot bateau")
Case r Like "velo": MsgBox ("Mot velo")
Case Left(r, 1) = "f": MsgBox ("commence par la lettre f")
Case Right(r, 1) = "e": MsgBox ("termine par la lettre e")
Case Len(r) > 10: MsgBox ("+ 10 lettres")
Case r Like "*ed*": MsgBox ("contient ed")
Case Else: MsgBox ("terminado pepito")
End Select
Call menu
End Sub
Sub k()
MsgBox ("exo 2 aqui")
Call menu
End Sub |
Auriez-vous, à tout hasard, non pas des conseils d'optimisation mais des suggestions alternatives de menu ? J'entends par là : une fonction menu ou un procédé bien différent du mien.
En espérant ne pas déclencher un nouveau conflit intergalactique !