<pre data-code-wrap="vba"><code class="lang-vba">Dim arr(1 To 10) As Integer
' Nombre d'éléments
Dim longueur As Long
longueur = UBound(arr) - LBound(arr) + 1
' Ou pour un tableau commençant à 0
Dim arr2(0 To 9) As Integer
longueur = UBound(arr2) + 1
</code></pre>
<p>Note : Utilisez <code>UBound</code> et <code>LBound</code> pour obtenir les limites supérieure et inférieure. Cela fonctionne aussi pour les tableaux multidimensionnels :</p>
<pre data-code-wrap="vba"><code class="lang-vba">UBound(arr, 1) ' première dimension
UBound(arr, 2) ' deuxième dimension
</code></pre>