Tableau et champs vides

Bonjour,

je split mes champs qui ont pour séparateur "@" de cette facon pour créer mon tableau :
Code:

1 2 3 4 5 6 7 8 9 10 11 mTab = Split(result, "@") IP_Adress = mTab(0) Subnet_Mask = mTab(1) Unique_ID = mTab(2) Lease_Expires = mTab(3) Lease_Type = mTab(4) Name = mTab(5) wscript.echo IP_Adress & " " & Subnet_Mask & " " & Unique_ID & " " & Lease_Expires & " " & Lease_Type & " " & Name
ca fonctionne sans problème.

Sauf que à certaines lignes mon champs (5) est vide :

Citation:

10..XX.XX.0@255.255.254.0@18-XX-XX-XX-XX-XX@02/12/2012_21:46:15@D-@XXX.mondomaine.fr
10..XX.XX.0@255.255.254.0@18-XX-XX-XX-XX-XX@03/12/2012_09:32:57@D-@XXX.mondomaine.fr
10..XX.XX.0@255.255.254.0@18-XX-XX-XX-XX-XX@03/12/2012_14:39:22@D-@XXX.mondomaine.fr
10..XX.XX.0@255.255.254.0@18-XX-XX-XX-XX-XX@04/12/2012_01:00:04@D-
10..XX.XX.0@255.255.254.0@18-XX-XX-XX-XX-XX@03/12/2012_14:01:01@D-@XXX.mondomaine.fr

exemple :

Citation:

10..XX.XX.0@255.255.254.0@18-XX-XX-XX-XX-XX@04/12/2012_01:00:04@D-

Et j'obtiens une erreur :

Citation:

Erreur d'exécution Microsoft VBScript: Indice en dehors de la plage: '[number: 5]'

Comment faire pour gerer les erreurs si champs vide svp ?

J'ai essayé avec ISEmpty ISNull etc mais ca ne fonctionne pas car mon champs n'est pas défini.

Merci d'avance.

Salut

En remplacent la ligne 9 par

Code:

If UBound(mTab) < 5 Then Name = "Non renseigné" Else Name = mTab(5)

cela devrait régler le problème.

C'est exactement ce que je voulais merci encore ;)