SELECT CASE sortie multiple

Version imprimable

Salut, voici un petit bout de code fonctionnel.
Code:

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 :

Citation:

termine par la lettre e
+ 10 lettres
contient ed

18/11/2019, 01h23
mercatog

Select case n'est pas appropriée.
Utilise des if / then à la suite.

Citation:

Envoyé par mercatog

Select case n'est pas appropriée.

Je rajouterai même que, dans ce cas, l'instruction Select Case n'a aucun intérêt.

Code:

1
2
3
4
5
6
7
8
9
10
Dim s As String
 
If r Like "bateau" Then s = s & "Mot bateau" & chr(13)
If r Like "velo" Then s = s & "Mot velo" & chr(13)
If Left(r, 1) = "f" Then s = s & "commence par la lettre f" & chr(13)
If Right(r, 1) = "e" Then s = s & "termine par la lettre e" & chr(13)
If Len(r) > 10 Then s = s & "+ 10 lettres" & chr(13)
If r Like "*ed*" Then s = s & "contient ed" & chr(13)
 
If len(s) > 0 Then MsgBox(s)

18/11/2019, 19h04
Matthieu_12

Salut.

Merci pour vos réponses.

Menhir, j'avais pensé faire quelque-chose d'exactement similaire à ce que tu as fait mais je ne pensais pas que c'était valide d'un point de vue syntaxique. Concernant le Select Case, je précise qu'il s'agit d'une demande de notre professeur : ça nous est imposé.

Par ailleurs, en relisant mon code, je ne comprends même pas comment il se fait que la sortie n'indique pas tous les cas vérifiés — ou alors je ne le comprends que trop bien : le Select Case ignore les Case suivant celui qui s'est avéré positif. Est-ce cela ?
18/11/2019, 19h10
MarcelG
Bonsoir,
Code:

1 2 le Select Case ignore les Case suivant celui qui s'est avéré positif. Est-ce cela ?
Oui.
Dès qu'un cas se révèle vérifié, le programme sort du bloc Select Case.
18/11/2019, 19h26
Menhir

Citation:

Envoyé par Matthieu_12

Concernant le Select Case, je précise qu'il s'agit d'une demande de notre professeur : ça nous est imposé.

Soit ton professeur ne sait pas ce qu'est un Select Case structurellement (ce qui serait étonnant étant donné que c'est une des structures classique de nombreux langage), soit tu as fais erreur dans l'interprétation de l'énoncé tel que tu l'as retranscrit dans ton code.

Citation:

ou alors je ne le comprends que trop bien : le Select Case ignore les Case suivant celui qui s'est avéré positif. Est-ce cela ?

C'est bien ça. Le Select Case ne chope qu'un seul cas.
A lire : https://docs.microsoft.com/fr-fr/off...case-statement

Citation:

Si testexpression correspond à une expressioncasse listeexpressions, les instructions suivantes cette clause casse ** sont exécutées jusqu'à la prochaine clausecasse**, ou pour la dernière clause, jusqu'à fin de la sélection. Le contrôle passe ensuite à l’instruction suivante fin de la sélection. Si testexpression correspond à une expression listeexpressions dans plusieurs clausescasse, seules les instructions qui suivent la première correspondance sont exécutées.

Ca me semble clair, non ?

Il faut dire que, théoriquement, il est fait pour tester la valeur d'une seule expression.
Ecrire un "Select Case True", c'est un peu le dévoyer de son usage conventionnel.
18/11/2019, 20h12
unparia

