[XL-2002] Problème de parametre fonction : tableau d'entier

Sub Macro1() 'Déclaration des variables Dim tb_gravite3() As Integer 'Redimension des tableaux en fonction de la longueur de la feuille 1 numligne = Range("A65536").End(xlUp).Row ReDim tb_gravite3(numligne) MsgBox NbElement(tb_gravite3) End Sub Function NbElement(ByRef Tableau() As Integer) As Integer Dim i, resultat As Integer Dim trouve As Boolean trouve = False Do While i <= UBound(Tableau) And Not trouve If Tableau(i) = Null Then resultat = i trouve = True End If Next i NbElement = resultat End Function

Salut,

Tu as peut-être un peu trop épuré ton code... Du coup il fonctionne bien lorsque l'on corrige les fautes de recopie et qu'on le colle dans un excel vide :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub Macro1()
 
    'Déclaration des variables
    Dim tb_gravite3() As Integer
 
    'Redimension des tableaux en fonction de la longueur de la feuille 1
    numligne = Range("A65536").End(xlUp).Row
    ReDim tb_gravite3(numligne)
 
    MsgBox NbElement(tb_gravite3)
 
End Sub
 
Function NbElement(ByRef Tableau() As Integer) As Integer
 
    Dim i, resultat As Integer
    Dim trouve As Boolean
    trouve = False
 
    Do While i <= UBound(Tableau) And Not trouve
        If Tableau(i) = 0 Then
            resultat = i
            trouve = True
        End If
        i = i + 1 'Sinon on boucle indéfiniment !!!
    Loop 'ET PAS NEXT !!!
 
    NbElement = resultat
 
End Function

Essaie de nous mettre plus de détails... L'erreur de type apparait à quel endroit lorsque tu execute en pas-à-pas ?