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 de caractères :

Dim sArray(4) as String

Je parcours chaque chaîne dans le tableau :

for each element in sarray
  do_something(element)
next element

do_something prend une chaîne de caractères en paramètre

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

ByRef Argument Mismatch

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

ayi

element doit être un 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, tant que vous le passez 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 est de convertir le variant en chaîne avant de le passer.

  do_something CStr(element)