Nombre d'éléments dans un tableau de variantes à une dimension dans Excel

Question

Ce code est-il correct pour déterminer le nombre d'éléments dans un tableau de variantes à dimension unique dans Excel VBA. Supposons que j'ai un tableau de variantes nommé Array1 avec k éléments.

Dim n as Integer
n = UBound(Array1)

Answer 1

Pour obtenir un décompte précis, vous devez faire UBound - LBound + 1. C'est parce que les tableaux ne doivent pas aller de l'index 1 à n, ils peuvent commencer à peu près n'importe quel index que vous voulez. Voici un exemple où il passe de 3 à 7, soit un total de 5 éléments (3, 4, 5, 6 et 7):

Sub tgr()

    Dim Array1(3 To 7) As Variant
    Dim lNumElements As Long

    lNumElements = UBound(Array1) - LBound(Array1) + 1
    MsgBox lNumElements

End Sub