Bonjour
ce que je "vois", moi :
1) il est en effet (bien que très maladroit et lourd) possible de traiter l'ensemble par une instruction Select. Avec plusieurs variables complémentaires et à définir selon le "Case"
2) Voilà un enseignant qui me paraît ne pas demander nécessairement à ses élèves d'écrire un code performant, mais de montrer qu'ils savent "faire" avec ce qu'il est demandé de "faire". Et qui attend de voir qui saura "faire" ainsi.
Il est certain que ces "contraintes" lui permettront de déceler l'"agilité", etc ... ou au contraire, des "gênes".
3) Je ne doute pas une seule seconde qu'il s'attend plutôt à des gênes et à l'opportunité qui se présentera alors de conduire à la construction d'approches complexes et révélatrices.
Un tel enseignant ne peut que me plaire et je me garderai donc personnellement de gêner/polluer/troubler sa démarche de vrai pédagogue.
18/11/2019, 21h40
Pierre Fauconnier

Citation:

Envoyé par unparia

[...]
Un tel enseignant ne peut que me plaire et je me garderai donc personnellement de gêner/polluer/troubler sa démarche de vrai pédagogue.

Il ne me viendrait personnellement jamais à l'idée de procéder ainsi. C'est pour moi une démarche d'une stupidité didactique affligeante, et je ne vois pas en quoi il est question ici de pédagogie. C'est d'autant plus contre-productif pour moi que, alors que les autres langages imposent un Break pour ne tester qu'un cas, VBA lui, ne permet d'en valider qu'un seul, sans besoin de Break. Si l'on souhaite un quelconque aspect didactique à cette démarche affligeante, il faut à tout le moins donner les clés à l'étudiant de comprendre le cheminement du code (et donc d'aborder le débogage, seule technique ici de valider le saut des cas suivants celui validé, sauf à le déduire). D'expérience, les participants à mes formations qui ont "subi" ce genre de cours n'ont pas eu de cours de débogage et sont donc forcément paumés, en plus du fait qu'ils ont pris de mauvaises habitudes de codage.

La construction Select Case... est clairement présente pour évaluer les différentes valeurs possibles d'une même expression, et l'utiliser, même à titre "pédagogique" (:ptdr:) avec la constante True est tout sauf productif.

Soit le prof est c**, soit l'étudiant n'a pas compris l'exercice, ou a justement loupé les explications sur le débogage qui auraient permis à l'exercice de revêtir une très relative dimension didactique.

My two cents.

Citation:

Envoyé par unparia

[...]
1) il est en effet (bien que très maladroit et lourd) possible de traiter l'ensemble par une instruction Select. Avec plusieurs variables complémentaires et à définir selon le "Case"[...]

Je suis curieux de voir ce cas multiple traité avec une instruction SELECT qui pourrait recenser les CASE par lesquels on est passé. Si tu peux éclairer ma lanterne, même avec un code lourd et maladroit :ptdr:...
19/11/2019, 06h48
Transitoire

Bonjour à tous, si vous me permettez d'intervenir dans ce "débat"? 8O
Je pense qu'avant de disserter longuement sur le "sexe des anges", il serait plus important de demander a ce cher @Mathieu_12, quel est la demande exact de l'enseignant, concernant l'utilisation du "Select Case".
Doit-il être le lien entre toutes les propositions?
Peut-il y avoir plusieurs "Select Case" imbriqués suivant les "familles d'affirmations"? (exemple ( c'est ou bateau ou vélo, mais pas les deux, par ailleurs bateau ou vélo n'entrent dans aucun des critères qui suivent) etc etc).
Bon, Enfin moi ce que j'en dit? :)
Cordialement 8-)
19/11/2019, 07h28
unparia

Citation:

Je suis curieux de voir ce cas multiple traité avec une instruction SELECT qui pourrait recenser les CASE par lesquels on est passé. Si tu peux éclairer ma lanterne, même avec un code lourd et maladroit

Pour mémoire :

Citation:

je me garderai donc personnellement de gêner/polluer/troubler sa démarche

Je veux dans ces conditions bien y revenir, mais très clairement pas sans avoir laissé passer suffisamment de temps pour que ce devoir en reste un et puisse être noté de manière pure.

Bonjour …
unparia, je me vois mal donner un avis quant au travail d’un enseignant sans savoir quel est son public et quels sont ses objectifs.
Pierre,

