Astuce VBA : rechercher dans un tableau

Pour rechercher une valeur dans une variable tableau (Array) en VBA, commencez pour copiez cette fonction dans un module :

Function inArray(tableau, recherche)
    
    'https://www.excel-pratique.com/fr/astuces_vba/recherche-tableau-array
	
    inArray = False
    
    For i = LBound(tableau) To UBound(tableau)
        If tableau(i) = recherche Then 'Si valeur trouvée
            inArray = True
            Exit For
        End If
    Next
    
End Function

La fonction inArray renverra ensuite True ou False en fonction du résultat.

Voici un exemple simple qui va rechercher la présence de la valeur de la variable valeurRecherche dans le tableau tableau et afficher Vrai ou Faux dans une MsgBox :

Sub test()
    
    tableau = Array(23, 67, 38, 17, 854, 9, 92)

    valeurRecherche = 17
    
    MsgBox inArray(tableau, valeurRecherche)

End Sub