renvoyer un tableau

pour renvoyer un tableau avec une fonction, jai essayé la syntaxe suivante mais ca marche pas :

function blabla() as string()
   dim sTableau() as string
   ici je remplit mon tableau
   blabla = sTableau()
end function

et je recupere le tout comme ca

for each valeur in sTableau()
   tralala
next

et la erreur sur "valeur" !!!! "compile error : For Each control variable on arrays must be Variant"

de laide !!!!!    


C* Konyali$eref C*
-------------------->

La fonction qui retourne le tableau est juste:

Private Function blabla() As String()
Dim sTableau() As String

    'Remplir
    ReDim sTableau(2)
    sTableau(0) = "aaa"
    sTableau(1) = "bbb"
    sTableau(2) = "ccc"
   
    'Retourne le tableau
    blabla = sTableau()
   
End Function


Le message d'erreur veut dire que si tu veux faire un for each sur un tableau du doit avoir une variable de type Variant:

Dim Tableau() As String
Dim sChaine As Variant

    Tableau() = blabla()
   
    For Each sChaine In Tableau()
        MsgBox sChaine
    Next


Pour ma part, je préfère utiliser une boucle For:

Dim Tableau() As String
Dim i As Long

    Tableau() = blabla()
   
    For i = LBound(Tableau()) To UBound(Tableau())
        MsgBox Tableau(i)
    Next

cest normal kil me mette "subscript out of range" lorsque je veux lire le contenu du tableau...??

C* Konyali$eref C*
-------------------->

Essaie d'ajouter   Option Base 0   dans la déclaration du module ou tu utilises cette fonction.
Cela indique à VB que le premier indice des tableaux est zéro.

mon cher phil taurais pas une autre idee car jai essayer de mettre option base 0 partout mais ca me met toujours la meme erreur....

C* Konyali$eref C*
-------------------->