Comment utiliser une boucle for each sur un tableau ?

[ForumBot]

J'ai un tableau de chaînes :

Dim sArray(4) as String

Je parcours chaque chaîne du tableau :

for each element in sarray
  do_something(element)
next element

do_something prend une chaîne en paramètre

J'obtiens une erreur en passant l'élément en tant que chaîne :

Incompatibilité d'argument ByRef

Dois-je convertir l'élément en chaîne ou autre chose ?

[ayi]

element 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.

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

L'autre option consiste à convertir le variant en chaîne avant de le passer.

  do_something CStr(element)