Comparer variable et contenu d'un tableau

Bonjour à toutes et à tous,

il me semble avoir déjà rencontré une fonction qui retourne True si l'argument ValeurCherchée correspond à une valeur du tableau.
comme je ne l'ai pas retrouvée, j'en ai créée une qui me donne le résultat escompté (exemple un peu simple pour être clair).

Code:

---

1 2 3 4 5 6 7

Function RechercheDansTableau(ValeurCherchée As String) As Boolean Dim Chaîne As Variant For Each Chaîne In Array("Ane", "Moineau", "Cheval", "Chat", "Chien", "Abeille", "Mouche") If ValeurCherchée = Chaîne Then RechercheDansTableau = True: Exit Function Next Chaîne End Function

---

L'un ou l'une d'entre vous aurait-il la syntaxe d'une fonction du VBA pouvant remplacer ma fonction. Dans ce cas, on passerait en paramètre le tableau en plus de la valeur cherchée.

Merci d'avance.

Bonjour,

Voila un code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function RechercheDansTableau(ValeurCherchée As String, Tableau() As String) As Boolean   Dim i As Integer   For i = 0 To UBound(Tableau)   If Tableau(i) = ValeurCherchée Then RechercheDansTableau = True Exit Function End If   Next   End Function

---

Bon courage

Bonjour Jérome,

Merci pour ta réponse.

C'est en fait cette syntaxe là que j'utilise mais j'ai présenté mon exemple autrement pour faire plus simple.

Je suis presque sûr d'avoir déjà vu une fonction toute faite.

Par exemple : si je doit vérifier qu'une valeur cherchée se trouve dans une série de 3 valeurs, j'ai 3 solutions :

- If ValeurCherchée = "Ane" Or ValeurCherchée = "Mouche" Or ValeurCherchée = "Corbeau" Then -----

- J'utilise la fonction précédente en passant mes 3 valeurs comme paramètre d'un tableau.

- If ValeurCherchée In ("Mouche" , "Corbeau", "Vipère") Then ----. Je cherche une syntaxe similaire car celle-ci ne marche pas. Bien que ta fonction que j'utilise aussi fonctionne très bien, c'est plus le fait d'avoir déjà vu quelque chose que je ne retrouve pas qui m'énerve un peu.

J'espère avoir été un peu plus clair dans ma demande.

Ou sont les 3 valeurs?
Si elles se trouvent dans une colonne, tu peux utiliser la fonction NB.SI

Code:

---

If Application.WorksheetFunction.SumIf(ValeurCherchée, Range("A:A")) > 0 Then

---

J'ai testé cette fonction dans la fenêtre d'exécution. Il faut d'abord mettre la plage de cellules et la fonction additionne les valeurs qui correspondent au critère si elles sont numériques.

Ce que je cherche est un peu différent : je veux savoir si une valeur est égale à une des 3 constantes sans avoir à écrire :
- If ValeurCherchée = "Ane" Or ValeurCherchée = "Mouche" Or ValeurCherchée = "Corbeau" Then -----

Il me semble que l'on peut écrire quelque chose du genre :
- If ValeurCherchée In ("Mouche" , "Corbeau", "Vipère") Then ----

Bonsoir,
Il me semble que le in n'existe pas ainsi, la seule idée qui me viens a l'esprit
Transformer les différentes possibitlité en une chaine de caractère avec un séparateur et tester la présence du mot dans la chaine

Code:

---

1 2	If InStr("/Mouche/Corbeau/Vipère/", "/" & ValeurCherchée & "/") <> 0 Then MsgBox "La valeur a été trouvée"

---

Merci,

Je n'avais pas pensé à utiliser cette instruction que j'utilise couramment dans d'autres cas.

J'étais sûr que le In ou quelque chose d'équivalent existait mais je confonds peut-être avec un autre langage.

Avant de marquer "Résolu", je vais attendre lundi puis je considérerai le Pb résolu.

Encore merci et bonne fin de soirée.

A tout hasard, j'avais entendu comme toi, mais plutot dans un cours .NET, donc je viens d'aller fair un tour sur le cours du Docteur Lasserre (on se demande s'il a le temps de soigner qqn lui ! 8O)


IndexOf

Recherche un objet spécifié dans un tableau unidimensionnel (trié ou non), retourne l'index de la première occurrence.

Code:

---

1 2	Dim myIndex As Integer = Array.IndexOf(myArray, myString)

---

OU

A partir du Framework 2 les Arrays ont donc de nouvelles méthodes:
* Find
* Recherche un élément qui correspond aux conditions définies par le prédicat et retourne la première occurrence.


J'ai pas testé en VBA, tu peux nous dire ?

Bonjour Datacell33

J'ai vérifié ton instruction dans le VBA

Code:

---

Dim myIndex As Integer = Array.IndexOf(myArray, myString)

---

Pour vérifier si un mot clé correspond à une instruction, il faut cliquer dessus et appuyer sur F1. Si l'aide répond "Mot clé introuvable", ce qui est le cas ici, c'est que l'instruction n'existe pas dans le VBA.

Merci pour ta suggestion.

salut
sinon, tu peux utiliser une formule sommeprod qui te donnera le resultat en 1 ou zéro a défaut de true et false

Citation:

---

=SOMMEPROD((A:A=B1)*1)

---

évidement si tu as des doublon dans ta liste, il te renvera 2, tu peux donc contourner en apliquant une formule si

Citation:

---

=SI(SOMMEPROD((A:A=B1)*1)>0;"true";"false")

---

éfidement si tu traite la colonne, tu ralenti le traitement, donc le mieux est de définir une plage

Citation:

---

=SI(SOMMEPROD((A1:A4200=B1)*1)>0;"true";"false")

---

et le encore mieux
tu defini un nom pour ta plage avec une formule decaler qui te la rendra dynamique

Citation:

---

maplage =DECALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A:$A))

---

la formule devient

Citation:

---

=SI(SOMMEPROD((maplage=B1)*1)>0;"true";"false")

---

bon wek end

Merci pour tes suggestions mais ma demande était de rechercher une instruction que je croyais exister dans le VBA.

Comme il y a 2 solutions pleinement satisfaisantes, je vais considérer ce problème comme résolu.

Encore merci pour vos contributions !