Citation:

« Soit le prof est c**, soit l'étudiant n'a pas compris l'exercice, ou a justement loupé les explications sur le débogage qui auraient permis à l'exercice de revêtir une très relative dimension didactique. »

Je ne vois pas ce qui te permet d’affirmer cela.

Je ne suis pas cet enseignant et je suis peut-être c** mais je pourrais poser un tel exercice avec l’utilisation d’un outil précis pour savoir si celui-ci est connu, bien utilisé par l’étudiant.

Concernant la réponse de ce dernier (Matthieu en l'occrence), je lui expliquerais (comme cela a été fait par d’autres intervenants) pour quelle raison elle ne convient pas si l’on veut la liste de tous les cas acceptables.
Je le guiderais vers l’exemple suivant avec le Select Case
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub j() Dim R As String, S As String, n As Byte R = "If faut placer le velo sur le bateau sans ses pedales" While n < 6 n = n + 1 Select Case n Case Is = 1 And R Like "*bateau*": S = S & "contient bateau" & vbLf Case Is = 2 And R Like "*velo*": S = S & "contient velo" & vbLf Case Is = 3 And R Like "f*": S = S & "commence par la lettre f" & vbLf Case Is = 4 And R Like "*e": S = S & "termine par la lettre e" & vbLf Case Is = 5 And Len(R) > 10: S = S & "a + 10 lettres" & vbLf Case Is = 6 And R Like "*ed*": S = S & "contient ed" End Select Wend If S = "" Then S = "ne présente aucun des cas cités !" MsgBox "pour : " & R & " " & vbLf & S, , "cas rencontrés ..." End Sub
pour montrer comment on peut l’utiliser mais, aussi, pour lancer le débat sur son opportunité avec ses complications dans cette situation.
Cela pourrait se finir par la résolution de l’exercice traitant le même questionnement sans cet outil (ce qui a déjà été fait).
De plus, je pourrais aussi tester l'outil MsgBox non ?

Edit : désolé unparia mais ce n'est pas un désaveu de ta dernière intervention. C'est à Matthieu de savoir ce qu'il va faire.

19/11/2019, 11h10
unparia

Bonjour OrDonc

Citation:

désolé unparia mais ce n'est pas un désaveu de ta dernière intervention. C'est à Matthieu de savoir ce qu'il va faire.

Je ne t'en tiens aucune rigueur, ami, puisque tu as ainsi choisi de l'obliger à s'exercer.:plusser:
Amitiés
19/11/2019, 11h33
Pierre Fauconnier

Personnellement, je ne conçois pas que l'on apprenne l'informatique avec des contre-exemples aussi aberrants que celui proposé par Ordonc. Que ce genre de masturbation intellectuelle soit de mise tout à la fin d'un master (et encore) ou durant un doctorat, pourquoi pas? Je doute toutefois que ce soit le cas ici (ça ne se ferait probablement pas en VBA), et je doute sincèrement de la valeur didactique de l'exercice.

De ma longue expérience de formateur, je retiens qu'il est déjà malaisé pour l'étudiant d'apprendre à coder proprement, en respectant une architecture (quelle qu'elle soit), en produisant un code lisible, compréhensible, maintenable, évolutif. Je pense donc qu'il est contre-productif de lui proposer des exemples à ce point éloignés de la réalité de terrain.

Ordonc aurait fait comme ceci ou comme cela. Très bien. Perso, j'ai fait à ma sauce, sans doublons par rapport au code de Menhir qui propose la seule bonne approche, à mon sens, si l'on veut produire du code facilement lisible par d'autres, et permettant une compréhension rapide de l'intention sous-jacente au code, à laquelle j'accorde beaucoup d'importance. j'attends d'un Select Case... qu'il passe en revue les valeurs possibles d'une expression, d'une succession de If... EndIf des évaluations d'expressions différentes qui peuvent éventuellement se compléter et d'une construction If... Else If...End If l'évaluation d'expressions différentes qui s'excluent. Je me souviens d'ailleurs que cette construction Select Case True... avait déjà été évoquée sur le forum (preuve s'il en est que la pédagogie/didactique n'avait pas manifestement pas fonctionné), ce qui m'avait amené à rédiger ce billet de blog...

