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

Comment utiliser une boucle for each sur un tableau ?

ayi

J'ai un tableau de chaînes :
<pre><code class="lang-auto">Dim sArray(4) as String

</code></pre>
Je parcours chaque chaîne du tableau :
<pre><code class="lang-auto">for each element in sarray
do_something(element)
next element

</code></pre>
<code>do_something</code> prend une chaîne en paramètre
J'obtiens une erreur en passant l'élément en tant que chaîne :
<blockquote></blockquote>
Incompatibilité d'argument ByRef
Dois-je convertir l'élément en chaîne ou autre chose ?

ayi_2

<code>element</code> doit être de type variant ; vous ne pouvez donc pas le déclarer en tant que chaîne. Votre fonction devrait accepter un variant si c'est une chaîne, à condition de le passer ByVal.
<pre><code class="lang-auto">Public Sub example()
Dim sArray(4) As string
Dim element As variant

For Each element In sArray
    do_something element
Next element

End Sub

Sub do_something(ByVal e As String)

End Sub

</code></pre>
L'autre option consiste à convertir le variant en chaîne avant de le passer.
<pre><code class="lang-auto"> do_something CStr(element)

</code></pre>