Connaître le nombre d'éléments d'un tableau

Bonjour le Forum,
En me référant à l'image ci-jointe (http://cjoint.com/?CImhJvDQ3zY), les villes alimentent une variable tableau à deux dimensions via une double boucle imbriquée (voir ci-dessous).
Question: est-il possible de connaître le nombre d’éléments présents dans le tableau par pays ? Par exemple, pour le premier pays il y a 8 éléments, pour le deuxième, 6 éléments, ...
D’avance, soyez remerciés pour vos réponses

Harry

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim tab_villes(10, 10) Worksheets("Pays").Activate Cells(1, 1).Activate LastCol = Range(Selection, Selection.End(xlToRight)).Count For j = 1 To LastCol ActiveCell.Offset(0, 1).Activate LastRow = Range(Selection, Selection.End(xlDown)).Count + 2 For i = 1 To LastRow If Len(Worksheets("Pays").Cells(i + 1, j)) <> 0 Then tab_villes(i, j) = Worksheets("Pays").Cells(i + 1, j) Else Exit For End If Next i Next j End Sub

---

essaies comme ça

Code:

---

1 2 3 4

'avec base 0 For x = 0 To 9 MsgBox UBound(tab_villes, x) Next x

---

Bonjour Casefayere,

Merci pour la réponse.
J'avais essayé le code proposé mais il donne les deux dimensions définies dans la déclarative (dim tab_villes(10,10)) et, c'est logique, donne une erreur "subscript out of range" au troisième passage.

Excellente journée

Harry

Bonjour à tous,
Comme je n'ai pas trouvé de fonction pour réponsre à mon problème, j'ai modifié le code de la double boucle en ajoutant un compteur, ci-dessous en rouge.
Bonne journée

Harry

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

For j = 1 To LastCol ActiveCell.Offset(0, 1).Activate LastRow = Range(Selection, Selection.End(xlDown)).Count + 2 For i = 1 To LastRow If Len(Worksheets("Pays").Cells(i + 1, j)) <> 0 Then tab_villes(i, j) = Worksheets("Pays").Cells(i + 1, j) Else ctr_pays(j) = i - 1 Exit For End If Next i Next j

---