Discussion :

[Harry Covair]

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 :

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
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

[casefayere]

essaies comme ça

Code :

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

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

[Harry Covair]

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

[Harry Covair]

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 :

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

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