Verifier si une variable appartient à un ensemble de valeurs Résolu

Question

Bonjour, 

je  veux juste vérifier par une condition si ma variable appartient à un ensemble de valeurs.
bien sur je peux faire:

If Var= 1 or Var=5 or Var=12 or..... then

mais c'est un peu fastidieux quand il y a plein de tests.

il faudrait quelque chose du style

if Var= (or(1,5,12...)) then

ou

if Var={1;5;12...} then

je suis sur qu'il existe un truc comme ça et que la réponse va être évidente, mais je ne trouve pas.
je précise que c'est du VBA pour Access.

Configuration: Windows XP / Firefox 8.0.1

panda · Answer

je  cherchais en utilisant la fonction array, mais sans succès:

firstarray = Array(8, 9, 10, 11, 12, 13, 14, 15)
myarray = Filter(firstarray, Var)
If UBound(myarray) > 0 Then

ça bloque à "myarray = Filter(firstarray, nomod)". j'ai essayé "myarray = Filter(firstarray, Var, true)" mais dans tous les cas il me dit que je n'ai pas le bon nombre d'arguments.

une idée?

panda · Answer

j'ai une autre piste avec ce code trouvé sur un site:

Sub essai()
  montableau = Array("A", "B", "C", "D")
  x = "C"
  p = Application.Match(x, montableau, 0)
  If IsError(p) Then
    MsgBox x & " Inconnu"
  Else
    MsgBox p
  End If
End Sub

mais mon VBA (pour access) ne semble pas connaitre la méthode Match

Yoda · Answer

Bonjour,

Il faut passer tout le tableau en revue dans une boucle pour savoir si un élément existe.

Sub essai() 
montableau = Array("A", "B", "C", "D") 
x = "C"
trouve=False
For i = LBound(montableau) To UBound(montableau)
   if x=montableau(i) then trouve=True
next
if trouve then
   MsgBox x  & " Connu"
else
   MsgBox x  & " Inconnu"
endif
End Sub 

Le plus pratique serait de faire une fonction personnalisée.

A+.

Patrice33740 · Answer

Bonjour,

Pour éviter la boucle, tu peux utiliser un dictionnaire :
Option Explicit
Sub Test1()
Dim d As Object
Dim x As String
  'Variable à trouver
  x = "C"
  'Création d'un dictionnaire
  Set d = CreateObject("Scripting.Dictionary")
  'Ajout des clés, valeurs
  d.Add "A", ""
  d.Add "B", ""
  d.Add "C", ""
  d.Add "D", ""
  'Test
  If d.Exists(x) Then
    MsgBox x & " existe"
  Else
    MsgBox x & " inconnu"
  End If
End Sub
Le même avec une référence à Microsoft Scripting Runtime :
Sub Test2()
' Ajouter une référence à Microsoft Scripting Runtime
Dim d As Scripting.Dictionary
Dim x As String
  'Variable à trouver
  x = "C"
  'Création d'un dictionnaire
  Set d = New Dictionary
  'Ajout des clés, valeurs
  d.Add "A", ""
  d.Add "B", ""
  d.Add "C", ""
  d.Add "D", ""
  'Test
  If d.Exists(x) Then
    MsgBox x & " existe"
  Else
    MsgBox x & " inconnu"
  End If
End Sub

panda · Answer

merci pour ta réponse.
comme ça, ça doit fonctionner effectivement.
ce qui est dommage c'est que je voulais une instruction la plus courte possible pour faire un simple

if Var appartient à {x,y,z} then

et rendre le code le plus lisible possible.
mais ça fera très bien faute de mieux.
je reste étonné qu'il n'y ai pas plus concis

panda · Answer

pas mal l'idée du dictionnaire, je connaissais pas. c'est un peu l'idée que j'avais, tester l'existence de ma variable dans un ensemble, là c'est dans un dictionnaire.

telliak · Answer

Salut,
As-tu essayé un truc genre
Select Case Var
  Case 1, 5, 12, ...
   Instructions
  Case else
End select ?
pas facile de faire plus simplouillet.

Yoda · Answer

Comme je le disais, on peut programmer une fonction pesonnalisée, du coup ça devient très simple et lisible, par exemple:

La fonction
Function Existe(table, elem) As Boolean
Existe = False
For i = LBound(table) To UBound(table)
   If table(i) = elem Then Existe = True
Next
End Function

Appel à la fonction
Sub essai()
A1 = Array(8, 9, 10, 11, 12, 13, 14, 15)
var=10
If Existe(A1, var) then
   MsgBox var & " existe"
  Else
    MsgBox var & " inconnu"
 End If

var="X"
S1 = Array("A", "B", "C", "D", "E")
If Existe(S1, var) then
   MsgBox var & " existe"
  Else
    MsgBox var & " inconnu"
 End If

End Sub

panda · Answer

bon du coup ca donnerait:

Function testchoix(Tabl As String, quoi As Integer) As Boolean

    montab = Array(Tabl)
    trouve = False
    For i = LBound(montab) To UBound(montab)
        If quoi = montab(i) Then trouve = True
    Next

End Function

et pour tester:

ouinon = testchoix("(1,3,5,7,9,11,13,15)", Var)
If ouinon = True Then
.....

mais ça n'a pas l'air de fonctionner, ma condition if est toujours fausse

Patrice33740 · Answer

Re,
«ce qui est dommage c'est que je voulais une instruction la plus courte possible pour faire un simple
if Var appartient à {x,y,z} then
et rendre le code le plus lisible possible»

Voici :
Sub test()
Dim var As Integer
  var = 12
  If Appartient(var, "8, 9, 10, 12, 14, 15") Then
    MsgBox var & " existe"
  Else
    MsgBox var & " inconnu"
  End If
End Sub

Private Function Appartient(var As Variant, liste As String) As Boolean
  Select Case CStr(var)
    Case liste
      Appartient = True
    Case Else
      Appartient = False
  End Select
End Function

Verifier si une variable appartient à un ensemble de valeurs

10 réponses

Discussions similaires

Newsletters