Erreur ByRef et tableau

Bonjour,
J'ai un tableau dynamique Tableau(), et je souhaiterai utiliser la donnée de Tableau(1) dans une fonction.
Sauf qu'au niveau de :
Variable = Fonction(Tableau(1)) : j'obtient un message d'erreur qui me dit que le type ByRef est incompatible.

Si, au niveau de la déclaration de la fonction, j'ajoute "ByVal" juste devant le nom de la varible pour l'argument ; je n'ai plus d'erreur.
Mais si je n'ai pas accès à la déclaration de la variable, comme pour par exemple :

List1.list(Tableau(1)) : j'ai la même erreur.

La seule solution que j'ai trouvé est de placer le contenu de Tableau(1) dans une variable intermédiaire, mais ce n'est pas pratique.
Quelqu'un aurait il une solution ?

Merci d'avance

Salut, pour te répondre, j'aimerais bien connaître le code de ta function.

Par ailleurs, si Tableau(1) contient un integer, je ne vois pas pourquoi List1.list(Tableau(1)) te renverrait une erreur si Tableau(1) contient de l'integer et que ce nombre est < List1.ListCount.

Salut,

je confirme, il nous faut ta fonction pour te répondre.
Les types de données doivent être correspondant.

@++

---

Function NumContact(Nom As String) As Integer For i = 0 To (List1.ListCount - 1) If Nom = List1.List(i) Then ContactVersNum = i Exit Function End If Next i End Function Voilà une des fonctions

"Et pour finir, si la fonction est placée hors du Module de la Form où se trouve ta List1, il faut, devant List1 dans le code de ta fonction, placer le nom de la Form." Oui, ça je sais bien :P Après avoir re-testé quelques fois, il y a des trucs qui ne marchaient pas avant et qui marchent maintenant, sans même avoir remarqué ce que j'ai modifié entre temps lol. Bref, le problème a l'air résolu.. Merci de vos réponses

De rien,

et  "Oui, ça je sais bien :P"  >> c'était au cas où  :$

bonne prog

@++

---

En plus de ce que Mortalino t'a expliqué, une Function doit retourner une valeur, ici un Integer. Peut-être est-ce une faute d'inattention, peut-être que la Function a été modifiée avec le temps et que tu as oublié de changer le nom de la Function de retour,... Et possiblement que tu n'as pas Option Explicit déclaré en haut de la page de code....


Function NumContact(Nom As String) As Integer

For i = 0 To (List1.ListCount - 1)
  If Nom = List1.List(i) Then
'  ContactVersNum = i
  NumContact = i  ' ici, ce doit être le nom de la Function, en principe.
  Exit Function
  End If
Next i

End Function

MPi

Effectivement j'ai modifié le nom de la fonction pour l'afficher ici ; le nom de départ de la fonction est bien ContactVersNum :). Donc il n'y avais pas de problème à ce niveau là Mais bonne remarque