Tableau vide

[Lucy]

Bonjour,

J'ai créé un tableau (Dim tableau() As Double).
Je l'ai redimensionné ReDim Preserve TmpExp1(1 To 2, 1 To 1).
Mais je cherche un moyen de savoir si le tableau est vide ou pas !
COmment puis je faire ?
Merci d'avance !

 

[Robert]

Bonjour Lucy, bonjour le forum

TmpExp1(LBound(TmpExp1, 1), LBound(TmpExp1, 2)) te renvoie rien si ton tableau est vide. Une condition du style :

If TmpExp1(LBound(TmpExp1, 1), LBound(TmpExp1, 2)) = '' Then MsgBox 'vide'

te permettrait de t'en assurer

Édition

Heu je suis peut être allé trop vite là. Il faut que je vérifie.... après manger.

Édition 2

Ça c'est plus sûr :

Sub Macro1()
For x = 0 To UBound(TmpExp1, 1)
For y = 0 To UBound(TmpExp1, 2)
If TmpExp1(x, y) <> 0 Then
MsgBox 'TmpExp1 non vide'
Exit Sub
End If
Next y
Next x
End Sub

Message édité par: Robert, à: 11/05/2005 14:19