Je me souviens d'une discussion où l'on évoquait le fait de pouvoir utiliser For [Each]...Next en lieu et place de Do...While, et durant laquelle je mentionnais que l'intention d'un For...Next n'est pas la même que celle d'un Do While. Un For Next prépare à passer sur chaque valeur ou élément (et exclut dont Exit For), du Do While permettant de comprendre l'intention de sortir sur condition (et là aussi, sans Exit Do). Perso, mélanger les constructions, ne pas en comprendre l'intention et la finalité et les utiliser l'une pour l'autre relève pour moi d'une mauvaise programmation. Je doute que les exemples mentionnés ici permettent de comprendre cela.

Il y a toujours moyen d'utiliser des constructions de manière déviée, mais elles relèvent alors pour moi, sauf accompagnées de très solides arguments, d'une mauvaise programmation qui donnera du fil à retordre en maintenance. Comprendre, dans 6 mois ou un an, une construction telle que celle montrée dans l'exemple de Ordonc amènera le lecteur à se demander pourquoi le code a été écrit comme cela, et sèmera le doute quant à la qualité de l'ensemble du code produit.

Je pense qu'il n'y a pas besoin d'être une génie en "pédagogie" pour faire comprendre, par deux exemples simples, la différence entre les If... End If et les Select Case et que cela ne vaut pas un exercice masturbatoire tel que ceux présentés ici.

C'étaient mes 2 cents...
19/11/2019, 13h11
OrDonc

La raison n’est-elle pas de croire avoir raison mais de savoir être raisonnable ?

Re et excuse moi Matthieu pour la pollution ...

De Pierre (formateur et non étudiant) :

Citation:

Je suis curieux de voir ce cas multiple traité avec une instruction SELECT qui pourrait recenser les CASE par lesquels on est passé. Si tu peux éclairer ma lanterne, même avec un code lourd et maladroit

Désolé, une fois de plus, unparia ;), d’avoir donné un exemple si peu lumineux avant le tien.
19/11/2019, 13h22
Pierre Fauconnier

Il n'y a pas de pollution, il y a, normalement, débat.

Expliquez en quoi votre exemple est si lumineux, en quoi il est didactique, pédagogique, éventuellement préférable à une suite de If... End If ou pas. CA, ça ferait avancer la discussion. La pollution d'une discussion commence à partir du moment où l'on pond un code inepte sans expliquer à quoi il sert, en prod ou sur les bancs de l'école.

Pour ma part, je n'ai jamais rencontré une construction telle que celle proposée par OrDonc qui n'a aucun sens, ni en programmation "de production", ni sur un quelconque plan didactique ou pédagogique. J'ai amené des arguments pour expliquer mon point de vue. S'ils ne vous plaisent pas, exposez les vôtres et débattons-en. Si le code proposé par Ordonc a du sens pour vous, expliquez en quoi. Alors, il n'y aura pas de pollution, mais un échange de points de vue, duquel on pourrait apprendre quelque chose, et pourquoi pas changer sa façon de voir le choses. A part un intérêt didactique dont vous parlez mais que vous ne détaillez pas, vous n'étayez rien, vous faites juste du vent.

Discuter avec des avatars qui n'assument pas leur identité réelle et qui critiquent ceux qui, de leur vrai nom, argumentent et expliquent, ça commence à fatiguer.
19/11/2019, 13h41
Arkham46

Bonjour,

Moi je suis un peu perdu.
Soit c'est un piège, soit l'énoncé n'est pas clair ou mal compris.
Qu'est-il écrit exactement : "n'utiliser que select case et rien d'autre" ?

