Tableau sous VB

Résolu
abouHafsa Messages postés 4 Date d'inscription mardi 18 décembre 2007 Statut Membre Dernière intervention 19 mars 2010 - 8 avril 2008 à 18:00
abouHafsa Messages postés 4 Date d'inscription mardi 18 décembre 2007 Statut Membre Dernière intervention 19 mars 2010 - 8 avril 2008 à 23:44
Bonjour

je voudrais savoir comment tester en VB qu'un tableau est vide (non alloué - par exemple dim tab() as UnType)

Merci

4 réponses

abouHafsa Messages postés 4 Date d'inscription mardi 18 décembre 2007 Statut Membre Dernière intervention 19 mars 2010
8 avril 2008 à 18:01
Précision, si j utilise Lbound ou Ubound,  le programme me retourne une erreur, j'ai testé avec la clause "Nothing"

qq'un peu m'aider ?
3
jmfmarques Messages postés 7668 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 28
8 avril 2008 à 23:39
Bonsoir,


Le plus simple est peut-être d'envoyer vers une fonction de vérification

Private Sub Command1_Click()
  Dim toto() As String
  Dim titi As Variant
  Let titi = toto
  MsgBox verif(titi)
End Sub



Private Function verif(titi As Variant) As Boolean
   verif = False
   On Error GoTo 10
   verif = UBound(titi) > 0
10:
End Function

Mais il y a probablement mieux, mais que j'ignore ...
0
abouHafsa Messages postés 4 Date d'inscription mardi 18 décembre 2007 Statut Membre Dernière intervention 19 mars 2010
8 avril 2008 à 23:44
j ai trouvé une astuce qui peut se traduire ainsi :

function IsEmptyArray(myTab as object) as boolean

on error goto errorFunc

   dim nb as long
   
   nb=ubound(myTab)

   IsEmptyArray=true
   exit function

errorFunc:
   IsEmptyArray=false
end function

Merci pour ta proposition

++
0
abouHafsa Messages postés 4 Date d'inscription mardi 18 décembre 2007 Statut Membre Dernière intervention 19 mars 2010
8 avril 2008 à 23:44
en fait c la meme que ta solution 2
0