Vous êtes actuellement hors ligne, en attente de reconnexion à Internet.

VBA : Nombre de dimensions d'un tableau Visual Basic

Ancien nº de publication de cet article : F13219
Symptômes

En Visual Basic pour Excel, je souhaiterais connaître le nombre de
dimensions d'un tableau Visual Basic. Comment dois-je procéder ?


Résolution

Il suffit de chercher à calculer la limite inférieure (ou supérieure)
d'une dimension, en incrémentant l'indice de la dimension testée.
L'apparition d'une erreur indiquera que la dimension i n'existe pas, donc
que le tableau a i-1 dimensions.


EXEMPLE :

La fonction NombreDimensions retourne le nombre de dimensions d'un
tableau passé en paramètre.

#########################################################################
' Code Visual Basic français

Fonction NombreDimensions (monTableau en variant)
Dcl i En Entier
Dcl monRetour En Variant

Quand Erreur Reprendre Suivant
Faire
i = i + 1
monRetour = LimiteInf(monTableau; i)
Boucle Jusque ErrCode <> 0
Quand Erreur AllerA 0
NombreDimensions = i - 1
Fin Fonction
' Code Visual Basic anglais

Function NombreDimensions(monTableau As Variant)
Dim i As Integer
Dim monRetour As Variant

On Error Resume Next
Do
i = i + 1
monRetour = LBound(monTableau, i)
Loop Until Err <> 0
On Error GoTo 0
NombreDimensions = i - 1
End Function
#########################################################################



Références

Pour plus de renseignements, veuillez vous référer à :

- L'aide en ligne de Visual Basic pour Excel, aux rubriques des mots
clés concernés.
- Guide de l'utilisateur de Microsoft Visual Basic pour Excel, chapitre
9 :"Gestion des erreurs et valeurs d'erreur".
Propriétés

ID d'article : 463219 - Dernière mise à jour : 08/19/2003 16:19:00 - Révision : 1.1

Microsoft Excel 5.0 pour Macintosh, Microsoft Visual Basic pour Applications 1.0, Microsoft Excel 5.0 Standard, Microsoft Excel 5.0 Standard, Microsoft Excel 5.0c

  • vba KB463219
Commentaires
/html>acking = 1; var varCustomerTracking = 1; var Route = "76500"; var Ctrl = ""; document.write(" e="display: none; " src="https://c1.microsoft.com/c.gif?DI=4050&did=1&t=">