Est-ce un exercice parmi d'autres ? Il serait alors vicieux d'y glisser un piège mais pourquoi pas.
Si c'est le seul exercice c'est moins compréhensible.
Si on cherche à tester les étudiants, on peut trouver des cas complexes réels comme les fonctions récursives par exemple.

En tout cas je tiens à féliciter tout de même Matthieu qui ne nous a pas pondu l'énoncé mais a pris la peine d'écrire du code avant de venir ici.
Maintenant avec une telle demande il faut s'attendre à un débat plus ou moins houleux. ;)

Pour revenir au sujet, et clore un faux débat que je n’ai pas instauré, est-ce la comparaison que réclamait le prof ?
Donc, en continuant de jouer à être celui-ci, si elle avait été demandée, j’aurais, plutôt qu’un discours discourtois, proposé comme alternative.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Si()
    Dim R As String, S As String
    R = "If faut placer le velo, sans ses pedales, sur le bateau !"
    If R Like "*bateau*" Then S = S & " - contient le mot bateau" & vbLf
    If R Like "*velo*" Then S = S & " - contient le mot velo" & vbLf
    If R Like "f*" Then S = S & " - commence par la lettre f" & vbLf
    If R Like "*e" Then S = S & " - se termine par la lettre e" & vbLf
    If Len(R) > 10 Then S = S & " - a plus de 10 lettres" & vbLf
    If R Like "*bateau*" Then S = S & " - contient ed" & vbLf
    If S = "" Then S = "ne présente aucun des cas cités !"
   MsgBox "la phrase : " & R & vbLf & S, , "cas rencontrés ..."
End Sub

mais d'autres l'avaient déjà fait dans cette discussion !

19/11/2019, 14h44
Menhir

Citation:

Envoyé par Arkham46

Soit c'est un piège, soit l'énoncé n'est pas clair ou mal compris.

Mon hypothèse : mal compris.

Vous êtes en train de polémiquer en ne connaissant que l'interprétation que le demandeur a fait de son énoncé.
Perso, j'ai un gros doute que le code du premier message soit une transcription fidèle du problème...
19/11/2019, 18h03
Matthieu_12

Loin de moi la volonté initiale de créer pareil conflit intergalactique !

Tout d'abord, je vous prie de bien vouloir me croire : je n'ai pas mal compris la demande du professeur !

Ensuite, non, je ne pense pas que c'était à visée pédagogique car cela a tout naturellement produit l'exact effet inverse : je ne comprends plus rien à l'utilité du Select Case.

J'ai un contrôle de 3 h demain matin.

Je sens que je vais bien m'amuser !

Par ailleurs, il nous a également été demandé de créer un menu. Je cite :

Citation:

Écrire un programme qui va proposer un menu à l’utilisateur afin que ce dernier choisisse quel programme il souhaite lancer*:
I – Exercice1, ou II - Exercice 2.
A la fin de l’exécution, le programme retourne sur le menu. Le menu doit bien évidemment proposer un choix permettant de quitter.

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 !

19/11/2019, 18h10
Menhir
Citation:

Envoyé par Matthieu_12

je ne comprends plus rien à l'utilité du Select Case.

Bin... comme son nom l'indique, ça sert à sélectionner un cas (et un seul).

La plupart du temps, ça s'utilise ainsi :
Code:

1 2 3 4 5 6 7 8 9 10 Select Case MonChoix Case 1 Action1 Case 2 To 5 Action2 Case < 100 Action3 Case Else Action4 End Select
Utiliser Select Case True est une sorte de perversion de ce principe, même si ça reste fonctionnel et syntaxiquement valable.
19/11/2019, 18h10
Pierre Fauconnier

Citation:

Envoyé par Matthieu_12

[...]
Ensuite, non, je ne pense pas que c'était à visée pédagogique car cela a tout naturellement produit l'exact effet inverse : je ne comprends plus rien à l'utilité du Select Case.[...]

