Discussion :

[blanquettedeveau]

Bonjour j'ai une petite vérif toute bête à faire mais je n'y arrive pas.

Voilà j'ai une chaine de carcatère séparée en 5 champs par des underscores.

Je fais donc un Split de cette chaine avec underscore comme séparateur et renvoie le split dans un tableau pour vérifier ensuite chaque champs :

Code :

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

1
2
3
4
5
6
7
Dim Tab
	Tab = Split(sign, "_")
	svr =  Tab(0)
	nomproduitversion = Tab(1)
	OS =  Tab(2)
	versionOS =  Tab(3)
	secu =  Tab(4)]

Je voudrais d'abord dire :

Si mon tableau possède moins de 5 champs alors c'est pas bon.
Si mon tableau possède plus de 5 champs alors c'est pas bon.

Voilà j'imagine que c'est tout bête mais je ne trouve que des réponses pour du VBA et des Worksheet excel...
Cordialement,
Merci de votre aide

[ProgElecT]

Salut

Code :

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

MsgBox "Mon tableau contient " & Ubound(MaVariableTableau) " champs"

[hackoofr]

Essaye UBound(Tableau) qui détermine l'indice le plus élevé du tableau.
La fonction LBound détermine la limite inférieure.

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
sign = "Server_Norton 360_version 2.0_Windows 7_Securite"
Dim Tab
Tab = Split(sign,"_")
svr =  Tab(0)
nomproduitversion = Tab(1)
OS =  Tab(2)
versionOS =  Tab(3)
secu =  Tab(4)
MAX = UBound(Tab)
Message = "La taille maximale du tableau est : "& MAX & VbCrLF &_
svr & vbtab & vbtab & nomproduitversion & vbtab & versionOS & vbtab & secu
If MAX <= 5 Then
    msgbox Message,VbInformation,"OK c'est bon !"
else
    msgbox "KO ce n'est bon !",VbCritical,"KO ce n'est bon !"
End if