Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

Comment trouver si un tableau contient une chaîne

ayi

Doublon possible :
<a href="https://stackoverflow.com/questions/10951687/how-to-search-for-string-in-ms-access-vba-array" rel="noopener nofollow ugc">How to search for string in MS Access VBA array</a>
Je travaille actuellement sur une macro Excel, et je n’ai pas trouvé de moyen de faire comme 
<code>if array.contains(mystring)</code>
J’ai écrit ce qui suit, et cela me donne le message “Invalid Qualifier” et surligne le <code>Mainfram</code> juste après <code>If</code>
<pre><code class="lang-auto">Dim Mainfram(4) As String

Mainfram(0) = "apple"

Mainfram(1) = "pear"

Mainfram(2) = "orange"

Mainfram(3) = "fruit"

For Each cel In Selection
    If Mainfram.Contains(cel.Text) Then
        Row(cel.Row).Style = "Accent1"
    End If
Next cel

</code></pre>
La sélection est une colonne.
Quelqu’un peut-il m’aider ?
Bonjour, JP 
J’ai essayé votre suggestion, et cela a dit Object required. Et a surligné le 
If IsInArray(cell.Text, Mainfram) Then 
Voici mon code complet :
<pre><code class="lang-auto">Sub changeRowColor()

Columns("B:B").Select

Dim cel As Excel.Range
Dim Mainfram(4) As String

Mainfram(0) = "apple"
Mainfram(1) = "pear"
Mainfram(2) = "orange"
Mainfram(3) = "Banana"

For Each cel In Selection
If IsInArray(cell.Value, Mainfram) Then
Rows(cel.Row).Style = "Accent1"
End If
Next cel

End Sub

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean

IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1)

End Function

</code></pre>
Peu importe, j’ai trouvé cette erreur stupide… 
Merci quand même.
<hr>
Source : <a href="https://stackoverflow.com/questions/10951687/how-to-search-for-string-in-ms-access-vba-array" rel="noopener nofollow ugc">Stack Overflow</a>

ayi_2

En utilisant le code de <a href="https://stackoverflow.com/a/10952705/190829">ma réponse</a> à une question très similaire :
<pre><code class="lang-auto">Sub DoSomething()
Dim Mainfram(4) As String
Dim cell As Excel.Range

Mainfram(0) = "apple"
Mainfram(1) = "pear"
Mainfram(2) = "orange"
Mainfram(3) = "fruit"

For Each cell In Selection
If IsInArray(cell.Value, MainFram) Then
Row(cell.Row).Style = "Accent1"
End If
Next cell

End Sub

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1)
End Function

</code></pre>