Discussion :

[ellewided]

Bonjour tout le monde,
Je définis un tableau de 10 cellules comme suit, les 10 cellules ne seront pas toutes remplies, par exemple :

Code :

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

1
2
3
4
5
6
 
Dim Tabimm(10) As Long
Tabimm(1) = 58228
Tabimm(2) = 58070
Tabimm(3) = 58194
Tabimm(4) = 58162

J'aimerai écrire une ligne de code qui me permettrait de connaitre le nombre de cellules utilisées, ici 4

merci

[Many31]

Salut

Code :

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

1
2
3
For i = 0 to Ubound(Tabimm)
    if Tabimm(i) <> "" then Nbre = Nbre + 1
Next

par exemple?

[Daranc]

tu veux dire les éléments du tableau ne seront pas tous remplis

[Pierrot93]

Bonsoir,

Peut être une autre soluton ainsi :

Code :

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

MsgBox Application.CountA(Tabimm)

bonne soirée
@+

[Many31]

Bonsoir,

Peut être une autre soluton ainsi :

Code :

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

MsgBox Application.CountA(Tabimm)

bonne soirée
@+

valable pour un tableau sur une feuille (et donc a utiliser avec une plage de donnée type Range) mais pas avec les variables tableaux

[Pierrot93]

Re

@Many
tu as testé ? chez moi cela à l'air de fonctionner.... Excel2003

[Krovax]

Chez moi en tout cas ca me donne 11, ce qui correspond a la taille du tableau, mais pas au nombre d'éléments non nul. D'ailleur je me demande pourquoi tu utilise un tableau de taille 11 (de 0 à 10) pour 10 cellules
Tu peux le dimensionner ainsi
Dim Tabimm(1 to 10) As Long

ainsi tu n'a pas de Tabimm(0)
ensuite utilise le code de many légèrement revu a partir de 1 et non de 0

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Tabimm(1 To 10) As Long
Dim nbre As Long, i As Long
Tabimm(1) = 58228
Tabimm(2) = 58070
Tabimm(3) = 58194
Tabimm(4) = 58162
MsgBox Application.CountA(Tabimm) & " ce qui chez moi ne colle pas"
For i = 1 To UBound(Tabimm)
    If Tabimm(i) <> 0 Then nbre = nbre + 1
Next
MsgBox nbre & " et là ca colle"