Discussion :

[Martin_77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[jfontaine]

Bonjour,

Voila un code

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
 
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

[Martin_77]

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.

[jfontaine]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Martin_77]

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 ----

[Krovax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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