renvoyer un tableau

Question

pour renvoyer un tableau avec une fonction, jai essay&#233; 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*
-------------------->

cs_phil23 · Answer

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&#233;f&#232;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

konyaliseref · Answer

cest normal kil me mette "subscript out of range" lorsque je veux lire le contenu du tableau...??

C* Konyali$eref C*
-------------------->

cs_phil23 · Answer

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

konyaliseref · Answer

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*
-------------------->

Renvoyer un tableau

4 réponses

Discussions similaires