Salut, voici un petit bout de code fonctionnel.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
Pourriez-vous, je vous prie, m'orienter vers une méthode simple et efficace pour que le programme liste en sortie les cas vérifiés ?

Par exemple, si l'utilisateur entre la valeur "acfkedmlpse" en entrée, ça doit lui afficher en sortie :

termine par la lettre e
+ 10 lettres
contient ed