Discussion :

[Nico820]

Salut,

j'essaye désespérement de détecter si un tableau de strings est vide ou pas, plusieurs méthodes ont été tentées: IsEmpty, Nothing, tableau de Variants intermédiaire,... sans résultat.
Important: le tableau doit être dynamique et peut être initialisé ou pas.
Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim Tableau() As String
If IsEmpty(Tableau)=False Then...

Merci d'avance,

Nicolas

[fring]

Bonjour,

Comme ceci peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
Dim Tablo() As String, VerifTablo As Boolean, i As Integer
 
'Redim Tablo(5)
 
On Error GoTo suite
For i = 0 To UBound(Tablo)
    If Tablo(i) <> "" Then VerifTablo = True
Next
 
Select Case VerifTablo
    Case False: MsgBox "Le tableau est vide"
    Case True: MsgBox "Le tableau contient des données"
End Select
 
Exit Sub
suite:
MsgBox "Le tableau n'a pas été initialisé"
 
End Sub

[Nico820]

Merci pour la réponse, ça marche mais une méthode plus "solide" serait meilleure, c'est à dire sans passer par un GoTo. Le programme est complexe et il s'agit en fait de tableaux de types de tableaux

[fring]

Perso je n'ai pas de solution plus "solide"..., je ne vois pas comment éviter une gestion d'erreur vu que tu précises que ton tableau n'est pas forcément initialisé, ce qui provoque une erreur lors de sa vérification.

Il y a peut-être une autre méthode mais je ne la connais pas.
Bonne journée
.

[Nico820]

J'ai regardé de plus près la gestion d'erreurs, et ça a l'air en effet fiable.
Pour info, j'ai utilisé la methode "resume next" pour le cas d'erreurs gérées dans une boucle for.
Merci pour le coup de pouce.