Discussion :

[irenee]

Bonjour,

Pour créer une liste, il suffit de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
dim liste()

Mais, j'ai une fonction qui retourne une liste. Donc je voudrais affecter à liste le résultat de la fonction.
Comment dois je faire

J'ai essayé ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
liste = fonction()
liste() = fonction()

Pour le 1er , j'ai un type Mismatch , le 2nd , un Subscript out of range
Donc si quelqu'un pourrait me corriger. Merci

[Crazyblinkgirl]

Bonjour,

J'ai la même chose et je fais simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim liste
liste = fonction()

[irenee]

oh merci ça marche ... Je n'avais pas testé cette manière puisque j'essayais d'affecter le résultat de la fonction à une liste que j'avais donc déclaré liste() et déja utilisé...
Merci beaucoup Crazyblinkgirl

Par contre j'ai un autre souci. Si je fais ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim liste, taille
liste = fonction()
taille = ubound(liste)

J'ai donc l'erreur de type pour le ubound, je ne peut donc pas connaitre la taille de la liste retournée. Y aurait il un moyen de la connaitre?

[Crazyblinkgirl]

Peux-tu nous montrer le code de fonction() ?

[irenee]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function getElementsByIndex(tableau, liste_index) 
dim retour(), taille, i
taille = ubound(tableau)
redim retour(ubound(liste_index))
for i=0 to ubound(liste_index)
    if liste_index(i) > 0 and liste_index(i) <= taille then
        retour(i) = tableau(liste_index(i))   
    else 
        ' overflow 
    end if 
next
getElementsByIndex = retour 
end function

Pour résumer, j'ai 2 listes, je renvoie une liste qui contient tous les éléments de la 1ere liste dont les indices sont écrits dans la seconde.