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.