Tester si un élément est dans paramArray

[guidav]

Bonjour

J'ai une fonction à arguments variables dont la structure est la suivante

Code :

1
2
3
4
5
6
7
8
 
Function mafonction(arg1 As Long, ParamArray tableau() As Variant)
 
If UBound(etatsReporting) = -1 Or Belongs("toto", etatsReporting) Then
'des trucs
end if
 
end function

où Belongs est une fonction qui teste l'appartenance à un tableau, le code est (reprenez-le si nécessaire)

Code :

1
2
3
4
5
6
7
8
9
10
'Renvoie true si un element appartient à un tableau
Function Belongs(Item, MyArray As Variant) As Boolean
    Dim Member
    Belongs = False
    If Not IsNull(MyArray) Then
        For Each Member In MyArray
            If Item = Member Then Belongs = True: Exit Function
        Next
    End If
End Function

Le problème est que j'ai l'erreur "utilisation incorrecte de ParamArray" quand j'appelle ma fonction comme ceci :

Code :

mafonction(0)

Quelqu'un saurait-il m'expliquer pourquoi ?

Merci d'avance

[kiki29]

Sakut, à lire http://silkyroad.developpez.com/vba/tableaux/#LX , si ce n'est pas déjà fait

[guidav]

Merci, déjà lu

[Qwazerty]

Salut

Ben relit le alors

ParamArray:
* Doit obligatoirement être déclaré en type Variant.
* Ne peut pas coexister avec des arguments Optional.
* Doit être placé en dernière position dans la liste des arguments.
* Les arguments ne sont pas facultatifs.
* Chaque argument peut être d'un type de données différent.
* Le nombre d'arguments n'est pas limité.
* L'indice inférieur du tableau est toujours 0.

++
Qwaz