Taille d’un tableau dans Excel VBA
Pour obtenir la taille d’un tableau dans Excel VBA, vous pouvez utiliser les fonctions UBound et LBound.
Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivant:
-
Tout d’abord, nous devons déclarer le tableau. Notre tableau a deux dimensions.
Il est composé de 5 rangées et 2 colonnes. déclarer également deux variables de type entier.
Dim Films(1 To 5, 1 To 2) As String, x As Integer, y As Integer
Le tableau peut ressembler à ceci.
-
Ensuite, nous obtenons la taille du tableau. Ajoutez les lignes de code suivantes:
x = UBound(Films, 1) - LBound(Films, 1) + 1 y = UBound(Films, 2) - LBound(Films, 2) + 1
UBound (Films, 1) donne la limite supérieure de la première dimension, qui est 5.
LBound (Films, 1) donne la limite inférieure de la première dimension, qui est égal à 1.
UBound (Films, 2) donne la limite supérieure de la seconde dimension, qui est égal à 2.
LBound (Films, 2) donne la limite inférieure de la seconde dimension, qui est égal à 1.
Par conséquent, x est égal à 5 et y est égal à 2.
-
Nous utilisons un MsgBox pour afficher le nombre d’éléments du tableau.
MsgBox "This array consists of " & x * y & " elements"
Résultat:
