savoir la taille d'un tableau Résolu

Question

Bonjour le Forum,
J'ai un petit problème 
Comment savoir la taille d'un tableau d'entiers
Bonne journée !


Configuration: Windows 7 / Chrome 43.0.2357.81

NHenry · Answer

Quelle version de VB ?

Utilisateur anonyme · Answer

Bonjour mohamed_2016,

Si ta question est pour VBA Excel, je veux bien te répondre
si tu me donnes ces précisions supplémentaires :

a) Quel type d'entier : Byte ? Integer ? Long ?

b) Si par exemple ton tableau s'appelle Tbl(), quel est l'indice
    le plus petit que tu utilises ? Tbl(0) ou Tbl(1) ? Bien sûr,
    si tu as mis Option Base 1, n'utilise pas Tbl(0).

c) Toujours pour Tbl(), combien y a-t-il d'éléments ? Si tu mets
    par exemple Tbl(5), il y a 6 éléments, de Tbl(0) à Tbl(5)
    avec Option Base 0 ou  sans instruction Option Base ; et
    il y a 5 éléments, de Tbl(1) à Tbl(5) avec Option Base 1

d) Même si tu n'as pas mis d'instruction Option Base, ou même si tu as
    mis explicitement Option Base 0, tu peux déclarer Dim Tbl(1 To 5)
    et ton tableau aura 5 éléments

Eh oui, la taille d'un tableau dépend de beaucoup de choses...  &#x1F609;

La taille d'un tableau est de 20 octets + 4 octets par dimension déclarée
+ le nombre d'octets occupés par les données ; ainsi, le type Integer
étant sur 2 octets, Dim Tbl(1 To 5) As Integer prendra 20 + 4 + (5 × 2)
= 24 + 10 = 34 octets.

Cordialement.  &#x1F60A;

Utilisateur anonyme · Answer

Bonsoir

2013 n'est pas une version, mais un millésime.

Ce que demandait NHenry est, s'agit t il

VBA
VBS
VB6
VB.Net

La réponse diffère selon la version.

Pour VB6 et peut être VBA, c'est la fonction UBound.
Pour VB.Net la méthode Length (ou Count pour les framework >= 3.5)
Pour VBS je n'en sais rien.

pijaku · Answer

Bonjour,

mohamed, ton tableau doit être passé en paramètre de ta fonction ou alors déclaré en entête de module.

Vois ceci :
en paramètre :
Sub test()
Dim TB(100) As Integer, i As Integer
    For i = 0 To 100
        TB(i) = i
    Next
    MsgBox "156 existe : " & Exist(TB, 156) & " //  16 existe : " & Exist(TB, 16)
End Sub

Private Function Exist(TB() As Integer, L As Integer) As Boolean
Dim i As Long
    Exist = False
    For i = LBound(TB) To UBound(TB)
        If TB(i) = L Then Exist = True: Exit Function
    Next i
End Function 

en entête de module :

Option Explicit
Dim TB(100) As Integer

Sub test()
Dim i As Integer
    For i = 0 To 100
        TB(i) = i
    Next
    MsgBox "156 existe : " & Exist(156) & " //  16 existe : " & Exist(16)
End Sub

Private Function Exist(L As Integer) As Boolean
Dim i As Long
    Exist = False
    For i = LBound(TB) To UBound(TB)
        If TB(i) = L Then Exist = True: Exit Function
    Next i
End Function 

La première méthode permet de se servir de la fonction avec plusieurs variables tableaux différentes...
 
Avant, j'arrivais jamais à finir mes phrases... mais maintenant je

michel_m · Answer

Bonjour

avec obligatoirement du VBA ???

Sinon,pour savoir le nombre d'entiers dans ton tableau  
=SOMMEPROD((MOD(B2:D1000;1)=0)*1)

Savoir la taille d'un tableau

5 réponses

Discussions similaires

Newsletters