Tableau vide

Bonjour,

j'utilise un tableau dynamique qui doit être listé à un moment donné. Le problème est qu'à ce moment le tableau peut être vide. Comment savoir si un tableau est vide ?

Exemple :

Dim tableau() as integer
Dim element as variant

for each element in tableau
=> Plantage : Erreur 92, boucle for non initialisée

Je ne veux pas utiliser de "On error resume next" !

Merci de votre aide.

Salut,

Bah en fait, y'a pas trop d'autre solution.
J'ai une petite routine que je balade de programme en programme et qui marche très bien.

Public Function IsEmptyArray(ByVal Prm_varArray As Variant) As Boolean

Dim varTmp As Variant

On Error Resume Next

varTmp = Prm_varArray(0)
IsEmptyArray = Err.Number = 9

Err.Clear

End Function

C'est relativement propre et ca marche bien.
Utilisation :

If Not IsEmptyArray(tableau) Then
' Le tableau n'est pas vide...
Else
' Il est vide !
End If

-------------------------------
Réponse au message :
-------------------------------

Bonjour,

j'utilise un tableau dynamique qui doit être listé à un moment donné. Le problème est qu'à ce moment le tableau peut être vide. Comment savoir si un tableau est vide ?

Exemple :

Dim tableau() as integer
Dim element as variant

for each element in tableau
=> Plantage : Erreur 92, boucle for non initialisée

Je ne veux pas utiliser de "On error resume next" !

Merci de votre aide.

Merci bcp pour ta reponse, je l ai trouve en parcourant le forum, tu viens de me sauver la vie
petite precision, si c un tableau de type defini par l utilisateur, il suffit de remplacer variant par celui ci.
je me doute que tu le savais mais pour d'autre ca peut etre utile
@+