[VBA] Nombre de valeurs dans une variable tableau

[F22Raptor]

Hello
Comment connaît-on le nombre de valeurs contenues dans une variable tableau, sachant qu'on a dimensionné cette variable jusque 1000 pour avoir de la marge.
Si on ne l'a remplie que de 200 valeurs, le UBound(MaVar) ne marche pas car il renvoie 1000.

Merci !

 

[BOISGONTIER]

Re : [VBA] Nombre de valeurs dans une variable tableau

Bonjour

Sub DernierElement()
Dim a(1 To 10)
a(1) = 45
a(2) = 33
a(5) = "aaa"
a(6) = "bbb"
MsgBox Application.Max(Application.Match("zzz", a, 1), Application.Match(999999, a, 1))
End Sub

Si on veut optimiser la mémoire:
-Redim Preserve
-Dictionary

Les tableaux

JB

 

[Pierrot93]

Re : [VBA] Nombre de valeurs dans une variable tableau

Bonjour,

essaye ceci :

Sub test()
Dim t(1 To 10), i
For i = 1 To 5
    t(i) = i
Next i
MsgBox Application.Count(t)
End Sub

chez moi countA renvoie 10...

bonne journée
@+

 

[Pierrot93]

Re : [VBA] Nombre de valeurs dans une variable tableau

Re,

"Application.Count" ne renvoie pas les éléments avec de l'alpha...

 

[BOISGONTIER]

Re : [VBA] Nombre de valeurs dans une variable tableau

>chez moi countA renvoie 10...

En Excel 2002, CountA() fonctionne normalement (nb valeurs alpha ou num)

JB

 

[Pierrot93]

Re : [VBA] Nombre de valeurs dans une variable tableau

Re,

perso sous 2010, et renvoie CountA 10

 

[BOISGONTIER]

Re : [VBA] Nombre de valeurs dans une variable tableau

Il y a donc un bug sur 2010:

-Nb(champ) donne le nombre de valeurs numériques
-NbVal(champ) donne le nombre de valeurs alpha ou num

Il n'est pas logique que l'une des deux ne fonctionne pas en vba.

JB

 

[Pierrot93]

Re : [VBA] Nombre de valeurs dans une variable tableau

Re,

Il n'est pas logique que l'une des deux ne fonctionne pas en vba

tout à fait d''accord.... A noter les sous types des éléments vides du tableau sont "EMPTY"...

 

[F22Raptor]

Re : [VBA] Nombre de valeurs dans une variable tableau

Merci les aminches !