Compter nombres de lignes dans un tableau

Version imprimable

08/07/2014, 12h05
blanquettedeveau

Compter nombres de lignes dans un tableau
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:

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
08/07/2014, 12h38
ProgElecT

Salut

Code:

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

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

Code:

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