VBA : Nombre de dimensions d'un tableau Visual Basic

Numéro d'article: 463219 - Voir les produits auxquels s'applique cet article
Ancien nº de publication de cet article : F13219
Agrandir tout | Réduire tout

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

Numéro d'article: 463219 - Dernière mise à jour: mardi 19 août 2003 - Version: 1.1
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • 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
Mots-clés : 
vba KB463219
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com