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"

[ouskel'n'or]

Ben moi j'utiliserais une collection

Code :

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

NbTrucsRenseignés = MaCollect.count

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim Collect As New Collection
    Collect.Add 58228, CStr(1)
    Collect.Add 58070, CStr(2)
    Collect.Add 58194, CStr(3)
    Collect.Add 58162, CStr(4)
    MsgBox "Tu as " & Collect.Count & " bidules dans ton truc"
End Sub

[Pierrot93]

Bonjou à tous

essaye peut être en déclarant le tableau comme suit :

Code :

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

1
2
3
4
5
6
Dim Tabimm(10) As Variant
Tabimm(1) = 58228
Tabimm(2) = 58070
Tabimm(3) = 58194
Tabimm(4) = 58162
MsgBox Application.CountA(Tabimm)

bonne journée
@+

[Krovax]

C'est vrai que la déifférence est notable un tableau de long les donnée non définie sont à 0 pour les variant elle sont vide. D'ou le souci du countA qui compte les zéros.

Mais je suis d'accord sur les collection qui risque de mieu correspondre au besoin. J'avais un bon tuto de DVP dessus mais pas moyen de retrouver le lien si quelqu'un pourrais me le filer

[ouskel'n'or]

essaye peut être en déclarant le tableau comme suit :
@Many
tu as testé ? chez moi cela à l'air de fonctionner.... Excel2003

Chez moi aussi ça fonctionne.
Peut-être faudrait-il tester en initialisant tout le tableau avant d'effacer les valeurs, ça risquerait de ne plus fonctionner, sauf à utiliser Empty pour les vider.
A tester

J'ai effectivement testé ça

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
17
18
19
20
Sub test2()
Dim Tabimm(10) As Variant
Tabimm(1) = 58228
Tabimm(2) = 58070
Tabimm(3) = 58194
Tabimm(4) = 58162
Tabimm(5) = 58228
Tabimm(6) = 58070
Tabimm(7) = 58194
Tabimm(8) = 58162
Tabimm(9) = 58228
Tabimm(10) = 58070
Tabimm(5) = Empty
Tabimm(6) = Empty
Tabimm(7) = Empty
Tabimm(8) = Empty
Tabimm(9) = Empty
Tabimm(10) = Empty
MsgBox Application.CountA(Tabimm)
End Sub

Avec Empty, c'est okay. Si on utilise Tabimm(5) = "" ou Tabimm(5) = 0, ça ne fonctionne plus.
A toutes fins utiles

NB - Fonctionne même si les items renseignés ne se suivent pas (avec empty pour le nettoyage)