OVH Cloud OVH Cloud

Test d'appartenance

1 réponse
Avatar
Eric Beaumard
Bonsoir

J'ai une fonction qui prend comme argument un objet
range (R) contenant des entiers. Je voudrais vérifier qu'une valeur x (un
entier)
apparait ou pas dans cet objet. Je pourrais tester une à une les valeurs
mais je voudrais savoir si VBA propose quelque chose comme l'opérateur
de test d'appartenance à un ensemble "in" du pascal. Autrement dis
j'aimerais utiliser une function ou une méthode pour écrire quelque chose
comme: "if x in R then" ... ou "if R.existe(x) then" .... (je veux bien
utiliser une collection au lieu d'un objet range, bien entendu).

Cela existe-t-il en VBA ?


Cordialement

Eric Beaumard

1 réponse

Avatar
Patrice Henrio
Dim C as variant, Trouvé as boolean
For each C in R
Trouvé=Valeur_cherchée
If Trouvé then exit for
Next

"Eric Beaumard" a écrit dans le message de news:
44b42927$0$17261$
Bonsoir

J'ai une fonction qui prend comme argument un objet
range (R) contenant des entiers. Je voudrais vérifier qu'une valeur x (un
entier)
apparait ou pas dans cet objet. Je pourrais tester une à une les valeurs
mais je voudrais savoir si VBA propose quelque chose comme l'opérateur
de test d'appartenance à un ensemble "in" du pascal. Autrement dis
j'aimerais utiliser une function ou une méthode pour écrire quelque chose
comme: "if x in R then" ... ou "if R.existe(x) then" .... (je veux bien
utiliser une collection au lieu d'un objet range, bien entendu).

Cela existe-t-il en VBA ?


Cordialement

Eric Beaumard