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