Je me doute que ce n'est pas à visée pédagogique, puisque la "pédagogie" est absente de cet exercice inepte.

Lis mon billet de blog, il explique à quoi sert le Select Case, qui est utilisé pour éviter une suite de If lorsque le test porte sur les valeurs possibles d'une seule expression ;)
19/11/2019, 19h12
unparia

Re bonjour, Matthieu
Garde-toi de tirer trop vite des conclusions.
La vocation de cet exercice n'est pas celle que tu penses (résoudre une difficulté par tel ou tel autre moyen) mais celle de vérifier que tous les mécanismes d'utilisation de Select Case ont bien été appréhendés.
Ce n'est sans doute pas par hasard qu'ont été définies les clauses montrées (de chaque cas).
Je vais te donner deux indices (mais pas faire ton devoir, dont je ne donnerai la solution que dans quelques jours, comme dit plus haut et pour les raisons exposées plus haut) :
- tout est dans cette affaire l'art de déterminer intelligemment l'ordre dans lequel traiter les cas. Et c'est cet ordre là, qui permettra de parvenir en une seule instruction Select Case à traiter la totalité - 1 des cas exposés. C'est à mon humble avis cela (cette aptitude-là), que ton professeur veut tester. Et je suis à ce propos persuadé de ce qu'il a déjà exposé, à un instant ou à l'autre, l'intérêt de bien déterminer cet ordre de traitement.
- le traitement du cas manquant (si > 10 caractères) se fait ensuite de la manière la plus simple in fine (juste avant le msgbox)
19/11/2019, 19h20
Pierre Fauconnier

C'est juste du blabla. On peut arriver au même résultat, souhaité par Mathieu, avec des if sans dénaturer la construction du Select Case, à moins que tu n'arrives à montrer une solution avec Select que l'on ne pourrait avoir avec des If (dans le cas présent)..

Select Case est fait pour tester les différentes valeurs d'une même expression. Point. Tout autre utilisation est déviée et relève pour moi d'une mauvaise façon de programmer qui va amener de la confusion au moment de la maintenance et de l'évolution du code. Select Case a été créé uniquement pour éviter de devoir répéter l'expression dont on teste les valeurs. En fait, on peut très bien se passer de Select case qui est juste une construction de confort (et qui permet un "gain" de performances puisque l'expression n'est évaluée qu'une fois, sur la ligne Select.

Et je précise que c'est une spécificité du VBA que de ne tester les cas que jusqu'au cas valide, en ne passant pas sur les suivants. Dans les autres langages, il faut mettre un Break; pour que les autres cas ne soient pas évalués après le premier validé.
19/11/2019, 19h38
unparia

Du "blabla" ?
Ah ... Sans doute, mais uniquement si l'on corrige ceci :

Citation:

que l'on ne pourrait avoir avec des If

par
"que l'on ne pourrait avoir avec des If .. elseif .."
sauf, bien évidemment, à ne pas se préoccuper du nombre (toujours total) des comparaisons à faire ;)
Mais alors : -->> si l'on y va à coups de elseifs, on n'échappera pas à la nécessité (idem que pour les case de select case) de bien choisir l'ordre de traitement des clauses. Et si l'on fait harakiri des elseifs, on sombre alors forcément dans la lenteur inhérente à l'examen systématique de tous les cas !

A ce propos : je ne crois pas avoir vu jusqu'ici une proposition à coups de elseifs ... Me trompe-je ?
19/11/2019, 19h44
Pierre Fauconnier

Citation:

Envoyé par unparia

Du "blabla" ?[...]
"que l'on ne pourrait avoir avec des If .. elseif .."[...]

Mathieu veut justement plusieurs cas (et donc pas de If... ElseIf). C'est JUSTEMENT de sa demande de pouvoir/devoir évaluer plusieurs cas avec Select qu'est né ce "débat".

