Discussion :

[Floriang33]

Bonjour,

J'ai un petit problème de type avec une fonction mais je ne vois pas d'où cela peut venir.

Voilà le code vba (épuré des éléments inutiles):

Code :

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

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

Merci à vous.

[Iceabyssal]

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 :

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

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 ?