Salut, voici un petit bout de code fonctionnel.
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 ?
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
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
Partager