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