Astuce VBA : rechercher dans un Array

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

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

La fonction in_array 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 "valeur_a_rechercher" dans le tableau "mon_tableau" et afficher Vrai ou Faux dans une MsgBox :

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

    valeur_a_rechercher = 17
    
    MsgBox in_array(mon_tableau, valeur_a_rechercher)

End Sub