Table des matières
Ce tutoriel vous apprendra comment obtenir la longueur (taille) d'un tableau en VBA.
Obtenir la longueur du tableau
Afin d'obtenir la longueur d'un tableau, vous devez connaître les positions de début et de fin du tableau. Vous pouvez le faire avec les fonctions UBound et LBound de VBA.
Fonctions LBound et UBound
Cette procédure montre comment utiliser les fonctions UBound et LBound sur un tableau à dimension unique :
| 123456 | Sous-UBoundLBound()Dim exArr (1 à 4) en tant que chaîneMsgBox UBound(exArr)MsgBox LBound(exArr)Fin du sous-marin |
La soustraction des deux vous donnera la longueur du tableau (UBound - LBound +1).
Obtenir la fonction de longueur de tableau
Cette fonction calculera la taille (longueur) d'un tableau unidimensionnel :
| 1234567 | Fonction publique GetArrLength(a As Variant) As LongSi est vide(a) alorsGetArrLength = 0AutreGetArrLength = UBound(a) - LBound(a) + 1Fin siFonction de fin |
Obtenir la taille du tableau 2D
Cette fonction calculera le nombre de positions dans un tableau à deux dimensions :
| 12345678910111213141516171819 | Sous testTailleArry()Dim arr2D (1 à 4, 1 à 4) aussi longtempsMsgBox GetArrSize_2D(arr2D)Fin du sous-marinFonction publique GetArrSize_2D(a As Variant) As LongDim x aussi long, y aussi longSi est vide(a) alorsObtenirTailleArr_2D = 0Autrex = UBound(a, 1) - Lbound(a, 1) + 1y = UBound(a, 2) - Lbound(a, 2) + 1ObtenirTailleArr_2D = x * yFin siFonction de fin |
