Obtenir la longueur du tableau?

Je vais essayer d'obtenir la longueur d'un tableau mais je reçois le message d'erreur "Objet Requis".

Je fais quelque chose de mal?

Dim columns As Variant
columns = Array( _
"A", "ID", _
"D", "Name")
Debug.Print columns.Length ' Error: Object required

source d'informationauteur lisovaccaro

  1. 44

    La longueur d'un tableau:

    UBound(columns)-LBound(columns)+1

    UBound seul n'est pas la meilleure méthode pour obtenir la longueur de chaque tableau sous la forme de tableaux en VBA peut commencer à différents indices.e.g `Dim arr(2 à 10)

    UBound sera de retour des résultats corrects que si le tableau est basé sur 1 (l'indexation commence à 1 par exemple Dim arr(1 to 10). Il sera de retour de mauvais résultats dans d'autres circonstances, par exemple Dim arr(10)

    Plus sur le VBA Tableau dans ce VBA Tableau tutoriel.

  2. 4

    Fonction:

    Public Function ArrayLen(arr As Variant) As Integer
    ArrayLen = UBound(arr) - LBound(arr) + 1
End Function

    Utilisation:

    Dim arr(1 To 3) As String ' Array starting at 1 instead of 0: nightmare fuel
Debug.Print ArrayLen(arr) ' Prints 3.  Everything's going to be ok.
  3. -1

    Le moyen le plus rapide est d'utiliser UBound -> https://msdn.microsoft.com/en-us/library/95b8f22f%28v=vs.90%29.aspx