La demande de Mathieu ne peut être VALABLEMENT rencontrée que par une succession de IF... End If et justement pas par des If... ElseIf... Endif qui ne permet de répondre qu'à une condition rencontrée, tout comme le bloc Select ... End Select, si l'on veut en tout cas utiliser CORRECTEMENT les constructions mises à notre disposition par le langage.

Mercatog puis Menhir ont donné LA réponse (unique, à mon sens si on veut une solution professionnelle) à la demande de Mathieu tout au début de la discussion. C'est à pleurer, quand même, d'en arriver à autant d'imbécilité dans les réponses proposées.

Citation:

Envoyé par unparia

[...]
A ce propos : je ne crois pas avoir vu jusqu'ici une proposition à coups de elseifs ... Me trompe-je ?

Comment une réponse sensée pourrait-elle être formulée avec If... ElseIf... End If puisque cette construction NE PERMET PAS de répondre à la question de Mathieu qui veut pouvoir "empiler" les cas possibles. Le cas qu'il a cité est suffisamment explicite, non?

Toute construction à coup de Select pour se pavaner n'est que pollution du forum. Pauvre de nous!
19/11/2019, 19h55
unparia

Citation:

La demande de Mathieu ne peut être VALABLEMENT rencontrée que par une succession de IF... End If et justement pas par des If... ElseIf... Endif qui ne permet de répondre qu'à une condition rencontrée, tout comme le bloc Select ... End Select, si l'on veut en tout cas utiliser CORRECTEMENT les constructions mises à notre disposition par le langage.

Citation:

Comment une réponse sensée pourrait-elle être formulée avec If... ElseIf... End If puisque cette construction NE PERMET PAS de répondre à la question de Mathieu qui veut pouvoir "empiler" les cas possibles. Le cas qu'il a cité est suffisamment explicite, non?

HA ...
A dans une semaine, donc . Et je serai à ce rendez-vous (traitement par select case déjà fait dans mon humble demeure). ;)
19/11/2019, 19h59
Pierre Fauconnier

Citation:

Envoyé par Matthieu_12

Par ailleurs, il nous a également été demandé de créer un menu[...]

Il faut créer une autre discussion pour cela, si tu as un problème avec ce cas qui n'est pas identique à celui évoqué dans ton post initial. Parce que dans le cas évoqué dans ton message de 18:09, la construction Select Case... End Select est tout à fait valide, puisque tu évalues les valeurs possibles d'une même expression ( Val(q) ). C'est JUSTEMENT pour ce genre de cas que la construction Select Case a été imaginée (voir mon billet de blog déjà cité).

Ta construction à coup de If... ElseIf... End If est parfaitement fonctionnelle, mais dans ce cas (différent du premier cas que tu évoques), tu pourrais utiliser Select Case qui est juste une construction de confort, apte à remplacer le bloc If X then.. ElseIf X Then End If, car elle évite la répétition (et les multiples évaluations) de X.
19/11/2019, 20h04
Pierre Fauconnier

Citation:

Envoyé par unparia

HA ...
A dans une semaine, donc . Et je serai à ce rendez-vous (traitement par select case déjà fait dans mon humble demeure). ;)

Ben alors crache ta valda maintenant, sinon c'est du vent, du blabla, du bullshit, parce que personne ne reviendra dans une semaine voir si tu tiens ta parole, que tu ne tiendras pas, comme à maintes reprises sur nos forums.
19/11/2019, 20h16
unparia

Citation:

Ben alors crache ta valda maintenant,

Il me semble avoir été assez clair sur ce point: en aucun cas avant remise des devoirs.
Moi, je serai là dans une semaine. Et le sujet "montera" alors suffisamment pour que ceux (dont toi ) ne le ratent pas ... (ce que je ne crois pas, en fonction de l'expérience que j'ai acquise de tes présences "préférées" ). ;)
Mais si tu le veux : je pourrais toujours t'adresser un MP pour que ne t'échappe pas cette intervention :D
19/11/2019, 20h18
Pierre Fauconnier

Citation:

Envoyé par unparia

