Bonjour,
J'ai une question très simple mais je n'arrive pas à la résoudre.
Dans un module de constantes, j'ai créer la liste suivante
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Enum ListeProduits
    Rien = 0
    Pomme = 1
    Poire = 2
    Abricot = 3
    Cerise = 4
    Tulipe= 5
    Courgette = 6
    Pomme_De_Terre = 7
    Rose = 8
    Radis = 9
    Fruits = Pomme Or Poire Or Abricot Or Cerise
    Fleurs = Rose or Tulipe
    Légume = Courgette Or  Pomme_De_Terre Or Radis 
  End Enum
Dans mon module de code si l'utilisateur tape une valeur, je souhaite afficher la nature du produit
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Dim ValeurDemandée as integer
ValeurDemandée=5
if ValeurDemandée= Fruit then 
   Affiche("Fruit")
elseif ValeurDemandée= Fleur then
   Affiche("Fleur")
elseif ValeurDemandée= Légume then
   Affiche("Légume")
else
   Affiche("Rien")
end if
Et c'est là que se pose le problème. Ce test ne fonctionne pas.
Question subsidiaire : Comment éviter la suite de ElseIf avec une routine qui renvoie directement le nom de la constante
Merci par avance