Il me semble avoir été assez clair sur ce point: en aucun cas avant remise des devoirs.
Moi, je serai là dans une semaine. Et le sujet "montera" alors suffisamment pour que ceux (dont toi ) ne le ratent pas ... (ce que je ne crois pas, en fonction de l'expérience que j'ai acquise de tes présences "préférées" ). ;)
Mais si tu le veux : je pourrais toujours t'adresser un MP pour que ne t'échappe pas cette intervention :D

C'est celàààà, ouiiiii

Saluts,
un tas de broutilles pour si peu.
Citation:
Envoyé par Matthieu_12
Salut, voici un petit bout de code fonctionnel.
Code:

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 :
Tel que posée, en effet il n'y avait pas lieu de spéculer. Les deux premières réponses étaient suffisantes.
Les interrogations suivantes faisaient sortir du cadre et auraient pu être formulées comme suggestion de cas d'exercice intéressant.
Elles éloignent de la cible du besoin, tout comme la remarque discourtoise qui s'y réfère. Les comptes se règlent autrement.:roll:

------

Citation:

Envoyé par Matthieu_12

Salut.

Merci pour vos réponses.

Menhir, j'avais pensé faire quelque-chose d'exactement similaire à ce que tu as fait mais je ne pensais pas que c'était valide d'un point de vue syntaxique. Concernant le Select Case, je précise qu'il s'agit d'une demande de notre professeur : ça nous est imposé.

Par ailleurs, en relisant mon code, je ne comprends même pas comment il se fait que la sortie n'indique pas tous les cas vérifiés — ou alors je ne le comprends que trop bien : le Select Case ignore les Case suivant celui qui s'est avéré positif. Est-ce cela ?

Voila qu'il confirme le besoin : A savoir pouvoir afficher a la sortie 3 lignes de texte correspondant aux tests.
On comprend qu'il n'a pas suivi/compris le cours, en remarquant un peu la déclaration de deux variables, dont une seule est utilisée.
Il ne doit y avoir qu'une seule ligne de MsgBox a la fin des tests. La 2eme variable texte qui concatène les différents cas.
Le Select Case est exigée, mais pas comme il l'a composée. Voir pourquoi ci-dessous.

------
Citation:
Envoyé par Matthieu_12
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 !
Enfin tout est dit. Une déplorable récursivité inter procédures : j, k, menu, a la place d'une boucle While True pour afficher un menu ... pas la peine de détailler, ni discourir sur le reste. On voit bien que le demandeur a des pistes données par son prof qu'il exploite mal.
Il faut juste rester sur l'essentiel.
Tout le reste

19/11/2019, 22h17
Pierre Fauconnier

Citation:

Envoyé par Matthieu_12

[...]je n'ai pas mal compris la demande du professeur ![...]

Citation:

Envoyé par NVCfrm

[...]
On comprend qu'il n'a pas suivi/compris le cours[...]

M'enfin, Mathieu, puisqu'on te dit que tu n'as pas suivi le cours et que tu n'as rien compris... :ptdr:

Citation:

Envoyé par NVCfrm

[...]tout comme la remarque discourtoise[...]

Je me demande s'il est discourtois de dire à quelqu'un qu'il n'a pas compris un cours... ^^
19/11/2019, 23h42
NVCfrm

Les codes postés sont assez parlant pour dire qu'il n'a pas compris son cours
Et cette affirmation n'est nullement discourtois, en plus c'est la raison pour laquelle, il est venu poser des questions.
Si vous trouvez qu'il a bien suivi et compris le cours, comment expliquer son code ?
Voilà
20/11/2019, 07h45
Christophe

Je vous remercie pour vos tergiversations inutiles qui ont eu pour résultat :

Citation:

Ensuite, non, je ne pense pas que c'était à visée pédagogique car cela a tout naturellement produit l'exact effet inverse : je ne comprends plus rien à l'utilité du Select Case.

Je ferme la discussion.